ViewVC Help

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

root/public/ibx/trunk/fbintf/client/2.5/FB25Events.pas

Comparing ibx/trunk/fbintf/client/2.5/FB25Events.pas (file contents):
Revision 216 by tony, Thu Mar 15 17:21:13 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	Line 106 | Line 106 | type
106		FDBHandle: TISC_DB_HANDLE;
107		FEventHandlerThread: TObject;
108		FAsyncEventCallback: TEventhandlerInterface;
109	+	FFirebird25ClientAPI: TFB25ClientAPI;
110		protected
111		procedure CancelEvents(Force: boolean = false); override;
112		function GetIEvents: IEvents; override;
#	Line 260 | Line 261 | begin
261		FCriticalSection.Enter;
262		try
263		if not FInWaitState then Exit;
264	<	with Firebird25ClientAPI do
264	>	with FFirebird25ClientAPI do
265		if (Call(isc_Cancel_events( StatusVector, @FDBHandle, @FEventID),false) > 0) and not Force then
266		IBDatabaseError;
267
#	Line 280 | Line 281 | constructor TFB25Events.Create(DBAttachm
281		begin
282		inherited Create(DBAttachment,DBAttachment,Events);
283		FDBHandle := DBAttachment.Handle;
284	+	FFirebird25ClientAPI := DBAttachment.Firebird25ClientAPI;
285	+	OnDatabaseError := FFirebird25ClientAPI.IBDataBaseError;
286		FAsyncEventCallback := TEventhandlerInterface.Create(self);
287		FEventHandlerThread := TEventHandlerThread.Create(self,FAsyncEventCallback);
288		end;
#	Line 304 | Line 307 | begin
307
308		FEventHandler := EventHandler;
309		callback := @IBEventCallback;
310	<	with Firebird25ClientAPI do
310	>	with FFirebird25ClientAPI do
311		Call(isc_que_events( StatusVector, @FDBHandle, @FEventID, FEventBufferLen,
312		FEventBuffer, TISC_CALLBACK(callback), PVoid(FAsyncEventCallback)));
313		FInWaitState := true;
#	Line 320 | Line 323 | begin
323
324		FInWaitState := true;
325		try
326	<	with Firebird25ClientAPI do
326	>	with FFirebird25ClientAPI do
327		Call(isc_wait_for_event(StatusVector,@FDBHandle, FEventBufferlen,FEventBuffer,FResultBuffer));
328		finally
329		FInWaitState := false;

Diff Legend

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