Форум: "Сети";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.03 c