Как создать 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]

понимай пока

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

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