constructor THITCP_Server.Create;
begin
inherited;
Sock := TSocket.Create;
Sock.OnConnect := _OnConnect;
Sock.OnDisconnect := _OnDisConnect;
Sock.OnRead := _OnRes;
Sock.OnClientConnect := _OnClientConnect;
Sock.OnClientDisconnect := _OnClientDisConnect;
//Sock.OnError := _OnError;
end;
Ответов: 2125
Рейтинг: 159
|
|||
А вот так:
|
|||
карма: 1 |
|