Indy TCP Server nur max ~100mal instanziierbar ?

[Sharky]

Zitat von supermuckl:

...

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
server: Tidtcpserver;
begin
  for i := 1 to 5000 do 
  begin
    server := Tidtcpserver.Create(nil);
    [color=red]server.DefaultPort := i;[/color]
  end;
end;

...

Hai supermuckl,

hat nicht direkt etwas mit deiner Frage zu tun. Aber ist es absicht das Du die Ports von 1 aufwährts belegen möchtest?
Da wirst Du so oder so Probleme bekommen!