Deine Lösung heisst IdIPWatch...
....bevor ich antworte...hat dein Client schon Verbindung zum Server oder nicht?
Wenn ja, dann tu folgendes:
Lass den Client seine IP beim Programmstart mit IdIPWatch auslesen (das ist die einzige Kompo, die ich für sowas nützlich gefunden habe, wenn dem nicht so ist, mich bitte korrigieren). Nun einfach die IP auslesen, z.b. mit der Variable userip.
Quelltext
1:
2:
3:
4:
5:
6:
| var userip : string ; // Die IP vom User (also Client)
procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.Text := idipwatch1.LocalIP; // Hole die IP von IDIPWatch
end; |
Elegant und simpel beim Start geregelt
Was du beachten musst, ist History auf False zu setzen und den Dateipfad für History zu löschen (sons saved er trotzdem ._o k.A. warum).
Dann diese Information entweder per .dat (was blöd ist) oder als Stream an den Server schicken. Der weist das dann z.B. in eine Stringlist ein und ruft es bei Bedarf ab ^^
Das war wieder ein n00biger Beitrag von:
-Shadowdragon-
Ach ja: Falls die Clients noch NICHT verbunden sind, dann k.A. o_O
Siehe villeicht hier:
www.delphi-forum.de/viewtopic.php?t=11492
dank dir ...