Пятница, 29.03.2024, 13:16 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Процедуры и функции Delphi » Кто подскажет? (Кто покажет?)
Кто подскажет?
xXxSh@dowxXxДата: Среда, 09.01.2013, 18:27 | Сообщение # 1
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Всем доброго здоровьица smile

столкнулся с такой задачей - получить имя активного сетевого подключения, да же готовую функцию удалось отыскать, кстати вот она:

Определение активного подключения

Возвращает название активного интернет-соединения

Зависимости: 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
Администратор
Сообщений: 906
Статус: Offline
Доступно только для пользователей

ЗЫ Работоспособность не проверял, у меня нет диалапа


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
Волк-1024Дата: Среда, 09.01.2013, 19:02 | Сообщение # 3
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
Вот сразу два модуля:

P.S Гуглить надо лучше! biggrin
Прикрепления: RasAPI.zip (23.0 Kb) · _RasAPI.zip (14.6 Kb)


Pascal, C\C++, Assembler, Python
 
Don_DiegoДата: Среда, 09.01.2013, 19:24 | Сообщение # 4
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 253
Статус: Offline
xXxSh@dowxXx, наконец то решился smile Сделаем, только через несколько часиков...

Волк-1024, dolphin, спасибо вам большое wink
 
Волк-1024Дата: Среда, 09.01.2013, 19:28 | Сообщение # 5
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
dolphin, На Windows 7 x64 работает. smile

Pascal, C\C++, Assembler, Python

Сообщение отредактировал Волк-1024 - Среда, 09.01.2013, 19:28
 
Don_DiegoДата: Среда, 09.01.2013, 19:48 | Сообщение # 6
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 253
Статус: Offline
dolphin, Windows 7 x86 работает отлично. Еще раз большое спасибо ok
 
xXxSh@dowxXxДата: Среда, 09.01.2013, 20:42 | Сообщение # 7
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Цитата (Don_Diego)
Волк-1024, dolphin, спасибо вам большое


Да спасибо Вам за помощь ребят)

Подскажите только можно ли через данную функцию реализовать определение LAN подключения, в примере если Интернет подключен через роутер, либо если у пользователя одновременно подключена и LAN сеть и отдельно Интернет, так как для 100% работы требуется отображение всех активных сетевых подключений и LAN в том числе.

Добавлено:
************************************************************

вобщем с одновременным LAN и Dial Up разобрались, еще раз спасибо Вам за помощь wink


Сообщение отредактировал xXxSh@dowxXx - Среда, 09.01.2013, 22:26
 
delphicode » Delphi » Процедуры и функции Delphi » Кто подскажет? (Кто покажет?)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz