TidTCPServer.Bindings zur Laufzeit setzen

[Hackbard]

Tja, äh ich glaub ich bin grad ziemlich doof:

Ich hab mich grad mal in die Indy so irgendwie reingemogelt und auch eine einfache Verbindung zwischen zwei Rechnern erstellt, die auch soweit funktioniert. Doch nun mein Problem:
Mein Program soll ja nicht nur in meinem Testnetz funktionieren, sondern auch auf anderen Rechnern d.h. ich muß die IP /Port Enstellungen anpassen.
Im Client ist das ja auch kein Problem Port und IP hab ich in nen Registry Key geschrieben und les die OnActivate wieder aus.
Wie jedoch pass ich auf Server Seite die Bindings an?
Offline funktioniert das ja, aber zur Laufzeit bin ich grad zu blöd den Bindings irgendwas zuzuweisen.
Irgendwie muß ich da ja die Locale IP sowie Port eintragen.
(Ich glaub ich sitz grad zu lang am Rechner) Hat mir jemand einen Tipp?

[ATwardz]

Was hast du genau für ein Problem?

Wenn du die IP bzw. den Port veränders, muss du die Verbindung erst kappen und neu aufbauen!
Wei du die nun zuweisst? nun, dem Server brauchst du ja nur den Port zu sagen über den er mit dem Client kommunizieren soll und das wars!
Oder was ist dein Prob?


ATwardz

[Hackbard]

Danke, Ich habs:
Mein Problem war, das ich davon ausging dass in Bindings die LokaleIP gesetzt werden MUSS und ich es nicht geschafft habe Bindings zur Laufzeit einen Wert zuzuweisen. Jetzt hab ich Bindings aber einfach mal kompllett leer gelassen und es funktioniert tadllos

Man bin ich doof!

Gruß
Hackbard

[Chris1986]

Die lokale IP muss doch garnicht eingegeben werden, sondern nur der Port
Den setzt du mit:

Delphi-Quellcode:

idTCPServer1.Bindings.Clear
idTCPServer1.Bindings.DefaultPort := strtoint(edit1.text);

MfG
Christian