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

GetHostByName   Найти похожие ветки 

← →
Zheka ©   (2003-04-24 10:10) [0]

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

---

← →
Lord Warlock ©   (2003-04-24 10:25) [1]

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


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 структуре.

---

← →
Zheka ©   (2003-04-24 10:32) [2]

спасибо.

---

← →
Lord Warlock ©   (2003-04-24 10:46) [3]

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

WSACleanup;

---

← →
savva ©   (2003-04-24 12:14) [4]

если под 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;


---

← →
savva ©   (2003-04-24 12:15) [5]

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

---

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

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



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