Gunnman, ты не сможешь просмотреть личку, поэтому отвечу здесь

Личка у меня читабельна) насчет sqlite понял...

Странно, раньше у участников не читалась, может поправили уже.

Правильно кажется.
Зайди сюда: https://github.com/stijnsanders/TSQLite
там есть базовый файл SQLite.pas (это то, что у нас называется sqlite3api.pas)
Найди в нем функцию sqlite3_open_v2() и сотвори себе по образу и подобию

Редактировалось 8 раз(а), последний 2022-04-03 03:37:50

И так, библиотеку скомпилировал с параметром SQLITE_THREADSAFE=1, библиотека многопоточность поддерживает.
Для того чтобы ей воспользоваться нужно открывать соединение через sqlite3_open_v2.

согласно документации:

int sqlite3_open_v2(
const char *filename, /* Database filename (UTF-8) */
sqlite3 **ppDb, /* OUT: SQLite db handle */
int flags, /* Flags */
const char *zVfs /* Name of VFS module to use */
);

Используется 4 параметра при открытии соединения (на 2 больше чем при обычном sqlite3_open).

1) параметр имя_дб, 2) хендо_дб, 3) флаг (перечень примеров тут https://www.sqlite.org/c3ref/open.html), 4) - объект виртуальной файловой системы (можно не указывать (NULL)).

Далее:

так как мне требуется указать флаг SQLITE_OPEN_NOMUTEX 0x00008000 /* Ok for sqlite3_open_v2() */ и не указывать VFS,то в я в файле hiDS_Sqlite3.pas

строку

sqlite3_open(PChar(CodePage1ToCodePage2(ReadString(_Data,_data_FileName, _prop_FileName), CP_ACP, CP_UTF8)), id);

меняю на:

sqlite3_open_v2(PChar(CodePage1ToCodePage2(ReadString(_Data,_data_FileName, _prop_FileName), CP_ACP, CP_UTF8)), id,8,nil); - где 8 - флаг, а nil -NULL (использовать объект VFS по умолчанию)

в файле sqlite3api.pas

строку

function sqlite3_open(dbname: PChar; var db:pointer):integer; cdecl;

меняю на:

function sqlite3_open_v2(dbname: PChar;var db:pointer;Flags:integer;VFSModuleChar):integer; cdecl; -где флаг integer (8), а объект VFS Pchar (nil)

строку

function sqlite3_open; asm pop ebp; jmp _sqlite3_open end;

меняю на:

function sqlite3_open_v2; asm pop ebp; jmp _sqlite3_open_v2 end;

строку

function _sqlite3_open(dbname: PChar; var db:pointer):integer; cdecl; external;

меняю на:

function _sqlite3_open_v2(dbname: PChar;var db:pointer;Flags:integer;VFSModuleChar):integer; cdecl;

Компилирую проект и получаю:
"C:\HiAsm\Elements\delphi\code\SqLite3Api.pas(104) Error: Unsatisfied forward or external declaration: 'sqlite3_open_v2'"
"C:\HiAsm\Elements\delphi\code\hiSQLite_DB.pas(5) Fatal: Could not compile used unit 'SqLite3Api.pas'"

Товарищи подскажите что делаю не так..

В SqLite3Api.pas sqlite3_open встречается два раза, ты изменил только один. Но лучше не заменять, а добавить новую функцию рядом.

Netspirit, спасибо,поправил, но теперь ругается на C:\HiAsm\Elements\delphi\code\hiSQLite_DB.pas(36) Error: Undeclared identifier: 'sqlite3_open'
------------ Дoбавленo в 18.55:
Такссс hiSQLite_DB.pas поправил))) скомпилировалось, буду тестировать!
------------ Дoбавленo в 19.04:
Скомпилировалось не открывается БД..

Gunnman, я тебе флаг 8 написал с потолка. Найди соответствующее значение своему SQLITE_OPEN_NOMUTEX

------------ Дoбавленo в 20.51:
Если не ошибаюсь, то значение вроде 0x00008000

Tad, дык я знаю что с потолка! я так в пример привел, в документации значение 0x00008000.

в sqlite3api.pas сейчас есть функция:

sqlite3_open_v2(dbname: PChar;var db:pointer;Flag1:integer;Flag2:integer;VFXchar):integer; cdecl;

в hiSLite_DB.pas есть процедура:

sqlite3_open_v2(PChar(CodePage1ToCodePage2(ReadString(_Data,_data_FileName, _prop_FileName), CP_ACP, CP_UTF8)), id,$00000002,$00008000,nil);

где (Flag1) $00000002=SQLITE_OPEN_READWRITE (Flag2) $00008000=SQLITE_OPEN_NOMUTEX (VFX)nil

при компиляции ошибок нет, при попытке открыть БД - "Error 216 000018B21"

Если использую такой вариант:
qlite3_open_v2(dbname: PChar;var db:pointer;Flag1:integer;VFXchar):integer; cdecl;
и
sqlite3_open_v2(PChar(CodePage1ToCodePage2(ReadString(_Data,_data_FileName, _prop_FileName), CP_ACP, CP_UTF8)), id,$00000002,nil);

То БД открывается и в нее успешно пишетсячитается.

Не могу понять как 2 параметра передать!

Тут https://www.sqlite.org/c3ref/open.html сказано что их может быть несколько...как ни пытаюсь не получается больше 1 параметра указать

Редактировалось 6 раз(а), последний 2022-04-03 03:37:49

Почему вариат с and может не работать? в документации сказано:

The sqlite3_open_v2() interface works like sqlite3_open() except that it accepts two additional parameters for additional control over the new database connection. The flags parameter to sqlite3_open_v2() can take one of the following three values, optionally combined with the SQLITE_OPEN_NOMUTEX, SQLITE_OPEN_FULLMUTEX, SQLITE_OPEN_SHAREDCACHE, SQLITE_OPEN_PRIVATECACHE, and/or SQLITE_OPEN_URI flags:

QLITE_OPEN_READWRITE
SQLITE_OPEN_READONLY

Gunnman, а не пробовал $00008002

Tad, база открылась)))) т.е. аргументы нужно складывать???