Hi

I have an application which users events so that the data displayed is
already in sync between multiple users.

Doing some testing this afternoon I noticed that after about a dozen
event receipts the recipient application stops receiving events. The
following code is used to populate the event monitor and appears to work
fine for a time ...

//Build list of events to monitor (i.e. one for each day)
if (IB_BookingEvents.ProcessingEvents = False) then begin

for ColNo := 0 to fPlanner.Positions - 1 do begin
if (EventList <> '') then begin
EventList := EventList + ',';
end;

EventList := EventList + EVENT_NAME + FormatDateTime(
'd-m-yyyy', GetDateOfColumn(ColNo) );
end;

if (EventList = '') then begin
IB_BookingEvents.UnregisterEvents;
end
else if (EventList <> IB_BookingEvents.Events.CommaText) then begin
IB_BookingEvents.UnregisterEvents;

if (EventList <> IB_BookingEvents.Events.CommaText) then begin
//Events to be monitored changed
IB_BookingEvents.Events.CommaText := EventList;

IB_BookingEvents.RegisterEvents;
end;
end;
end;


I am using IBO 4.8.7 with FB 2.0.x

Any suggestions ?



Thanks
Rob