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

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

Присваивание обработке события значения. [WinXP]

Delpher ©   (2006-10-16 09:31:00) 

Требуется программно присвоить обработке события нужную процедуру:
У меня в Delphi2005 нет компонента TServerSocket поэтому работаю напрямую с этим классом.
Есть переменная
server:=TServerSocket.create;

и процедура

procedure TForm1.Serversocket1ClientRead(Sender : TObject;
  Socket : TCustomWinSocket);
begin
  showmessage(Socket.ReceiveText);
end;

Необходимо сделать та чтобы server.OnClientRead
Выполняло procedure TForm1.Serversocket1ClientRead

---

Delpher   (2006-10-16 09:53:00) [1]

Ух ты! Сработало. Первый раз не пошло(что я только после этого не перепробовал=))
PS Спасибо

---

Сергей М.   (2006-10-16 09:32:00) [2]

server.OnClientRead := Serversocket1ClientRead;

---

Наверх