To this end, the sample uses the CliHandle and SharedCliHandle properties of the TFDConnection class.
Table of Contents
Location
You can find the DLLSharing sample project at:
- Start | Programs | Embarcadero RAD Studio Sydney | Samples and then navigate to:
Object PascalDatabaseFireDACSamplesComp LayerTFDConnectionDLL_Sharing
- Subversion Repository:
- You can find Delphi code samples in GitHub Repositories. Search by name into the samples repositories according to your RAD Studio version.
How to Use the Sample
- Navigate to the location given above and open
Project1.dproj
. - Press F9 or choose Run > Run.
Files
File in Delphi | Contains |
---|---|
Project1.dproj Project1.dpr | The project itself. |
Unit1.pas Unit1.fmx | The main form. |
Project2.dproj Project2.dpr | The DLL. |
Unit2.pas Unit2.fmx | The DLL form. |
Implementation
The sample uses FireDAC to implement a connection with a dynamic-link library. To this end, the sample implements three buttons named: Button1, Button2 and Button3. Each button handles a OnClick event to implement the following features:
- Load a DLL
- Show data
- Unload the DLL
Load DLL
To transfer a connection between an application and a DLL, the sample transfers the TFDCustomConnection.CliHandle property value to the DLL. The handle must be assigned to the TFDCustomConnection.SharedCliHandle property.
After the TFDCustomConnection.SharedCliHandle is assigned, the DLL connection can be activated by setting the Connected property to True
. Note that there is no need to set up a connection definition, including DriverID.
Show data
Then, the connection can be used as a normal database connection:
[crayon-67683ec9dac1a397646759/]Unload DLL
To unload the dynimic-link library, the sample implements the following code:
[crayon-67683ec9dac1c784382855/]Head over and check out the full sample source code for DLL sharing with FireDAC in Delphi.