Сокеты

← →
Александр_К (2007-08-11 13:22) [0]

Уважаемый мастера.
Как мне подцепить процедуры:

var
MainServer:TServerSocket; //глобальная переменная

procedure ServerSocketListen(Sender:TObject; Socket:TCustomWinSocket);
begin
end;

procedure ServerSocketAccept(Sender:TObject; Socket:TCustomWinSocket);
begin
end;

procedure ClientConnect_(Sender:TObject; Socket:TCustomWinSocket);
begin
end;

procedure ClientDisconnect_(Sender:TObject; Socket:TCustomWinSocket);
begin

end;

procedure StartServer;
begin
MainServer:=TServerSocket.Create(nil);
MainServer.Port:=35000;
MainServer.ServerType:=stNonBlocking;
@MainServer.OnListen:=@ServerSocketListen;-хорошо цепляется
@MainServer.OnAccept:=@ServerSocketAccept;-хорошо цепляется
// @MainServer.OnAccept:=@ClientConnect_; - не цепляется
// MainServer.OnClientDisconnect:=@ClientDisconnect_;-не цепляется, хотя
типы одинаковые, тем более, что предыдущие процедуры зацепились без проблем.
MainServer.Open;
end;

Как мне их соединить?
Заранее спасибо.

← →
MBo © (2007-08-11 13:50) [1]

а разве это не должны быть методы объекта, а не простые процедуры?

Сокеты Найти похожие ветки