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

Comparing ibx/trunk/fbintf/client/2.5/FB25Transaction.pas (file contents):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

# Line 85 | Line 85 | type
85      FFirebird25ClientAPI: TFB25ClientAPI;
86    protected
87      function GetActivityIntf(att: IAttachment): IActivityMonitor; override;
88 +    function GetTrInfo(ReqBuffer: PByte; ReqBufLen: integer): ITrInformation; override;
89      procedure SetInterface(api: TFBClientAPI); override;
90    public
91      property Handle: TISC_TR_HANDLE read FHandle;
# Line 111 | Line 112 | begin
112    Result := (att as TFB25Attachment);
113   end;
114  
115 + function TFB25Transaction.GetTrInfo(ReqBuffer: PByte; ReqBufLen: integer
116 +  ): ITrInformation;
117 + begin
118 +  Result := TTrInformation.Create(FFirebird25ClientAPI);
119 +  with FFirebird25ClientAPI, Result as TTrInformation do
120 +     if isc_transaction_info(StatusVector, @(FHandle), ReqBufLen, ReqBuffer,
121 +                               getBufSize, Buffer) > 0 then
122 +          IBDataBaseError;
123 + end;
124 +
125   procedure TFB25Transaction.SetInterface(api: TFBClientAPI);
126   begin
127    inherited SetInterface(api);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines