paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from LaCo to fix bug #25118

Browse Source 
git-svn-id: trunk@25733 -
This commit is contained in:
michael 2013-10-10 06:36:22 +00:00
parent 86d2d0c9be
commit b1b8cc2542
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -94,10 +94,16 @@ type
constructor Create(AOwner : TComponent); override;
end;
{ TOracleConnectionDef }
TOracleConnectionDef = Class(TConnectionDef)
Class Function TypeName : String; override;
Class Function ConnectionClass : TSQLConnectionClass; override;
Class Function Description : String; override;
Class Function DefaultLibraryName : String; override;
Class Function LoadFunction : TLibraryLoadFunction; override;
Class Function UnLoadFunction : TLibraryUnLoadFunction; override;
Class Function LoadedLibraryName: string; override;
end;
implementation
@ -1058,6 +1064,42 @@ begin
Result:='Connect to an Oracle database directly via the client library';
end;
class function TOracleConnectionDef.DefaultLibraryName: String;
begin
{$IfDef LinkDynamically}
Result:=ocilib;
{$else}
Result:='';
{$endif}
end;
class function TOracleConnectionDef.LoadFunction: TLibraryLoadFunction;
begin
{$IfDef LinkDynamically}
Result:=@InitialiseOCI;
{$else}
Result:=Nil;
{$endif}
end;
class function TOracleConnectionDef.UnLoadFunction: TLibraryUnLoadFunction;
begin
{$IfDef LinkDynamically}
Result:=@ReleaseOCI;
{$else}
Result:=Nil;
{$endif}
end;
class function TOracleConnectionDef.LoadedLibraryName: string;
begin
{$IfDef LinkDynamically}
Result:=OCILoadedLibrary;
{$else}
Result:='';
{$endif}
end;
{ TOracleTrans }
destructor TOracleTrans.Destroy();