Delphi IP-Adresse über NetBios-Name ermitteln

Thema durchsuchen

Ansicht

Themen-Optionen

IP-Adresse über NetBios-Name ermitteln

Ein Thema von Changer · begonnen am 20. Okt 2003 · letzter Beitrag vom 20. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

Changer

Registriert seit: 15. Okt 2003
Ort: Stuttgart
22 Beiträge

Re: IP-Adresse über NetBios-Name ermitteln

20. Okt 2003, 15:09

Habs doch schon selbst rausgefunden.
Poste mal meine Lösung hier falls noch wer das Problem hat.
Vielleicht weiß ja noch wer eine bessere Lösung und posted sie

zusammenfalten · markieren

Delphi-Quellcode:

			var ip : string;

    phoste : PHostEnt;

    WSAData : TWSADATA;

begin

ip := 'netbiosname';

if WSAStartup($0101, WSADATA) = 0 then begin

   phoste := GetHostByName(pchar(ip));

   ip := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));

   WSACleanup;

end;

ShowMessage(ip);

end;