Entwickler-Ecke :: Thema anzeigen - Wie kann ich beim HTTPServer den DefaultPort selber eingeben

Sniky - Mi 23.04.08 17:02
Titel: Wie kann ich beim HTTPServer den DefaultPort selber eingeben

Hallo Ihr Lieben,

ok, das mit dem prüfen ob schon was auf port 80 läuft hab ich jetzt gelösst, ich gucke einfach ob localhost oder 127.0.0.1 schon zu erreichen ist und wenn ja starte ich den server erstmal nicht... nur hab ich da jetzt gleich das nächste problem...

Ich möchte dann gerne, wenn der Server nicht gestartet ist den Port von diesen Server über ein Formularfeld ändern.

Nun hab ich ja schon rausgefunden wo ich den port ändere und das es so auch funktioniert:

object HTTPServer: TIdHTTPServer
Active = True
Bindings = <>
DefaultPort = 2001
OnCommandGet = HTTPServerCommandGet
AutoStartSession = True
SessionTimeOut = 1200000
Left = 168
Top = 24
end

da steht ja dann der defaultPort (hab ich erstmal auf 2001 gestellt)

Nur steht das ja jetzt in der main.cfg... wenn das jetzt in der main.pas stehen würde, wüsste ich das ja vielleicht sogar wie ich das machen könnte, nur so weiß ich das jetzt leider gar nicht

Ich hab mir jetzt schon ein Textfeld angelegt und alles versucht nur bekomme ich das irgend wie wirklich nicht hin.

Mein Textfeld heißt jetzt: Edit1 und in dieses trage ich eigentlich den Port ein und mochte dann ganz gerne, das DefaultPort dann das wird was im Edit1 Feld steht.

Kann mir da vieleicht jemand sagen wie ich das machen kann?

Vielen Dank!

Liebe Grüße,
Sniky

Yogu - Mi 23.04.08 17:13

Hallo

Sniky,

du willst also während der Laufzeit den Port ändern. Wann soll das passieren? Normalerweise bei einem Klick auf eine Schaltfläche. Natürlich darf nicht verbunden sein - das ist klar. Wenn das alles stimmt, dann kann der neue Port zugewiesen werden.

Schreiben wir das doch mal in Delphi:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Prozedur zum Ereignis "OnClick" von "Button1". Wird beim Klick aufgerufen.
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Wenn verbunden, Prozedur verlassen.
  if HTTPServer.Connected then Exit;

  // Wandelt den eingegebenen Wert in eine Zahl um
  HTTPServer.Port := StrToInt(Edit1.Text);
end;

War doch gar nicht so schwer, oder?

Grüße,
Yogu

Sniky - Mi 23.04.08 17:21

Yogu hat folgendes geschrieben:

Hallo

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Prozedur zum Ereignis "OnClick" von "Button1". Wird beim Klick aufgerufen.
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Wenn verbunden, Prozedur verlassen.
  if HTTPServer.Connected then Exit;

  // Wandelt den eingegebenen Wert in eine Zahl um
  HTTPServer.Port := StrToInt(Edit1.Text);
end;

War doch gar nicht so schwer, oder?

Grüße,
Yogu

wenn es so jetzt auch noch geht war es wirklich nicht schwer :D

ich teste mal... wenn nicht meld ich mich noch mal... danke!

Liebe Grüße,
Sniky

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!