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

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

GetHostByName [D6, Win95/98, WinXP]

Zheka ©   (2003-04-24 10:10:00) 

как при помощи GetHostByName получить предположим
IpHost: string; ?

---

savva   (2003-04-24 12:15:00) [1]

ипрпавление
Host := GetHostByName ("Здесь пиши адрес или имя машины");

---

savva   (2003-04-24 12:14:00) [2]

если под IpHost: string;понимается ip- адрес , то

var
WSAData: TWSAData;
SockAddrIn: TSockAddrIn;
Host: PHostEnt;
IPHost : string;

...

if WSAStartup($101, WSAData) = 0 then begin
Host := GetHostByName"Здесь пиши адрес или имя машины");
if Host<>nil then begin
SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^);
IPHost := inet_ntoa(SockAddrIn.sin_addr);
end;
WSACleanUp;
end;


---

Lord Warlock   (2003-04-24 10:46:00) [3]

После всех операций не забудь

WSACleanup;

---

Zheka   (2003-04-24 10:32:00) [4]

спасибо.

---

Lord Warlock   (2003-04-24 10:25:00) [5]

Можешь побаловаться этим


uses winsock;

var a: PHostEnt;
b: Integer;
w: TWSAData;
begin
b:=2;
WSAStartup(b,w);
a:=GetHostByName("Здесь пиши адрес или имя машины");
if not Assigned(a) then
begin
ShowMessage(SysErrorMessage(WSAGetLastError));
Exit;
end;
ShowMessage(a.h_name);

А вот этого IpHost: string;я не нашел в возвращаемой GetHostByName структуре.

---

Наверх