@fiasko: Genau so mein ichs! Super! Hatte selbst schon das so ähnlich geschrieben. Ungefähr so vom Schema:
Delphi-Quellcode:
type
TServer = class(TIdTCPServer)
procedure Execute(AThread: TIdPeerThread);
end;
procedure TServer.Execute(AThread: TIdPeerThread);
begin
//
end;
procedure TForm1.Button1Click(Sender: TObject);
var
IdTCPServer1: TServer;
begin
IdTCPServer1 := TServer.Create(nil);
try
with IdTCPServer1 do
begin
OnExecute:=IdTCPServer1.Execute;
DefaultPort:=1234;
Active:=true;
end;
finally
IdTCPServer1.Free;
end;
end;
aber irgendwie gings nie!
Und jetzt wo ich deinen Code so umgschrieben hab, gehts!!!
Vielen Dank!!!