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

Comparing ibx/trunk/fbintf/client/FBBlob.pas (file contents):
Revision 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 77 | Line 77 | type
77     function GetUnconfirmedCharacterSet: boolean;
78    end;
79  
80 <  TFBBlob = class(TActivityReporter)
80 >  TFBBlob = class(TActivityReporter,ITransactionUser)
81    private
82      FMetaData: IBlobMetaData;
83      FAttachment: IAttachment;
# Line 101 | Line 101 | type
101      constructor Create(Attachment: IAttachment; Transaction: TFBTransaction;
102                         MetaData: IBlobMetaData; BlobID: TISC_QUAD; BPB: IBPB); overload;
103      destructor Destroy; override;
104 <    procedure TransactionEnding(aTransaction: TFBTransaction; Force: boolean);
104 >
105 >  public
106 >    {ITransactionUser}
107 >    procedure TransactionEnding(aTransaction: ITransaction; Force: boolean);
108  
109    public
110      {IBlobMetaData}
# Line 139 | Line 142 | type
142  
143   implementation
144  
142 – uses FBMessages;
143 –
145   { TFBBlob }
146  
147   procedure TFBBlob.ClearStringCache;
# Line 177 | Line 178 | begin
178    inherited Destroy;
179   end;
180  
181 < procedure TFBBlob.TransactionEnding(aTransaction: TFBTransaction;
181 <  Force: boolean);
181 > procedure TFBBlob.TransactionEnding(aTransaction: ITransaction; Force: boolean);
182   begin
183 <  if aTransaction  <> (FTransaction as TFBTransaction)  then
183 >  if (aTransaction as TObject) <> (FTransaction as TObject) then
184      Exit;
185    if FCreating then
186      InternalCancel(Force)

Diff Legend

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