Александр Терехов
дата публикации 11-01-2001 00:00

---

Версия для печати

Особые благодарности
Королеве дельфийского королевства
Елене Филипповой,
которая подвигла меня на ваяние сего опуса.

Итак. Многие из "непродвинутых" дельфийцев, пытаясь использовать интернет-компоненты, сталкиваются с проблемой "удаленного соединения" (*) . Собственно подключаться не трудно - чаще всего такие компоненты с помощью системной библиотеки wsock32.dll сами инициализируют подключение к Интернет по "удаленному соединению". Гораздо труднее бывает после интернет-сессии отключить "удаленное соединение". Поэтому на Круглом столе "Королевства Дельфи" с регулярностью наступления "критических дней" появляются вопросы (в том числе и мои):

"как после .... завершить соединение по удаленному доступу?"

"смотри Ras API..."

BuffSize: Integer;

размер массива из AnsiChar, в который будут помещаться cведения об "удаленных соединениях"

Entries: Integer;

количество зарегистрированных "удаленных соединений"

Entry : Array[1..MaxEntries] of TRasEntryName;

массив состоящий из переменных, в которые будут помещены сведения об "удаленных соединениях", где константа MaxEntries - количество возможных соединений, TRasEntryName - определение (type) записи состоящей из двух полей dwSize и szEntryName (определены в RasUnit.pas)

X, Result_ : Integer;

необходимые процедурные переменные

AllEntries: TStrings;

сюда мы поместим названия "удаленных соединений" для дальнейшей работы с ними

Entry[1].dwSize:=SizeOf(TRasEntryName)

BuffSize:=SizeOf(TRasEntryName)*MaxEntries

• Result_- в случае успешного выполнения возвращает 0, в противном случае получим ERROR_BUFFER_TOO_SMALL (буфер слишком маленький) или ERROR_NOT_ENOUGH_MEMORY(не хватает памяти).
  
• BuffSize - указанный нами размер AnsiChar-массива.
  
• @Entry[1]- получим указатель на первый элемент массива, в который поместились необходимые нам сведения.
  
• Entries - получим количество зарегистрированных в системе "удаленных доступов".

Дальше уже просто.

If (Result_=0) and (Entries>0) Then
Begin
	AllEntries:= TStringList.Create;
	For X:=1 To Entries Do
	Begin
		AllEntries.Add(Entry[x].szEntryName);
	End;
	.....здесь мы работает со своей переменной, например, 
	помещаем сведения об "удаленных соединениях" в ListBox......

	AllEntries.Free;
End;

Глобальные:

MyDialParam : TMyDialParam

переменная состояния соединения, где

TMyDialParam = Record
AMsg : Integer; - код сообщения
AState : TRasConnState; - статус соединения (тип переменной определен в  RasUnit.pas)
AError : Integer; - код ошибки

hRas: ThRASConn

в эту переменную будет помещен handle (так сказать "ИНН") "удаленного соединения", к этой переменной будет обращаться функция RasHangUp для завершения соединения, тип переменной описан в RasUnit.pas

Локальные:

Fp:LongBool

если в "удаленном доступе" не указан пароль пользователя, то эта переменная устанавливается в False и появляется приглашение ввести пароль, если пароль указан, то переменная устанавливается в True и приглашение не появляется.

DialParams: TRasDialParams

переменная, в которую будут переданы параметры "удаленного соединения", описывать тип этой переменной я не буду - он хорошо описан в Win32 Programmer's Reference (кто не знает - это один из разделов Help'а, поставляемого вместе с Delphi) и определен в RasUnit.pas

AEntryDial:String

переменная, в которую поместим название "удаленного соединения"

R: Integer

результат выполнения библиотечных функций

C : Array[0..100] of Char

переменная, в которую записывается текст сообщения об ошибке

Procedure RasCallBack (msg: Integer;
		state: TRasConnState; 
		error: Integer); stdcall (****)  , где

msg: Integer - код сообщения
state: TRasConnState - состояние соединения
error: Integer - код ошибки
 

MyDialParam.AMsg:=msg;
MyDialParam.AState:=state;
MyDialParam.AError:=error;

Form1.Label1.Caption:= GetStatusString(MyDialParam.AState,MyDialParam.AError);
Form1.Label1.Update;(на всякий случай).

1. Получим название выбранного нами "удаленного соединения"

   AEntryDial:=ListBox1.Items.Strings[ListBox1.ItemIndex];

2. Заполним все поля переменной DialParams нолями.

   FillChar(DialParams, SizeOf(TRasDialParams), 0);

3. Инициализируем переменную DialParams и поместим в поле szEntryName этой переменной название выбранного "удаленного соединения"

   With DialParams Do
   Begin
       dwSize:=Sizeof(TRasDialParams);
       StrPCopy(szEntryName, FEntry2Dial);
   End;
   

4. Вызовем библиотечную функцию RasGetEntryDialParams, которая заполнит оставшиеся незаполненными поля переменной DialParams

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

5. Далее, если все удачно (см. значение переменной R), вызываем библиотечную функцию RasDial, поместив в нее переменную DialParams и указав на описанную выше CallBack-процедуру RasCallBack. В случае ошибок в работе функции RasDial вызовем библиотечную функцию обработки ошибок RasGetErrorString, которая даст нам текст сообщения об ошибке, и выйдем из процедуры.

   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;
   

6. 6. На этом все!

If Error<>0 then
Begin
    RasGetErrorString(Error, C, 100);
    Result:=C;
End Else
Begin
    S:='';
    Case State Of
      RASCS_OpenPort:
        S:='Opening port';
..................................
вырезано....
.................................
       RASCS_Disconnected:
        S:='Disconnected';
      End;
Result:=S;
End;

"как после .... завершить соединение по удаленному доступу?"

RasHangUp(hRas)

Удачи!

Авторские права
© Александр Терехов ™ 2001,