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

Delphi , Интернет и Сети , Dial-up

Автор: Ajax
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Возвращает название активного интернет-соединения

Зависимости: RAS
Автор:       Ajax, ajax@mail.kz
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); 

Функция CheckRasConnections возвращает название активного интернет-соединения, использующая API RAS и функцию RasEnumConnections.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Dial-up ::