![]() |
Модераторы: Snowy, Poseidon, MetalFan |
![]() ![]() ![]() |
|
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Привет всем!
Столкнулся с такой проблемой Нужно изменить в программе настройки tcp/ip соединения.....т.е. пользователь в определенные поля заносит сетевые реквизиты от провайдера - и они собственно говоря при нажатии на кнопку сменяются.....вот... Материала в гугле не много нашел - вот ссылки http://www.delphisources.ru/forum/showthread.php?p=13854 http://programmersforum.ru/archive/index.php/t-877.html http://www.online-admin.com/ntset.html (компонент NTFirewall) http://msdn.microsoft.com/library/default....tconnection.asp если пробовать менять с помощью netsh - то нужно знать имя самого подключения(а оно может отличаться от дефолтного "Подключение по локальной сети") эту информацию конечно можно получить из вывода команд - либо ipconfig - либо - netsh interface show interface но возникает вопрос - как парсить, извлечь из этого вывода наименование подключения? NTFirewall - это делает - но он коммерческий компонент... Посоветуйте что-нибудь ![]() P/S/ - если исходники на других языках - рассмотрю любые варианты) Это сообщение отредактировал(а) fredEburg - 29.4.2008, 15:53 |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
||||
|
||||
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Snowy - пример программы описывает только получение списка адаптеров, а для netsh необходимо именно имя самого подключения ("Подключение по локальной сети")
или если знаете как с помощью названия сетевого адаптера сменить ip, dns, маску, шлюз -буду только рад ![]() Это сообщение отредактировал(а) fredEburg - 29.4.2008, 18:56 |
|||
|
||||
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Решил проблему поиска имен подключений
но теперь возникла другая проблема - то ли netsh не понимает когда подставляю полученное имя соединения - да же когда перекодировал в Dos.... кто-нибудь знает как посмотреть отображение в командной строке....а то она быстро мелькает, а текст в ней - какую команду она там выполняет увидеть невозможно)) вот код, который список подключений выводит
|
|||
|
||||
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
вообщем вроде написал, но работает через раз...может кто-нибудь объяснить в чем проблема тут??
работает, если давать еще время на выполнение для каждой смены, но опять же как-то через раз:(
народ) правда подсказывает все дулать через WMI http://www.delphi3000.com/articles/article_4392.asp?SK= http://msdn.microsoft.com/en-us/library/aa394595.aspx опять если делать через wmi - то как там реализовать выбор сетевого подключения или давже самого адаптера, для которого менять сетевые настройки?? есть идеи??? |
|||
|
||||
Seeker |
|
||||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 23.11.2006 Репутация: 1 Всего: 1 |
Решаю сейчас аналогичную задачу что и вы. Только настроичную часть почти закончил уже.
Через wmi я для себя писал такую функцию вытаскивания инфы по всем адаптерам:
возвращает:
NetConnectionID грубо говоря и есть "Подключение по локальной сети..." NetConnectionStatus статус подключения з.ы. В моем примере к wmi подключаюсь через локатор, для этого нужно импортнуть Microsoft WMI Scripting V1.2 Library можно и через моникер как в одной из приведенных вами ссылок, тогда вообще ничего не нужно дополнительного з.з.ы. Инфа выдается только по активным сетевым подключениям. Другие меня не интересовали. Иначе нужно убрать строчку " 'and NetConnectionStatus=2'," Это сообщение отредактировал(а) Seeker - 3.5.2008, 10:37 |
||||
|
|||||
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Seeker - мегасенкс что откликнулся......а то в wmi немного устал искать инфу(нашел хороший пример на C#, но когда основа уже на делфях написана не хочется усложнять все)))..
в твоем коде только не разобрался как саму функцию вызывать? ADeviceID откуда берется? ![]() |
|||
|
||||
Seeker |
|
||||||||
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 23.11.2006 Репутация: 1 Всего: 1 |
Null передаешь в нее чтобы вернуть инфу о всех адаптерах.
Примерно так:
В общем заполняешь данными тот элемент управления через который будет инфу показывать. з.ы. вот полный код как у меня есть занесения этой инфы в таблички. Понятно что один в один тебе он не понадобится. Да и избыточный малось, но лень переделывать ![]()
з.з.ы. Сразу кину подправленные варианты функций по настройки всякого разного. Функции я брал на этом форуме изначально, да и по одной из твоих ссылок они есть... Настройка адресов и шлюза. Первый параметр - на каком адаптере настраивать. Остальные могут быть либо строки либо вариантные массивы чтобы установить несколько адресов.
Для DNS тож. самое
Это сообщение отредактировал(а) Seeker - 4.5.2008, 12:46 |
||||||||
|
|||||||||
fredEburg |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Seeker - ..мегареспект
![]() добавил только альтернативный dns....щас еще проверю на нескольких интерфейсах(думаю без проблем заведется).... ![]() |
|||
|
||||
BigSandy |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 11.12.2011 Репутация: нет Всего: нет |
Добро день.
Как установить вице ИП ячеек. Это есть подобная. http://www.delphi3000.com/articles/article_4392.asp?SK= Одну ИП приставил таким образом. SetIpConfig(' 110.148.195.23 ' ,'10.148.195.1','255.255.255.224') Как отделать здройак чтобы я моh установить вице ИП 110.148.195.23 ' ,'10.148.195.1','255.255.255.224 + 192.168.1.100 ' ,'192.168.1.1','255.255.255.255 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |