Вверх ↑
Ответов: 2125
Рейтинг: 159
#1: 2006-10-19 14:17:15 ЛС | профиль | цитата
А вот так:
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;
Sock.OnError не существует пока
карма: 1

0