Hi ihrs!
Weiß jemand wie ich das hinbekomme??? (Ohne ein Forumlar)
Delphi-Quellcode:
var
IdTCPServer1: TIdTCPServer;
begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
begin
DefaultPort:=1234;
Active:=true;
end;
end.
soweit komm ich ja noch aber wenn ich dann auch will, dass was passiert, wenn der Server was empfängt:
Delphi-Quellcode:
var
IdTCPServer1: TIdTCPServer;
procedure IdTCPServer1Execute(AThread: TIdPeerThread);
begin
//
end;
begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
begin
OnExecute:=IdTCPServer1Execute; // Will Borland nicht!
DefaultPort:=1234;
Active:=true;
end;
end.
Spielt Borland nicht mehr mit!
Kennt jemand ne lösung???
Vielen Dank schon mal!