VPF::RasAPI получить список номеров dial-up соединения

Dmitry05

Дата 11.12.2005, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.11.2005

Репутация: нет
Всего: нет

RasApi как получить список номеров соединения? Сделал вот как:
[/code]

Код


procedure TForm1.Button1Click(Sender: TObject);
var
R: Integer;
Fp: LongBool;
dwEntryInfoSize, dwDeviceInfoSize: LongInt;
EntryParam: TRasEntry;
dParam : TRasDialParams;
begin
FillChar(dParam, SizeOf(TRasDialParams), 0);
dwEntryInfoSize := SizeOf(TRasEntry);
dwDeviceInfoSize := 0;
with dParam do
  begin
  dwSize := SizeOf(TRasDialParams);
  StrPCopy(szEntryName, 'MTU');
  end;

R := RasGetEntryDialParams(nil, dParam, Fp);

EntryParam.dwSize := SizeOf(TRasEntry);
RasGetEntryPropertiesA(nil, dParam.szEntryName, @EntryParam, dwEntryInfoSize, nil, dwDeviceInfoSize);

if R = 0 then
  begin
  Edit2.Text := dParam.szUserName;
  Edit3.Text := dParam.szPassword;
  Edit4.Text := dParam.szPhoneNumber;
  end;
end;

В соединении "MTU" несколько телефонов, так вот у меня ниодного не показывается в Edit4.Text

Stolzen

Дата 19.12.2005, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

Репутация: 1
Всего: 48

Посмотри компонент RasDialer.

Там есть демка, где все описано

--------------------

datatalks.ru - анализ данных, статистика, машинное обучение

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »