Sqlite.Dll einbinden

[Counter909]

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');