ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Attachment.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Attachment.pas (file contents):
Revision 265 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