Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как узнать ОСНОВНОЙ ШЛЮЗ на своём компе

Автор: gerebecc 8.4.2008, 18:21

Сушествует обучалки как узнать IP-адреса и маску подсети, а вот узнать какой у тебя шлюз нигде не найдёшь. Я весь нет перерыл даже близко не чего не нашёл. smile

Автор: Rennigth 8.4.2008, 18:24

gerebecc,
GetAdaptersInfo

Добавлено через 3 минуты и 28 секунд
Пример уже давал http://forum.vingrad.ru/forum/topic-176484/anchor-entry1284448/0.html только как я понимаю тебе нужен будет в структуре TAdaptersStruct поле GatewayList.

Автор: gerebecc 8.4.2008, 18:28

кстати если кому нужно , пример как изменить его

Код


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

Автор: Rennigth 8.4.2008, 19:09

Цитата(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

Автор: gerebecc 9.4.2008, 00:51

Rennigth огромное спасибо smile

наконец-то всё работает!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!