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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как узнать ОСНОВНОЙ ШЛЮЗ на своём компе, Не знаю как определить 
:(
    Опции темы
gerebecc
Дата 8.4.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Сушествует обучалки как узнать  IP-адреса и маску подсети, а вот узнать какой у  тебя шлюз нигде не найдёшь. Я весь нет перерыл даже близко не чего не нашёл.  smile 
PM MAIL   Вверх
Rennigth
Дата 8.4.2008, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 15
Всего: 76
gerebecc, 
GetAdaptersInfo

Добавлено через 3 минуты и 28 секунд
Пример уже давал тут только как я понимаю тебе нужен будет в структуре TAdaptersStruct поле GatewayList.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
gerebecc
Дата 8.4.2008, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
кстати если кому нужно , пример как изменить его 
Код

ShellExecute(Handle, 'open','netsh','interface ip set address name="Подключение по локальной сети" static 192.168.0.22 255.255.255.0 192.168.0.251 1', nil, SW_SHOWNORMAL);

192.168.0.22    -  IP
255.255.255.0 -  Маска подсети
192.168.0.251  -  ОСНОВНОЙ ШЛЮЗ
остальные параметры , я думаю не у кого не возникнут вопросы.

Добавлено через 9 минут и 32 секунды
Rennigth а нет что нибудь по короче , фунцию или процедуру которая определяет основной шлюз, я там не смогу найти это слишком тяжело для меня   smile 
PM MAIL   Вверх
Rennigth
Дата 8.4.2008, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 15
Всего: 76
Цитата(gerebecc @  8.4.2008,  18:28 Найти цитируемый пост)
Rennigth а нет что нибудь по короче , фунцию или процедуру которая определяет основной шлюз, я там не смогу найти это слишком тяжело для меня 

дык там и делать ничего не надо, копипастишь, а при выводе к примеру на экран делаешь примерно следующее:
Код

var
  lAdapterList: TAdaptersStructList;
  lGateWays: string;
  i, j: Integer;
begin
  lAdapterList := GetAdapterList;
  for i := Low(lAdapterList) to High(lAdapterList) do
  begin
    lGateWays := '';
    for j := Low(lAdapterList[i].IPAddressList) to High(lAdapterList[i].IPAddressList) do
      lGateWays := lGateWays + '  ' + lAdapterList[i].GatewayList[j].IPAddress;
    ListBox.Items.Add(lAdapterList[i].AdapterName + ' : ' +  lGateWays);
  end;


Добавлено через 3 минуты и 48 секунд
ЗЫ: совсем народ обленился, копипаст ужо не устраивает...  smile 

Это сообщение отредактировал(а) Rennigth - 8.4.2008, 19:10


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
gerebecc
Дата 9.4.2008, 00:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Rennigth  огромное спасибо  smile наконец-то всё работает!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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