ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/client/FBClientAPI.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBClientAPI.pas (file contents):
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC vs.
Revision 347 by tony, Mon Sep 20 22:08:20 2021 UTC

# Line 514 | Line 514 | end;
514  
515   function TFBClientAPI.GetProcAddr(ProcName: PAnsiChar): Pointer;
516   begin
517 <  Result := GetProcAddress(FFBLibrary.IBLibrary, ProcName);
517 >  Result := nil;
518 >  if assigned(FFBLibrary) and (FFBLibrary.IBLibrary <> NilHandle) then
519 >    Result := GetProcAddress(FFBLibrary.IBLibrary, ProcName);
520    if not Assigned(Result) then
521      raise Exception.CreateFmt(SFirebirdAPIFuncNotFound,[ProcName]);
522   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines