IPs auslesen und in Variable legen

[SirThornberry]

Im übrigen hast du die falsche Funktion genommen. Die untere Funktion liefert alle IP-Adressen.

[internetnavigator]

okay ober wie kann ich jetzt result zur Voransicht in ein Edit Feld "bekommen"?
mit:
Edit1.Text := result; geht's nicht.

(Edit1 wird in der function auch nicht erkannt (Undefinierter Bezeichner))
mfg internetnavigator

[Sko]

So sollte es gehen:

Delphi-Quellcode:

unit Ip_read;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSock, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function GetIpAddress: string;  
var phoste: PHostEnt;
    Hostname: array [0..100] of char;
begin
  GetHostName(Hostname,Sizeof(Hostname));
  phoste:=GetHostByName(Hostname);
  if phoste = nil then result:='127.0.0.1'
  else result:=String(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
end;

procedure TForm1.Button1.Click(Sender: TObject);
begin
  Edit1.Text := GetIPAddress;
end;

end.

[internetnavigator]

thanks Sko
aber ich bekomme nur meine localhost adresse (127.0.0.1) herraus, und nicht meine
Netzwerk IP (xxx.xxx.0.3) / I-net IP.
Woran kann das liegen?
bye

[SirThornberry]

wie ich bereits geschrieben habe hast du die falsche Funktion genommen. Bei dem von mir geposteten Link sind 2 Funktionen. Die obere welche die erste IP liefert und darunter eine Funktion welche alle IP's auflistet.

Steht aber auch in dem Beitrag zu dem ich den Link gepostet hab was welche Funktion macht. Einfach mal etwas genauer die Beiträge lesen und nicht nur überfliegen und die hälfte überlesen.