Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Eigene IP Adresse ermitteln

  Alt 18. Dez 2009, 15:36
a) Man nutzt die gleichen Möglichkeiten, wie in einer Formularanwendung. --> Frage ist obsolet
b) In dieser Unit gibt es dafür keine Funktionen oder Methoden
c) Mit Indy erstellst du dir ein Objekt von TidIPWatch und suchst dir die passende Methode.
d) Weitere Möglichkeiten wurden genannt oder finden sich u.a hier in der CodeLib

Edit:
Hier sind zwei Lösungen. Aber sie geben nur eine der möglichen IP'n wieder (siehe Astat).
Delphi-Quellcode:
var myIP:string;
begin
  //Variante 1 (idIPWatch)
  with TidIPWatch.create(nil) do
  begin
    myIP:=LocalIP;
    free;
  end;
  memo1.lines.add(myIP);

  // Variante 2 (scktcomp)
  with TClientsocket.Create(nil) do
  begin
    myIP:=inttohex(Socket.LookupName('').S_addr,8);
    free;
  end;
  memo1.lines.add(myIP);
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat