ViewVC Help

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

root/public/ibx/trunk/fbintf/client/2.5/FB25Attachment.pas

Comparing ibx/trunk/fbintf/client/2.5/FB25Attachment.pas (file contents):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 266 by tony, Wed Dec 26 18:34:32 2018 UTC

#	Line 92 | Line 92 | type
92
93		function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData;
94		function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData;
95	+	procedure getFBVersion(version: TStrings);
96		end;
97
98		implementation
99
100		uses FB25Events,FB25Transaction, FBMessages, FB25Blob,
101	<	FB25Statement, FB25Array, IBUtils;
101	>	FB25Statement, FB25Array, IBUtils, IBExternals;
102
103		{ TFB25Attachment }
104
#	Line 357 | Line 358 | begin
358		Result := TFB25ArrayMetaData.Create(self,Transaction as TFB25Transaction,tableName,columnName);
359		end;
360
361	+	procedure ISCVersionCallback(userArg: pointer; text: PAnsiChar); cdecl;
362	+	begin
363	+	TStrings(userArg).Add(text);
364	+	end;
365	+
366	+	procedure TFB25Attachment.getFBVersion(version: TStrings);
367	+	var callback: pointer;
368	+	begin
369	+	callback := @ISCVersionCallback;
370	+	FFirebird25ClientAPI.isc_version(@FHandle,TISC_CALLBACK(callback),PVoid(version));
371	+	end;
372	+
373		end.
374

Diff Legend

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