Форум: "Сети";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];
ВнизПроблема с получением имени хоста по его адресу Найти похожие ветки
← →
Wonder (2001-10-16 18:11) [1]
var
pHostEn : PHostEnt;
destAddress : in_addr;
destHost : PChar;
...
begin
...
pHostEn := gethostbyname(destHost);
if (pHostEn = nil) then begin
//видимо введен IP адрес. Проверим это:
destAddress := in_addr(inet_addr(destHost));
if destAddress.S_addr = u_long(INADDR_NONE) then
begin
//неправильное имя хоста или введен не IP адрес
Exit;
end;
//Был введен IP адрес. Попробуем узнать имя хоста
pHostEn := gethostbyaddr(@destAddress, 4, PF_INET);
if (pHostEn = nil) then
begin
//Имя хоста не разрешается
end
else
destAddress := PInAddr(pHostEn^.h_addr_list^)^;
end;
...
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c