Eigene (Internet)IP rausfinden

[Der_Ventilator]

Zitat von DeddyH:

Vielleicht mitGetHostName(@Buffer[0], SizeOf(Buffer)); :?: Ich hab aber kein D2009, um das auszuprobieren.

Auch wenn ich nicht wirklich verstehe, was beim Aufruf mit @Buffer[0] passiert, (Zeige ich damit nur auf den ersten Buchstaben des Arrays?) funktioniert folgender angepasster Code unter D2009:

Delphi-Quellcode:

function getComputerIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array [0..63] of PAnsiChar;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  GetHostName(@Buffer[0], SizeOf(Buffer));
  phe := GetHostByName(@Buffer[0]);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Vielen Dank