Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как можно из url получить IP? 
V
    Опции темы
Elfebet
Дата 31.8.2006, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: нет
Всего: 14
вот я к примеру хочу получить IP сайта http://forum.vingrad.ru.
как это сделать?


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
demon13
Дата 31.8.2006, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Elfebet,  посмотри в этой проге вкрадку"Pinger" если то то вылложу исходник smile

Добавлено @ 19:00 
Цитата(Elfebet @  31.8.2006,  18:47 Найти цитируемый пост)
вот я к примеру хочу получить IP сайта http://forum.vingrad.ru.

IP аддрес forum.vingrad.ru 62.75.204.171 smile 
PM MAIL   Вверх
demon13
Дата 31.8.2006, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
через Whois тоже можно, но там много инфы лишней и Whois'ы работают с доменами 1-го уровня, а Пингом можно любова домена IP'шник получить и извлечь его оттуда проще smile  
PM MAIL   Вверх
DemoCode
Дата 31.8.2006, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: нет
Всего: 41
Цитата(demon13 @  31.8.2006,  20:13 Найти цитируемый пост)
через Whois тоже можно, но там много инфы лишней и Whois'ы работают с доменами 1-го уровня

Во-во... поэтому и затёр, чтоб не наставлять на путь неверный. smile

Добавлено @ 19:19 
Быстрее и проще так.
Подключаем 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; 



--------------------
Жить стало лучше, жить стало веселей
© И.В. Сталин 
PM MAIL ICQ   Вверх
demon13
Дата 31.8.2006, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Да уж Пингер отдыхает smile 
PM MAIL   Вверх
Elfebet
Дата 1.9.2006, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: нет
Всего: 14
DemoCode, спасибо! smile 


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
Elfebet
Дата 1.9.2006, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: нет
Всего: 14
слушай DemoCode, а что это за цифра $0101?
Код

WSAStartup ($0101, wsdata);

пробовал перевести твой код на СBuilder, но там этот код не работает smile 
я тут посмотрел что в в делифи функция WSAStartup ($0101, wsdata); возвращает 0, а в билдере 10014.

Это сообщение отредактировал(а) Elfebet - 1.9.2006, 13:37


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
Snowy
Дата 1.9.2006, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
$0101 - говорит, что щас мы будем юзать сокеты версии 1.1
Дело скорее не в цыферках, а в wsadata или объявлении WSAStartup.
Вероятно нужно передать указатель на неё, а не саму wsadata
PM MAIL   Вверх
Elfebet
Дата 1.9.2006, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: нет
Всего: 14
ТОЧНО!!!! спасибо!


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
GoingOnward
Дата 24.4.2007, 04:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.4.2007

Репутация: нет
Всего: нет
или поставь -  WSAStartup(MAKEWORD(1,1), FData);
PM MAIL   Вверх
DemoCode
Дата 24.4.2007, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: нет
Всего: 41
GoingOnward,  smile мне кажется за 8 месяцев Elfebet, как-то решил эту проблему,  smile наверное.


--------------------
Жить стало лучше, жить стало веселей
© И.В. Сталин 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.