ViewVC Help

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

root/public/ibx/branches/journaling/fbintf/client/FBBlob.pas

Comparing:
ibx/trunk/fbintf/client/FBBlob.pas (file contents), Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
ibx/branches/journaling/fbintf/client/FBBlob.pas (file contents), Revision 362 by tony, Tue Dec 7 13:27:39 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