Скачать: CL | DM;

Как создать TCPServer в Runtime?   Найти похожие ветки 

← →
anton.   (2004-06-17 10:11) [0]

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;

---

← →
Reindeer Moss Eater ©   (2004-06-17 10:13) [1]

OnExecute : procedure(AThread: TIdPeerThread) of object;

---

← →
anton.   (2004-06-17 10:21) [2]

пока не понял

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

---

← →
Reindeer Moss Eater ©   (2004-06-17 10:35) [3]

понимай пока

---

← →
Anatoly Podgoretsky ©   (2004-06-17 11:06) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c