Скачать: CL | DM;

IP-адрес по имени хоста   Найти похожие ветки 

← →
kalishenko stas   (2002-11-20 10:53) [0]

Возник вопрос. Имена машин в рабочей группе я получил. А как получить их IP-адреса (по hostname)? У кого-нибудь есть рабочие исходники?

---

← →
Wonder ©   (2002-11-20 11:47) [1]

Дело в том, что то, что ты получил - это netbios-name

А netbios-имя и hostname - разные вестчи.

Но, для твоей ситуации, вызов gethostbyname() с netbios-именем, я думаю, поможет :)

---

← →
bak ©   (2002-11-20 11:54) [2]

можеть так (нарыл в инете :)

Описывается функция, которая показывает, как вычислить IP адрес компьютера в интернете по его доменному имени.

Совместимость: Delphi 3.x (или выше)

Объявляем Winsock, для использования в функции
............
function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ("%d.%d.%d.%d", [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
................................

Вы можете разметстить на форме EditBox, Кнопку и Label и добавить к кнопке следующий обработчик события OnClick:

procedure TForm1.Button1Click(Sender: TObject);
var
IP: string;
begin
if HostToIp(Edit1.Text, IP) then Label1.Caption := IP;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c