ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/2.5/FB25ClientAPI.pas

Comparing ibx/trunk/fbintf/client/2.5/FB25ClientAPI.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

#	Line 111 | Line 111 | type
111		BLOB_put: TBLOB_put;
112		isc_wait_for_event: Tisc_wait_for_event;
113		isc_vax_integer: Tisc_vax_integer;
114	–	isc_portable_integer: Tisc_portable_integer;
114		isc_blob_info: Tisc_blob_info;
115		isc_blob_lookup_desc: Tisc_blob_lookup_desc;
116		isc_open_blob2: Tisc_open_blob2;
#	Line 167 | Line 166 | type
166
167		public
168		{Helper Functions}
170	–	function DecodeInteger(bufptr: PByte; len: short): integer; override;
169		procedure SQLEncodeDate(aDate: TDateTime; bufptr: PByte); override;
170		function SQLDecodeDate(bufptr: PByte): TDateTime; override;
171		procedure SQLEncodeTime(aTime: TDateTime; bufptr: PByte); override;
#	Line 344 | Line 342 | begin
342		BLOB_put := GetProcAddr('BLOB_put'); {do not localize}
343		isc_wait_for_event := GetProcAddr('isc_wait_for_event'); {do not localize}
344		isc_vax_integer := GetProcAddr('isc_vax_integer'); {do not localize}
347	–	isc_portable_integer := GetProcAddr('isc_portable_integer'); {do not localize}
345		isc_blob_info := GetProcAddr('isc_blob_info'); {do not localize}
346		isc_blob_lookup_desc := GetProcAddr('isc_blob_lookup_desc');  {do not localize}
347		isc_open_blob2 := GetProcAddr('isc_open_blob2'); {do not localize}
#	Line 558 | Line 555 | begin
555		Result := nil;
556		end;
557
561	–	function TFB25ClientAPI.DecodeInteger(bufptr: PByte; len: short): integer;
562	–	begin
563	–	Result := isc_portable_integer(bufptr,len);
564	–	end;
565	–
558		procedure TFB25ClientAPI.SQLEncodeDate(aDate: TDateTime; bufptr: PByte);
559		var
560		tm_date: TCTimeStructure;

Diff Legend

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