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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как определить внешний IP 
:(
    Опции темы
Orient
Дата 15.5.2006, 01:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Коллеги, приветствую!

Подскажите, как можно определить мой внешний IP-адрес, после соединения с интернетом?
Пытался, пробовать пример из faq по выводу все IP адресов, да толи руки у меня не от туда, толи он действительно не рабочий.

Спасибо 
PM MAIL   Вверх
RA
Дата 15.5.2006, 03:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 10
Всего: 115
зайти на
http://www.whatismyip.com и пропарсить. 

или получить список всех своих IP, а какой из них используется это уже другой вопрос.

Код

Uses Winsock;

function getIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines := GetIps;
end;
 
PM   Вверх
Orient
Дата 15.5.2006, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А кто-нибудь знает как в этом отношении аська работает? Просто мне надо что-то подобное написать 
PM MAIL   Вверх
Orient
Дата 15.5.2006, 08:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Попробовал код. Работает выдал мне аж три айпишника. Только вот незадача, ни один из них не соответствует тому, что выводится на сайте  :-( 
PM MAIL   Вверх
RA
Дата 15.5.2006, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 10
Всего: 115
значит ip-шники твои статические, а динамического у тебя нету smile можеш купить себе динамический, говорят эта услуга стоит 5 баксов.  
PM   Вверх
Orient
Дата 15.5.2006, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Да сдались они мне, покупать их   smile   Просто хотелось бы знать как же аська работает. Ей наверно тоже надо знать свой IP. Логично? 
PM MAIL   Вверх
_hunter
Дата 15.5.2006, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
аська никак не работает -- ей ее сервер все сообщает 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Orient
Дата 15.5.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Но ведь для того чтобы сервер ей что-то сообщил, серверу надо знать ее IP. Я разве не прав? 
PM MAIL   Вверх
Romikgy
Дата 15.5.2006, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Цитата(Orient @  15.5.2006,  09:41 Найти цитируемый пост)
Просто хотелось бы знать как же аська работает

организуешь в нете сервер, и общаешься с ним запрос-ответ, и будет как у аси smile 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Orient
Дата 15.5.2006, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Romikgy, чудесно  smile  а блин, по какому IP я буду от сервака сообщения слать?   Вся ж промблема то в том, что мне нужно выяснить свой IP в инете. 

Это сообщение отредактировал(а) Orient - 15.5.2006, 12:47
PM MAIL   Вверх
_hunter
Дата 15.5.2006, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
Цитата(Orient @  15.5.2006,  12:12 Найти цитируемый пост)
Я разве не прав?

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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Orient
Дата 15.5.2006, 13:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
_hunter, согласен, но по-моему,  аська не посылает запросы серверу. Тогда бы такой трафик был...  Т.е. получается сервак сервак присылает аське сообщения, т.е. он знает ее IP  smile 
PM MAIL   Вверх
_hunter
Дата 15.5.2006, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
Цитата(Orient @  15.5.2006,  13:09 Найти цитируемый пост)
но по-моему,  аська не посылает запросы серверу

это тебе только кажется.

Цитата(Orient @  15.5.2006,  13:09 Найти цитируемый пост)
Т.е. получается сервак сервак присылает аське сообщения, т.е. он знает ее IP  smile 

у меня стенкой входящие соединения запрещены. а аська работает. странно... 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
N1k
Дата 15.5.2006, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 2
Всего: 2
Цитата(Orient @  15.5.2006,  13:09 Найти цитируемый пост)
Т.е. получается сервак сервак присылает аське сообщения, т.е. он знает ее IP

Конечно знает, во время своей работы "аська" делает как минимум одно соединение к серверу авторизации.
Если пароль соответствует номеру, то сервер авторизации выдает "аське" IP и порт для работы, после чего происходит разрыв соединения с сервером авторизации и конект к рабочему серверу.
соединение с рабочим сервером поддерживается постоянно. Закрытие означает что процедуру авторизации нужно повторить сначала.
Ну а IP присоединенного клиента я думаю определить не сложно. 
PM MAIL   Вверх
Romikgy
Дата 16.5.2006, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7325
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146
Цитата(Orient @  15.5.2006,  11:46 Найти цитируемый пост)
по какому IP я буду от сервака сообщения слать?

Просто все соединения айпи двунаправлены, и если ты соединяешься с сервером, то и ты можешь слать сообщения и сервер шлет тебе, 
и к асе , именно твой клиент аси запращивает " а нет ли для меня какой либо мессаги" smile 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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