| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сокеты [D6]

Александр_К ©   (2007-08-11 13:22:00) 

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

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:00) [1]

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

---

Наверх