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

Comparing ibx/branches/udr/client/FBTransaction.pas (file contents):
Revision 370 by tony, Wed Jan 5 14:59:15 2022 UTC vs.
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC

# Line 88 | Line 88 | type
88      FAttachments: array of IAttachment; {Keep reference to attachment - ensures
89                                            attachment cannot be freed before transaction}
90      FTransactionName: AnsiString;
91 +    FForeignHandle: boolean;
92      procedure CheckHandle;
93      function GetActivityIntf(att: IAttachment): IActivityMonitor; virtual; abstract;
94      function GetJournalIntf(Attachment: IAttachment): IJournallingHook;
# Line 313 | Line 314 | var i: integer;
314      intf: IUnknown;
315      user: ITransactionUser;
316   begin
317 <  if InTransaction then
317 >  if InTransaction and not FForeignHandle then
318    begin
319      for i := 0 to InterfaceCount - 1 do
320      begin
# Line 342 | Line 343 | var i: integer;
343   begin
344    if not GetInTransaction then Exit;
345  
346 +  if FForeignHandle then
347 +    IBError(ibxeTransactionNotOwned,[nil]);
348 +
349    SetLength(TransactionEndNeeded,Length(FAttachments));
350    TransactionID := GetTransactionID;
351    for i := 0 to Length(FAttachments) - 1 do
# Line 424 | Line 428 | var i: integer;
428   begin
429    if not GetInTransaction then Exit;
430  
431 +  if FForeignHandle then
432 +    IBError(ibxeTransactionNotOwned,[nil]);
433 +
434    SetLength(TransactionEndNeeded,Length(FAttachments));
435    TransactionID := GetTransactionID;
436    for i := 0 to Length(FAttachments) - 1 do

Comparing ibx/branches/udr/client/FBTransaction.pas (property svn:eol-style):
Revision 370 by tony, Wed Jan 5 14:59:15 2022 UTC vs.
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC

# Line 0 | Line 1
1 + native

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines