Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Проблема с получением имени хоста по его адресу 


PVK   (2001-10-16 17:38) [0]

Здравствуйте.

При попытке получить имя хоста по его адресу возвращается
ошибка WSANO_DATA: Valid name, no data record of requested type.

Фрагмент кода

uses winsock;
...
var
DestAddres:In_addr;
pHostEn:PHostEnt;
error:DWord:
HostName:string;

begin
HostName:="127.0.0.1";
DestAddress.S_addr:=inet_addr(PChar(HostName));

if DestAddress.S_addr=-1
then pHostEn := gethostbyname(PChar(HostName)) //OK
else pHostEn :=gethostbyaddr(PChar(@DestAddress),sizeOf(in_addr),AF_INET ); //Error

error := GetLastError();
end;

Подскажите в чем дело.

Заранее благодарен. (pvk21@list.ru)



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;
...




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-28450           grab                  2001-12-21 18:21  2002.01.10  
Текст из TEdit на одной форме в ячейки таблицы на другой форме


1-28467           Гретый                2001-12-21 21:49  2002.01.10  
Народ у кого-нибудь есть исходники TSpinEdit?


1-28462           Anatoly Podgoretsky   2001-12-21 21:49  2002.01.10  
Как хранить настройки программ - 1


6-28521           Serguar               2001-10-10 12:42  2002.01.10  
Вопрос по TUDPServer/TUDPClient из Indy


1-28499           nevidimie             2001-12-23 13:44  2002.01.10  
Обработка Memo