Платные хостинги     Раскрутка сайта     Книги по программированию

Хост по IP адресу

- Нужно написать 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; утвж

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD