[Solved[ How to define the SQLite3.DLL path for the SQLConnect ?

[jamie]

At app startup, I need to define the path to the DLL for the Sqlite3 before the SQLite components open a database.

CUrrently the DLL is located in the project path which is fine however, this project is going to be 32/64 bit, and I need to have it point to the correct DLL on startup! I will have these DLLs loaded in their own folders, one for 64 and the other for 32 bits.

I did see a function that looks like it could be it in the SQLConn unit, but I can't be sure of that.

I suppose I could have the 2 EXE's also in a separate folder within the project but that would cause another issue.


Any thoughts?

Jamie

[dsiders]

At app startup, I need to define the path to the DLL for the Sqlite3 before the SQLite components open a database.

CUrrently the DLL is located in the project path which is fine however, this project is going to be 32/64 bit, and I need to have it point to the correct DLL on startup! I will have these DLLs loaded in their own folders, one for 64 and the other for 32 bits.

Sounds like youi're trying to reinvent TSQLDBLibraryLoader. Check out the example in https://gitlab.com/freepascal.org/fpc/source/-/blob/main/packages/fcl-db/examples/sqlite3loadlib.lpr?ref_type=heads.

[jamie]

I'll study that and see if I can get that working with the existing code I have. I am using the components from the palette, and I see that is not the same there, I need to intercept the LIBRARY load path, but I can study the sources.


Thanks

Jamie

[jamie]

This is what I am doing since I already have a Data Module in place with the needed components.

Code: Pascal  [Select][+][-]

1. procedure TDataMM.SQLConnector1BeforeConnect(Sender: TObject);
2. begin
3. {$IFDEF CPU32}
4.  SQLite3Conn.SQLiteLibraryName :='32bitdata\sqlite3.dll';
5. {$ELSE}
6.  SQlite3Conn.SQLiteLibraryName := '64bitdata\sqlite3.dll';
7. {$IFEND}
8. end;                                      
9.  

If I decide to do the ARM64 later, which maybe an undertaking I can alter this. Ect.

Jamie

[Mike.Cornflake]

Code: Pascal  [Select][+][-]

1. procedure TDataMM.SQLConnector1BeforeConnect(Sender: TObject);
2. begin
3. {$IFDEF CPU32}
4.  SQLite3Conn.SQLiteLibraryName :='32bitdata\sqlite3.dll';
5. {$ELSE}
6.  SQlite3Conn.SQLiteLibraryName := '64bitdata\sqlite3.dll';
7. {$IFEND}
8. end;                                      
9.  

Nice.  Many thanks for sharing