Нужно написать cgi приложение, которое берет из командной строки список IP адресов, обращается к dns серверу и возвращает такой же список хостов этих адресов разделенный запятыми. В случае если запись не найдена на сервере можно выдать пустое значение.

Все это будет работать в Локальной сети...
сразу хочу заметить что специально предназначенная для этого php функция gethostbyaddr не работает в условиях сети

но при наборе IP адреса в браузере легко попадаю на ресурс (в данном контексте я рассматриваю ftp сервера).

где рыца?
thxxxxxx

Попробуй "порыца" на www.sources.ru

Итак.
Описывается функция, которая показывает, как вычислить IP адрес компьютера в интернете по его доменному имени.

Совместимость: Delphi 3.x (или выше)

Объявляем Winsock, для использования в функции
............

Код

function HostToIP(Name: string; var Ip: string): Boolean;   var     wsdata : TWSAData;     hostName : array [0..255] of char;     hostEnt : PHostEnt;     addr : PChar;   begin     WSAStartup ($0101, wsdata);     try       gethostname (hostName, sizeof (hostName));       StrPCopy(hostName, Name);       hostEnt := gethostbyname (hostName);       if Assigned (hostEnt) then         if Assigned (hostEnt^.h_addr_list) then begin           addr := hostEnt^.h_addr_list^;           if Assigned (addr) then begin             IP := Format ('%d.%d.%d.%d', [byte (addr [0]),             byte (addr [1]), byte (addr [2]), byte (addr [3])]);             Result := True;           end           else             Result := False;         end         else           Result := False       else begin         Result := False;       end;     finally       WSACleanup;     end   end;   ................................

Можешь разметстить на форме EditBox, Кнопку и Label и добавить к кнопке следующий обработчик события OnClick:

Код

procedure TForm1.Button1Click(Sender: TObject);   var   IP: string;   begin     if HostToIp(Edit1.Text, IP) then Label1.Caption := IP;

Это сообщение отредактировал(а) p0s0l - 28.9.2005, 15:33