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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.12.2007, 15:34
Аватар для alikoder
alikoder alikoder вне форума
Начинающий
 
Регистрация: 05.12.2007
Сообщения: 126
Репутация: 10
По умолчанию может кто знает

Нужно определить ip моего пк, пробывал Online ip компонент, и другие методы, показывает ip локального соединения а не интрернета, может из-за ASDN модема? локальный находит 192.168.1.2 хотя мой ip в нете 90.65.и тд.
Ответить с цитированием
  #2  
Старый 29.12.2007, 19:00
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от alikoder
Нужно определить ip моего пк, пробывал Online ip компонент, и другие методы, показывает ip локального соединения а не интрернета, может из-за ASDN модема? локальный находит 192.168.1.2 хотя мой ip в нете 90.65.и тд.
Поищи ответ в этом разделе.
Ответить с цитированием
  #3  
Старый 30.12.2007, 00:51
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Восклицание Пример

1. Добавляешь в список используемых модулей IdStack
2. Перед последним end. вставишь эти две секции:
Код:
initialization
GStack:=TidStack.CreateStack;

finalization
GStack.Free;
3. GStack.LocalAddresses.Text - возвращает список используемых ip-адресов, можно делать так:
кидаешь на форму компонент TMemo и пишешь:
Код:
Memo1.Lines.Add(GStack.LocalAddresses.Text);
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием
  #4  
Старый 30.12.2007, 08:35
Аватар для alikoder
alikoder alikoder вне форума
Начинающий
 
Регистрация: 05.12.2007
Сообщения: 126
Репутация: 10
По умолчанию

спасиб помогло
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter