Fp:LongBool
если в "удаленном доступе" не указан пароль пользователя, то эта переменная устанавливается в False и появляется приглашение ввести пароль, если пароль указан, то переменная устанавливается в True и приглашение не появляется.
DialParams: TRasDialParams
переменная, в которую будут переданы параметры "удаленного соединения", описывать тип этой переменной я не буду - он хорошо описан в Win32 Programmer's Reference (кто не знает - это один из разделов Help'а, поставляемого вместе с Delphi) и определен в RasUnit.pas
AEntryDial:String
переменная, в которую поместим название "удаленного соединения"
R: Integer
результат выполнения библиотечных функций
C : Array[0..100] of Char
переменная, в которую записывается текст сообщения об ошибке
Кроме переменных необходимо также определить CallBack-процедуру, которая будет использована в функции RasDial (***).
|
Code: |
|
procedure RasCallBack(msg: Integer; state: TRasConnState; error: Integer); stdcall
{****}
{где msg: Integer - код сообщения state: TRasConnState - состояние соединения error: Integer - код ошибки} |
В этой процедуре передадим глобальной переменной MyDialParam значения указанных переменных.
|
Code: |
|
MyDialParam.AMsg := msg; MyDialParam.AState := state; MyDialParam.AError := error; |
А также вызовем функцию GetStatusString (будет описана ниже), которая сообщит нам в Label1.Caption о состоянии соединения.
|
Code: |
|
Form1.Label1.Caption := GetStatusString(MyDialParam.AState, MyDialParam.AError); Form1.Label1.Update; {на всякий случай} |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!