| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Получение IP-адреса через имя машины.

Termik ©   (2002-02-15 10:10:00) 

HELP !
Помогите, кто знает, как воспользоваться функцией GetHostByName для получения IP-адреса по имени машины.Желателен пример кода.
Заранее благодарю.

---

Dimka Maslov   (2002-02-15 15:20:00) [1]

function GetIPAddress(NetworkName: TString): TString;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Error:=WSAStartup(MakeWord(1, 1), Data);
if Error = 0 then begin
HostEntry:=gethostbyname(PChar(NetworkName));
Error:=GetLastError();
if Error = 0 then begin
Address:=PInAddr(HostEntry^.h_addr_list^)^;
Result:=inet_ntoa(Address);
end else begin
Result:="Unknown";
end;
end else begin
Result:="Error";
end;
WSACleanup();
end;

---

Digitman (M)   (2002-02-15 10:40:00) [2]

см. модуль Scktcomp.pas (в версии 5.5 - строка 857)
function TCustomWinSocket.LookupName(const Name: string): TInAddr;

---

Наверх