Submitted by: Sorien (sorien)

often events are not working in my app I found that for same event like "EVENT_MYTABLE_FOO" isc_event_block returns different buffer lengths like 27 and 7 (FEventBufferLen in code bellow)
when it returns 27 everything is working but when i returns 7 app will not get any event

it looks like bug for me, but i can't find any documentation for that function, its maybe more support question but really don't know how to use your mailing list :/

code
procedure TDBEventThread.RegisterEvents;
var
sib_event_block: Tsib_event_block;

function EBP(Index: Integer): PAnsiChar;
begin
if (Index > FEvents.Count) then
Result := nil
else
Result := PAnsiChar(AnsiString(FEvents[Index - 1]));
end;

begin
FEventBuffer := nil;
FResultBuffer := nil;
FEventBufferLen := 0;
FFirstTime := True;

FEventCount := Min(FEvents.Count, IB_MAX_EVENT_BLOCK);

sib_event_block := Tsib_event_block(FPlainDriver.GetFirebirdAPI.isc_event_block);
FEventBufferLen := sib_event_block(@FEventBuffer, @FResultBuffer, FEventCount, EBP(1), EBP(2), EBP(3), EBP(4), EBP(5), EBP(6), EBP(7), EBP(8), EBP(9), EBP(10), EBP(11), EBP(12), EBP(13), EBP(14), EBP(15));
end