| # | 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; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |