wie kann ich die sqlite.dll denn dynamisch laden ?
musste das Thema noch mal wieder aufgreifen....
hab hier sowas gefunden in der art ?
Delphi-Quellcode:
type
TSQLiteDB = Pointer;
var
DLLHandle: THandle;
SQLite3_Open :
function (filename: PAnsiChar;
var db: TSQLiteDB): integer;
cdecl;
function LoadLibSqlite3(libraryName:
String): Boolean;
begin
dllhandle:= LoadLibrary(PChar(libraryName));
if DLLHandle <> 0
then
begin
Result := True;
@SQLite3_Open := GetProcAddress(DLLHandle, '
sqlite3_open');
if not Assigned(@SQLite3_Open)
then Result := False;
end else
result:= false;
..........
......
end;
Delphi-Quellcode:
if not FileExists(irgendeinpfad + 'sqlite3.dll') then exit;
LoadLibSqlite3(irgendeinpfad + 'sqlite3.dll');