ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/3.0/FB30Attachment.pas

Comparing ibx/trunk/fbintf/client/3.0/FB30Attachment.pas (file contents):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 267 by tony, Fri Dec 28 10:44:23 2018 UTC

#	Line 97 | Line 97 | type
97		{Database Information}
98		function GetBlobMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IBlobMetaData;
99		function GetArrayMetaData(Transaction: ITransaction; tableName, columnName: AnsiString): IArrayMetaData;
100	+	procedure getFBVersion(version: TStrings);
101		end;
102
103		implementation
#	Line 104 | Line 105 | implementation
105		uses FB30Transaction, FB30Statement, FB30Array, FB30Blob, FBMessages,
106		FBOutputBlock, FB30Events, IBUtils;
107
108	+	type
109	+	{ TVersionCallback }
110	+
111	+	TVersionCallback = class(Firebird.IVersionCallbackImpl)
112	+	private
113	+	FOutput: TStrings;
114	+	public
115	+	constructor Create(output: TStrings);
116	+	procedure callback(status: Firebird.IStatus; text: PAnsiChar); override;
117	+	end;
118	+
119	+	{ TVersionCallback }
120	+
121	+	constructor TVersionCallback.Create(output: TStrings);
122	+	begin
123	+	inherited Create;
124	+	FOutput := output;
125	+	end;
126	+
127	+	procedure TVersionCallback.callback(status: Firebird.IStatus; text: PAnsiChar);
128	+	begin
129	+	FOutput.Add(text);
130	+	end;
131	+
132	+
133		{ TFB30Attachment }
134
135		procedure TFB30Attachment.CheckHandle;
#	Line 376 | Line 402 | begin
402		Result := TFB30ArrayMetaData.Create(self,Transaction as TFB30Transaction,tableName,columnName);
403		end;
404
405	+	procedure TFB30Attachment.getFBVersion(version: TStrings);
406	+	var bufferObj: TVersionCallback;
407	+	begin
408	+	version.Clear;
409	+	bufferObj := TVersionCallback.Create(version);
410	+	try
411	+	with FFirebird30ClientAPI do
412	+	begin
413	+	UtilIntf.getFbVersion(StatusIntf,FAttachmentIntf,bufferObj);
414	+	Check4DataBaseError;
415	+	end;
416	+	finally
417	+	bufferObj.Free;
418	+	end;
419	+	end;
420	+
421		end.
422

Diff Legend

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