Prüfen, ob Port bereits belegt ist

[DataCool]

Hi,

Amo..... hat genau recht du must die Bindings auch löschen, sonst bekommst Du den FEhler immer wieder !

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ...

  Webserver.DefaultPort := 80;

  while StartWebserver = false do
  begin
    // WEbserver zur Sicherheit hier nochmal anhalten, müßte aber eigentlich defintiv aus seien
    Webserver.Active := false;
    // Jetzt die Bindings löschen/leeren
    Webserver.Bindings.clear;
    // Standrad-Port um eins erhöhen
    Webserver.DefaultPort := Webserver.DefaultPort +1;
  end;

  ...
end;

GRuß Data