At hente sin egen IP

jeg fandt følgende en gang jeg skulle bruge det samme:

1. Start a new application
2. Add the Winsock unit to the uses clause.
3. Replace the form create procedure with the following:

----8<--------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
  WSAData: TWSAData;
  FUnit, Scratch: String;
  HostEnt: PHostEnt;
begin

  // Initialise the sockets interface
  WSAStartup($0101, WSAData);

  // Set FUnit to the name of the PC you want the IP address of.
  // An empty string means the local machine.
  FUnit := '';

  // Get IP address of FUnit
  HostEnt := gethostbyname(PChar(FUnit));

  // Was call OK?
  if HostEnt <> nil then begin
    Scratch := IntToStr(ord(HostEnt^.h_addr^[0]));
    Scratch := Scratch + '.' + IntToStr(ord(HostEnt^.h_addr^[1]));
    Scratch := Scratch + '.' + IntToStr(ord(HostEnt^.h_addr^[2]));
    Scratch := Scratch + '.' + IntToStr(ord(HostEnt^.h_addr^[3]));
  end;

  //Clean up sockets interface
  WSACleanUp;

  // Assign IP address to forms caption
  Caption := Scratch;

end;

http://www.swissdelphicenter.ch/torry/showcode.php?id=67

Sæt en TSocket på din Form og brug denne:
Label1.Caption := Socket1.LocalIP;

d34c0n> LocalIP findes ikke! I hvert ikke i Delphi 5 (som jeg har)
the.sandman+dkn> Jeg er ikke meget for bare at copy/paste noget kode fra nettet.
Hvis jeg kna få en forklaring på hvad TWSAData og PHostEnt er, og de funktioner der bliver brugt gør helt præcist så ville jeg blive meget glad.

Jeg fik noget af borrisholt: som kunne give dig alt hvad du skal bruge og mere.

Men jeg har bare ikke kunne dele det op selv.
Men jeg kan sende alle filerne til jer, hvis i vil ?
Bare kom  med jeres mail.

//dl