datei erstellen??

[thomasdrewermann]

Hallo Ninja,
herzlich willkommen in der Delphi-Praxis.
Ich denke deine Frage zielt darauf ab die IP-Adressen eines Rechners zu ermitteln. Falls ja kannst du folgenden Code dazu verwenden:

Delphi-Quellcode:

uses WinSock;

function GetLocalIPs: String;
type PPInAddr= ^PInAddr;
var
  wsaData: TWSAData;
  HostInfo: PHostEnt;
  HostName: Array[0..255] of Char;
  Addr: PPInAddr;
begin
  Result:='';
  if WSAStartup($0102, wsaData)<>0 then exit;
  try
    if gethostname(HostName, SizeOf(HostName)) <> 0 then exit;
    HostInfo:= gethostbyname(HostName);
    if HostInfo=nil then Exit;
    Addr:=Pointer(HostInfo^.h_addr_list);
    if (Addr=nil) or (Addr^=nil) then exit;
    Result:=StrPas(inet_ntoa(Addr^^));
    inc(Addr);
    while Addr^<>nil do begin
      Result:=Result+^M^J+StrPas(inet_ntoa(Addr^^));
      inc(Addr);
    end;
  finally
    WSACleanup;
  end;
end;

Ich hoffe es klappt.

MFG
Thomas