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

Comparing ibx/trunk/fbintf/client/3.0/FB30Events.pas (file contents):
Revision 217 by tony, Fri Mar 16 10:27:26 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 78 | Line 78 | type
78      FEventsIntf: Firebird.IEvents;
79      FAsyncEventCallback: TEventhandlerInterface;
80      FSyncEventCallback: TEventhandlerInterface;
81 +    FFirebird30ClientAPI: TFB30ClientAPI;
82      procedure InternalAsyncWaitForEvent(EventHandler: TEventHandler; EventCallBack: TEventhandlerInterface);
83      procedure ReleaseIntf;
84    protected
# Line 245 | Line 246 | begin
246    try
247      if not FInWaitState then Exit;
248      if FEventsIntf <> nil then
249 <    with Firebird30ClientAPI do
249 >    with FFirebird30ClientAPI do
250      begin
251        FEventsIntf.Cancel(StatusIntf);
252        if not Force then
# Line 274 | Line 275 | begin
275  
276      FEventHandler := EventHandler;
277      ReleaseIntf;
278 <    with Firebird30ClientAPI do
278 >    with FFirebird30ClientAPI do
279      begin
280        FEventsIntf := FAttachmentIntf.queEvents(
281                                  StatusIntf,EventCallBack,
# Line 299 | Line 300 | constructor TFB30Events.Create(DBAttachm
300   begin
301    inherited Create(DBAttachment,DBAttachment,Events);
302    FAttachmentIntf := DBAttachment.AttachmentIntf;
303 +  FFirebird30ClientAPI := DBAttachment.Firebird30ClientAPI;
304    FSyncEventCallback := TEventhandlerInterface.Create(self,'Sync');
305   end;
306  

Diff Legend

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