--- ibx/trunk/fbintf/client/2.5/FB25Transaction.pas	2018/12/06 15:55:01	263
+++ ibx/trunk/fbintf/client/2.5/FB25Transaction.pas	2021/12/07 09:37:32	359
@@ -85,6 +85,7 @@ type
     FFirebird25ClientAPI: TFB25ClientAPI;
   protected
     function GetActivityIntf(att: IAttachment): IActivityMonitor; override;
+    function GetTrInfo(ReqBuffer: PByte; ReqBufLen: integer): ITrInformation; override;
     procedure SetInterface(api: TFBClientAPI); override;
   public
     property Handle: TISC_TR_HANDLE read FHandle;
@@ -111,6 +112,16 @@ begin
   Result := (att as TFB25Attachment);
 end;
 
+function TFB25Transaction.GetTrInfo(ReqBuffer: PByte; ReqBufLen: integer
+  ): ITrInformation;
+begin
+  Result := TTrInformation.Create(FFirebird25ClientAPI);
+  with FFirebird25ClientAPI, Result as TTrInformation do
+     if isc_transaction_info(StatusVector, @(FHandle), ReqBufLen, ReqBuffer,
+                               getBufSize, Buffer) > 0 then
+          IBDataBaseError;
+end;
+
 procedure TFB25Transaction.SetInterface(api: TFBClientAPI);
 begin
   inherited SetInterface(api);