|
Кто подскажет?
|
|
xXxSh@dowxXx
|
Дата: Среда, 09.01.2013, 18:27 | Сообщение # 1
|
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
|
Всем доброго здоровьица 
столкнулся с такой задачей - получить имя активного сетевого подключения, да же готовую функцию удалось отыскать, кстати вот она:
Определение активного подключения
Возвращает название активного интернет-соединения
Зависимости: RAS
Автор: некий Ajax
Copyright: Ajax
Дата: 27 мая 2002 г.
*****************************************************
Код
function CheckRASConnections: string;
const
MaxEntries = 100;
var
BufSize: Integer;
NumEntries: Integer;
Entries: array[1..MaxEntries] of TRasConn;
begin
Entries[1].dwSize := SizeOf(TRasConn);
Bufsize := SizeOf(TRasConn) * MaxEntries;
RasEnumConnections(@Entries[1], BufSize, NumEntries);
if numentries > 0 then
result := strpas(@Entries[1].szEntryName)
else
Result := 'Disconnected';
end;
//Пример использования:
ShowMessage(CheckRASConnections);
но к сожалению мне не удалось отыскать нужный "TRasConn" модуль, да и в uses как видно ничего не указано, собственно кто встречал такой, или может быть у кого то он есть, выложите пожалуйста.
Сообщение отредактировал xXxSh@dowxXx - Среда, 09.01.2013, 18:28
|
| |
|
|
|
|
|
dolphin
|
Дата: Среда, 09.01.2013, 18:52 | Сообщение # 2
|
Администратор
Сообщений: 897
Статус: Offline
|
Доступно только для пользователей
ЗЫ Работоспособность не проверял, у меня нет диалапа
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
Волк-1024
|
Дата: Среда, 09.01.2013, 19:02 | Сообщение # 3
|
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 463
Статус: Offline
|
Вот сразу два модуля:
P.S Гуглить надо лучше! 
Pascal, C\C++, Assembler, Python
|
| |
|
|
|
|
|
Don_Diego
|
Дата: Среда, 09.01.2013, 19:24 | Сообщение # 4
|
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 250
Статус: Offline
|
xXxSh@dowxXx, наконец то решился Сделаем, только через несколько часиков...
Волк-1024, dolphin, спасибо вам большое  |
| |
|
|
|
|
|
Волк-1024
|
Дата: Среда, 09.01.2013, 19:28 | Сообщение # 5
|
|
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 463
Статус: Offline
|
dolphin, На Windows 7 x64 работает.
Pascal, C\C++, Assembler, Python
Сообщение отредактировал Волк-1024 - Среда, 09.01.2013, 19:28
|
| |
|
|
|
|
|
Don_Diego
|
Дата: Среда, 09.01.2013, 19:48 | Сообщение # 6
|
|
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 250
Статус: Offline
|
dolphin, Windows 7 x86 работает отлично. Еще раз большое спасибо  |
| |
|
|
|
|
|
xXxSh@dowxXx
|
Дата: Среда, 09.01.2013, 20:42 | Сообщение # 7
|
|
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
|
Цитата (Don_Diego)
Волк-1024, dolphin, спасибо вам большое
Да спасибо Вам за помощь ребят)
Подскажите только можно ли через данную функцию реализовать определение LAN подключения, в примере если Интернет подключен через роутер, либо если у пользователя одновременно подключена и LAN сеть и отдельно Интернет, так как для 100% работы требуется отображение всех активных сетевых подключений и LAN в том числе.
Добавлено:
************************************************************
вобщем с одновременным LAN и Dial Up разобрались, еще раз спасибо Вам за помощь
Сообщение отредактировал xXxSh@dowxXx - Среда, 09.01.2013, 22:26
|
| |
|
|
|
