# | Line 110 | Line 110 | begin | |
---|---|---|
110 | end; | |
111 | writeln(OutFile,'Signal Event'); | |
112 | Attachment.ExecImmediate([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],sqlEvent); | |
113 | < | while not FEventSignalled do Sleep(50); |
113 | > | while not FEventSignalled do |
114 | > | begin |
115 | > | Sleep(50); |
116 | > | CheckSynchronize; |
117 | > | end; |
118 | ShowEventCounts(EventHandler); | |
119 | FEventSignalled := false; | |
120 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |