| 465 |
|
end; |
| 466 |
|
|
| 467 |
|
{$IFDEF UNIX} |
| 468 |
+ |
|
| 469 |
|
procedure TFBClientAPI.GetTZDataSettings; |
| 470 |
|
var S: TStringList; |
| 471 |
|
begin |
| 472 |
|
FLocalTimeOffset := GetLocalTimeOffset; |
| 473 |
< |
FLocalTimeZoneName := strpas(tzname[tzdaylight]); |
| 473 |
> |
{$if declared(Gettzname)} |
| 474 |
> |
FLocalTimeZoneName := Gettzname(tzdaylight); |
| 475 |
> |
{$else} |
| 476 |
> |
FLocalTimeZoneName := tzname[tzdaylight]; |
| 477 |
> |
{$ifend} |
| 478 |
|
FIsDaylightSavingsTime := tzdaylight; |
| 479 |
|
if FileExists(DefaultTimeZoneFile) then |
| 480 |
|
begin |
| 519 |
|
|
| 520 |
|
function TFBClientAPI.GetProcAddr(ProcName: PAnsiChar): Pointer; |
| 521 |
|
begin |
| 522 |
< |
Result := GetProcAddress(FFBLibrary.IBLibrary, ProcName); |
| 522 |
> |
Result := nil; |
| 523 |
> |
if assigned(FFBLibrary) and (FFBLibrary.IBLibrary <> NilHandle) then |
| 524 |
> |
Result := GetProcAddress(FFBLibrary.IBLibrary, ProcName); |
| 525 |
|
if not Assigned(Result) then |
| 526 |
|
raise Exception.CreateFmt(SFirebirdAPIFuncNotFound,[ProcName]); |
| 527 |
|
end; |
