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

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

Как создать TCPServer в Runtime? [D7, WinXP]

anton. ©   (2004-06-17 10:11:00) 

var
 TCPServer: TIdTCPServer;
 TCPClient: TIdTCPClient;

implementation

procedure TCPServerExecute(AThread: TIdPeerThread);
begin
 TIdPeerThread(TCPServer.Threads.LockList.Items[0]).Connection.WriteLn('k');
end;

initialization
 TCPServer:=TidTCPServer.Create(nil);
 TCPServer.DefaultPort:=1209;
 TCPServer.OnExecute:=TCPServerExecute; << error
 TCPServer.Active:=true;

---

Anatoly Podgoretsky   (2004-06-17 11:06:00) [1]

anton.   (17.06.04 10:21) [2]
Словарь поможет, всего 5 простых слов.

---

Reindeer Moss Eater   (2004-06-17 10:35:00) [2]

понимай пока

---

anton.   (2004-06-17 10:21:00) [3]

пока не понял

ошибка
Incompatible types: 'method pointer and regular procedure'

---

Reindeer Moss Eater   (2004-06-17 10:13:00) [4]

OnExecute : procedure(AThread: TIdPeerThread) of object;

---

Наверх