When I disconnect client from multi client server, EventSink in
SinkList is not nil. So I cannot skip execution in the loop:
for I := 0 to FSinkList.Count - 1 do
if Assigned(FSinkList[I]) then
(IUnknown(FSinkList[I]) as IsrvEvents).bufReady(Count);
It is in Delphi 5.
Adding clients is without problems.
© 2016 Powered by mzan.com design MATCHINFO