ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/udr/client/FBClientAPI.pas

Comparing:
ibx/trunk/fbintf/client/FBClientAPI.pas (file contents), Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC vs.
ibx/branches/journaling/fbintf/client/FBClientAPI.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 2021 UTC

#	Line 465 | Line 465 | begin
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
#	Line 514 | Line 519 | end;
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;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines