IP Adressen im Netzwerk

[Sharky]

Hai Bigmichi,

mit dieser Funktion solltest Du den Namen in die IP auflösen können:

Delphi-Quellcode:

function GetIpAddress(aComputer: string): string;
var
  pHost: PHostEnt;
  WSAData: TWSADATA;
begin
  Result := '';
  if WSAStartup($0101, WSAData) <> 0 then
  begin
    exit
  end;
  pHost := GetHostByName(PAnsiChar(aComputer));
  if pHost = nil then
  begin
    Result := '127.0.0.1'
  end
  else
  begin
    Result := StrPas(inet_ntoa(PInAddr(pHost^.h_addr_list^)^))
  end;
  WSACleanup;
end;

procedure TForm1.btn_Button1Click(Sender: TObject);
begin
  ShowMessage(GetIpAddress(edt_Edit1.Text));
end;