Вопрос № 157969: Здравствуйте. Пишу программу на делфи с помощью которой можно обмениваться файлами в сети, в связи с этим возник вопрос как можно програмно получить IP адреса, причем как внутренний( Ip присвоенный сетевой карте), так и внешний (VPN соединение). З...
Вопрос № 157.969
Здравствуйте. Пишу программу на делфи с помощью которой можно обмениваться файлами в сети, в связи с этим возник вопрос как можно програмно получить IP адреса, причем как внутренний( Ip присвоенный сетевой карте), так и внешний (VPN соединение). Заранее благодарю за помощь.
Отправлен: 17.01.2009, 17:56
Вопрос задал: Krash (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Armad
Здравствуйте, Krash! Заранее прошу прощения у академиков) Оффтоп Внутренний адрес можно получить прочитав вывод команды ipconfig /all как стартовать в консоли и получить вывод от нее посмотрите например здесь - Мастера Delphi (в любом поисковике Вам первой ссылкой покажут путь) Как считать вывод команды можно посмотреть там же, можно поискать слова вывод, консоль, cmd, bat - и т.д. Насчет VPN - не подскажу. Как и дельфина к VPN подобраться не знаю. Да, еще могу посоветовать Delphi World
- сборка всевозможных советов.
Еще раз, сорри за НЕ ответ.
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 17.01.2009, 18:37
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 241430 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 2
Отвечает: PavelGM
Здравствуйте, Krash!
Есть решение через IPHLPAPI.DLL функция GetAdaptersInfo возвращает IP для всех адаптеров (если не ошибаюсь, включая виртуальные, т.е. возможно и VPN, но не проверял), а дальше уже проверкой параметров адаптера можно отсечь ненужные (там еще и Firewire попадает и Bluetooth).
Если возникнут трудности по использованию функции пишите в мини-форуме.
P.S. Проверил VPN - он тоже есть в списке адаптеров - у него тип 23, тогда как у Ethernet - 6
Ответ отправил: PavelGM (статус: Практикант)
Ответ отправлен: 19.01.2009, 10:47
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 241566 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.