Posted via ActualForum NNTP Server 1.5
var LPhysBase: TFDPhysIBConnectionBase; LIBBase: TIBDatabase; // unit FireDAC.Phys.IBWrapper LDllHandle: THandle; begin LPhysBase := FDConnection.CliObj as TFDPhysIBConnectionBase; LIBBase := LPhysBase.CliObj as TIBDatabase; LDllHandle := LIBBase.Lib.hDll;
var LIBBase: TIBDatabase; // unit FireDAC.Phys.IBWrapper LDllHandle: THandle; begin LPhysBase := FDConnection.CliObj as TIBDatabase; LDllHandle := LIBBase.Lib.hDll;