Все, на этом с CallBack процедурой закончено.
Переходим к описанию процесса подключения к "удаленному соединения".
Получим название выбранного нами "удаленного соединения"
AEntryDial:=ListBox1.Items.Strings[ListBox1.ItemIndex];
Заполним все поля переменной DialParams нолями.
FillChar(DialParams, SizeOf(TRasDialParams), 0);
Инициализируем переменную DialParams и поместим в поле szEntryName этой переменной название выбранного "удаленного соединения"
|
Code: |
|
With DialParams Do Begin dwSize:=Sizeof(TRasDialParams); StrPCopy(szEntryName, FEntry2Dial); End; |
Вызовем библиотечную функцию RasGetEntryDialParams, которая заполнит оставшиеся незаполненными поля переменной DialParams
R:=RasGetEntryDialParams(nil, DialParams, Fp);
Далее, если все удачно (см. значение переменной R), вызываем библиотечную функцию RasDial, поместив в нее переменную DialParams и указав на описанную выше CallBack-процедуру RasCallBack. В случае ошибок в работе функции RasDial вызовем библиотечную функцию обработки ошибок RasGetErrorString
, которая даст нам текст сообщения об ошибке, и выйдем из процедуры.
|
Code: |
|
if R = 0 then begin Application.ProcessMessages; {*****} R := RasDial(nil, nil, DialParams, 0, @RasCallback, hRAS); if R <> 0 then begin RasGetErrorString(R, C, 100); MessageBox(0, C, 'Ошибка!', MB_OK); Exit; end; end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!