Как в Delphi 7 получить список имен подключений к Интернету? - PullRequest
Новая
       31

Как в Delphi 7 получить список имен подключений к Интернету?

1 голос
/ 02 марта 2011

Ранее я спрашивал, как я могу установить интернет-прокси в соединении Windows .

Но моя проблема в том, что если я хочу установить все соединения, то должен быть список имен соединений.Я ищу по сети, но не могу найти ответ на этот вопрос.

1 Ответ

2 голосов
/ 02 марта 2011

Вы ищете функцию RasEnumEntries.Delphi не имеет объявленных функций RAS API, но легко, если у вас есть JVCL.Компонент TJvRas32 имеет свойство PhoneBook TStrings, в котором заполнены доступные соединения.

Ниже приведен тестовый код D2007 (без проверки ошибок): 

const
  RAS_MaxEntryName = 256;
  RASBASE = 600;
  ERROR_BUFFER_TOO_SMALL = RASBASE + 3;
  ERROR_INVALID_SIZE = RASBASE + 32;

type
  PRasEntryName = ^TRasEntryName;
  TRasEntryName = record
    dwSize: Longint;
    szEntryName: array [0..RAS_MaxEntryName] of Char;
  end;

function RasEnumEntriesA(reserved: PChar; lpszPhonebook: PChar;
          lpRasEntryName: PRasEntryName; var lpcb: DWORD;
          var lpcEntries: DWORD): DWORD; stdcall; external 'RASAPI32.DLL';

procedure GetRasEntries(List: TStrings);
var
  RasEntryNames: array of TRasEntryName;
  Err, Size, Entries: DWORD;
  i: Integer;
begin
  List.Clear;
  SetLength(RasEntryNames, 1);
  Size := SizeOf(TRasEntryName);
  RasEntryNames[0].dwSize := Size;
  Err := RasEnumEntriesA(nil, nil, @RasEntryNames[0], Size, Entries);
  if (Err = ERROR_BUFFER_TOO_SMALL) and (Entries > 0) then begin
    Assert(Size = SizeOf(TRasEntryName) * Entries);
    SetLength(RasEntryNames, Entries);
    Err := RasEnumEntriesA(nil, nil, @RasEntryNames[0], Size, Entries);
    if Err = 0 then
      for i := 0 to Length(RasEntryNames) do
        List.Add(RasEntryNames[i].szEntryName);
  end else
    List.Add(RasEntryNames[0].szEntryName);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  GetRasEntries(ListBox1.Items);
end;
...