Цитата:
Сообщение от АрхиНуб
procedure Init;
begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
end;
procedure Free;
begin
buf:=#$09;
SendToServer;
YesFreeOnClientDisconnect;
YesFreeOnServerDisconnect;
end;
|
сначала не обратил внимания, эти процедуры нельзя вызывать внутри процедур Init или Free ибо они действуют на соединение для которого они вызваны а Init и Free непривязаны к конкретному соединению!
вобщем раз так хочеш чтоб они вызывались внутри этих процедур то в следующей версии сделаю NoFreeOnClientDisconnectEX(NickName) или NoFreeOnClientDisconnectEX(ConnectID)