TIdTCPServer meldet "Port is in use" bei allen Ports

[sx2008]

Das ist natürlich ungeschickt - du verdeckst die eigentliche Meldung komplett!!

Delphi-Quellcode:

try
  oTCPServer.Active      := True;
except
  Writeln('[' + TimeToStr(Now()) + ' - ' + DateToStr(Now()) + '] info -> port ' + IntToStr(iPort) + ' is in use.');
end;

Warum nicht so:

Delphi-Quellcode:

try
  oTCPServer.Active      := True;
except
  on E:Exception do
    Writeln('[' + FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) + '] info -> ' + E.Message;
end;