IP vom Client über den Server ermitteln

[Clane]

also ich schreibe grade n kleines prog eher n test für neuses wissen allerdings hab ichn problem ... und zwar ich habe einen client und einen server so ich will das der client mit IP inner listbox im serverfenster auftaucht ... allerdings soll bis dahin funkstille herschen es sollen also keine daten ausgetauscht werden .... außer dem login wie kann ich das machen oder geht das nur in dem der client seine ip selber ermittelt und dann an den serverschickt und der server die dann in die listbox setzt ??

Clane

[Zacherl]

Was für Komponenten benutzt du denn?

//Edit:
Normalerweise kann der Server im Connect Ereigniss die IP des Clients auslesen, ohne Daten zu empfangen.

[Clane]

also ich benutze indy9 und da den idtcpserver und idtcpclient ... und ich wollt das auch mit onconnect machen .. geht ja garnich anders nur wie kann der server die ip auslesen ??

[marabu]

Der event handler OnConnect() von TIdTCPServer liefert den passenden Thread und dessen Eigenschaft Connection.Socket.Binding.PeerIP sollte die Adresse bzw. den DNS-Namen des Client enthalten.

Grüße vom marabu

[Clane]

hmmm wie isn der code ?? ich bekomm den scheiß nich hin .... kann mir da jemand helfen ??

[Sharky]

Zitat von Clane:

hmmm wie isn der code

Fertigen Code wirst Du hier nicht bekommen wenn Du nicht zeigst was Du schon gemacht hast.

Zitat:

... ich bekomm den ****** nich hin ....

"Bitte" ändere deine Wortwahl. In der DP haben wir kein Interesse an solchen Krafausdrücken.

[Clane]

öhm ich kanns ja verstehn das hier solche ausdrücke unangebracht sind .... nur wenn du schon ca 8 stunden nur an sonner eigentlichen kleinen stelle hängst hat man einfach kein bock mehr .... und gemacht hab ich bisher .... nix davon .... da steht nur

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
listbox1.Items.Add()
end;

und der ganze kram drumherum den ich schon gemacht hab

[Clane]

kann mir denn keiner helfen ??

[Klaus01]

mit ein wenig Überlegung, wärst Du sicherlich auch hierzu gekommen,
war in dem Beitrag von marabu schon so beschrieben.
Selber denken macht schlau ;o)

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  listbox1.Items.Add(AThread.connection.socket.binding.peerIP);
end;

Grüße
Klaus

[Clane]

thx hatte das AThread vergessen ... ich hatte es ja gelesen aber das AThread vergessen hin zu schreiben -.-