paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from LaCo to bring implementation in line with other DB dyn units (bug ID 25118)

Browse Source 
git-svn-id: trunk@25732 -
This commit is contained in:
michael 2013-10-10 06:34:52 +00:00
parent b73252bd3d
commit 86d2d0c9be
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/oracle/src/oci.inc
View File

@ -3378,10 +3378,11 @@ uses ctypes,
{$include ociap.inc}
{$IFDEF LinkDynamically}
Procedure InitialiseOCI(LibraryName: AnsiString = ocilib);
Function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer;
Procedure ReleaseOCI;
var OCILibraryHandle : TLibHandle;
OCILoadedLibrary : AnsiString;
{$ENDIF}
implementation
@ -3392,16 +3393,16 @@ implementation
var
RefCount : integer;
LibName : AnsiString;
Procedure InitialiseOCI(LibraryName: AnsiString = ocilib);
function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer;
begin
inc(RefCount);
Result:=RefCount;
if RefCount > 1 then
begin
if CompareText(LibName,LibraryName)<>0 then
Raise EInOutError.CreateFmt('Can not load Oracle client library "%s". it is already loaded as "%s".',[LibraryName,LibName]);
if CompareText(OCILoadedLibrary,LibraryName)<>0 then
Raise EInOutError.CreateFmt('Can not load Oracle client library "%s". it is already loaded as "%s".',[LibraryName,OCILoadedLibrary]);
exit;
end
else
@ -3412,7 +3413,7 @@ begin
RefCount := 0;
Raise EInOutError.CreateFmt('Can not load Oracle client library "%s". Is it installed?',[LibraryName]);
end;
libName:=LibraryName;
OCILoadedLibrary:=LibraryName;
end;
{ ORL.inc}
@ -3912,7 +3913,7 @@ begin
begin
if not UnloadLibrary(OCILibraryHandle) then
inc(RefCount);
LibName:='';
OCILoadedLibrary:='';
end;
end;