Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.08.2011, 17:25
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию Выдернуть адрес клиента из VPN-подключения

Доброго времени суток!

На компьютере для доступа к интернету есть VPN-подключение. Собственно вопрос: как получить ip-адрес клиента в интернете после подключения? Адрес назначается автоматически провайдером, т.е. каждый раз при подключении изменяется.

Заранее спасибо!
Ответить с цитированием
  #2  
Старый 30.08.2011, 18:22
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

зайти индей на айпи информер
Ответить с цитированием
  #3  
Старый 01.09.2011, 15:20
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

Цитата:
Сообщение от einstein
зайти индей на айпи информер
Ты имеешь ввиду, что через TIdHTTP зайти на сайт и стянуть оттуда свой адрес?
Ответить с цитированием
  #4  
Старый 01.09.2011, 15:35
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

не надо инди. вот пример консольного приложения:

Код:
program GetIP;

{$APPTYPE CONSOLE}

uses
  msxml, ComObj, ActiveX, Windows, Messages;

var
  XMLHTTP: IXMLHttpRequest;

begin
  CoInitialize(nil);
  XMLHTTP:=CreateOleObject('Microsoft.XMLHTTP') as IXMLHttpRequest;
  XMLHTTP.open('GET', 'http://j2me.webservis.ru/ip.php', False, '', '');
  XMLHTTP.setRequestHeader('If-Modified-Since', '0');
  XMLHTTP.send('');
  if XMLHTTP.status=200 then Writeln('IP = '+XMLHTTP.responseText)
  else Writeln('Oops');
  Write('Press any key...');
  Readln;
end.

или http://j2me.webservis.ru/ip2.php
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 01.09.2011 в 15:38.
Ответить с цитированием
  #5  
Старый 02.09.2011, 22:26
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

Спасибо, NumLock. Но интересует именно вариант получения IP-адреса с компьютера, а не с веб-сайтов (VPN-подключение -> Состояние -> Подробнее).
Ответить с цитированием
  #6  
Старый 03.09.2011, 09:59
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Посмотри в сторону RAS API.
Вроде бы его используют для управления удаленными соединениями.
http://rsdn.ru/article/net/rasstat.xml
Ответить с цитированием
  #7  
Старый 03.09.2011, 15:41
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

Сложновато для "любителя". Но все равно спасибо, вроде то, что искал.
Ответить с цитированием
  #8  
Старый 03.09.2011, 18:57
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Вроде можно нагуглить ras.pas - будет легше
Ответить с цитированием
  #9  
Старый 03.09.2011, 20:06
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

впн сервер не обязан сообщать внешний айпи.
Ответить с цитированием
  #10  
Старый 06.09.2011, 21:57
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

Цитата:
Сообщение от einstein
впн сервер не обязан сообщать внешний айпи.
Я его могу узнать, зайдя в состояние подключения VPN.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:02.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter