Подключение к PPoE (ras api)

[NaumOff]

Написал свой диалер для подключения интернета через PPoE. В коде использую такую функцию:

function DialProvider(connection: string): Boolean;
var
  pars: TRasDialParams;
  r: integer;
  C                   : Array[0..100] of Char;
begin
  hRas := 0;
  strpcopy(pars.szEntryName, connection); // имя учетной записи
  pars.szPhoneNumber := ''; // номеp телефона - по умолчанию
  pars.szcallbacknumber := ''; // callback нам не нужен
  strpcopy(pars.szPassWord, Form1.lbledt2.Text);
  pars.szDomain := '';   // аналогично с домейном
  pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
        R:=RasDial(Nil, Nil, pars, 0, @RasCallback, hRAS);
        if r <> 0 then
      // если что-то неполучилось, то
          Begin
             RasGetErrorString(R,C,100);
             MessageBox(0,C,'Ошибка!',MB_OK);
             rasHangUp(hRas); // сбpасываем соединение
             result := false; // ф-ция тепеpь веpнет false
             Exit;
          end
        else
        result := true; // а если все ок - то true.

end;

Обнаружился косячок. Если локальная сеть отключена или просто не работает, эта функция пытается дозвониться и открывает порт/соединение. Но после этого оно оказывается как бы в подвешенном состоянии со статусом "Отключение". В центре управления сетями его нельзя отключить или просмотреть состояние-пункты меню не активны (см. скрин). При попытке удаления подключения система ругается, что оно активно. Моя прога сообщает, что оно подключено. И лечится сей баг только ребутом системы. Как побороть?


П.С. Мне кажется проблема в том, что код

rasHangUp(hRas); // сбpасываем соединение

в случае ошибки при подключении ни разу не сбрасывает его.

П.С.2 Разобрался. Ошибка при таких условиях обрабатывается в функе GetStatusString. В ней и надо разрывать соединение. Косячок популярной статьи дельфийского королевства "RAS API для непродвинутых".

[KAGATAN]

Столкнулся с такой же проблемой зависания...
Опиши пожалуйста как поборол

[Человек_Борща]

Например читать посты до конца:

П.С.2 Разобрался. Ошибка при таких условиях обрабатывается в функе GetStatusString. В ней и надо разрывать соединение.

[KAGATAN]

дочитал конечно. просто не совсем понятно когда вызывается GetStatusString и что в нем было исправлено.

Оригинал статьи я так понимаю это

[Человек_Борща]

Function GetStatusString(State: TRasConnState; Error: Integer): String;
Var
C      : Array[0..100] of Char;
S      : String;
Begin
If Error<>0 then
Begin
    RasGetErrorString(Error, C, 100);
    Result:=C;
End
Else

Размер буфера под сообщение всегда 100, это ошибка.
Согласно MSDN, ANSI функция требует минимум 512 байт под буфер, UNICODE вообще минимум 1 кб.

По идее вам надо написать функцию GracefullCloseRASAndError(hRas: THandle): string; которая получит сообщение об ошибке и закроет подключение hRas.

[KAGATAN]

насколько я понимаю в примере топик-стартера это и реализовано:

function DialProvider(connection: string): Boolean;
var
  pars: TRasDialParams;
  r: integer;
  C                   : Array[0..100] of Char;
begin
  hRas := 0;
  strpcopy(pars.szEntryName, connection); // имя учетной записи
  pars.szPhoneNumber := ''; // номеp телефона - по умолчанию
  pars.szcallbacknumber := ''; // callback нам не нужен
  strpcopy(pars.szPassWord, Form1.lbledt2.Text);
  pars.szDomain := '';   // аналогично с домейном
  pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
        R:=RasDial(Nil, Nil, pars, 0, @RasCallback, hRAS);
        if r <> 0 then
      // если что-то неполучилось, то
          Begin
             RasGetErrorString(R,C,100);
             MessageBox(0,C,'Ошибка!',MB_OK);
             rasHangUp(hRas); // сбpасываем соединение
             result := false; // ф-ция тепеpь веpнет false
             Exit;
          end
        else
        result := true; // а если все ок - то true.

end;

вызывается "дозвон" RasDial и он возвращает № ошибки

  R:=RasDial(Nil, Nil, pars, 0, @RasCallback, hRAS);

в переменной R будет номер ошибки и если он не равен 0 (0= ошибки нет)
то происходит сброс текущего соединения hRas

 rasHangUp(hRas); // сбpасываем соединение

только в данной схеме почему то все равно зависание происходит... помогает только перезагрузка...

P.S. Может зависание происходит в самой RasDial и уже до сброса ничего не доходит ? Тогда по идее надо обработать "сброс дозвона" в колбеке RasCallback....
В процедуру передаются только статус и ошибка , в общем я запутался что то..

  { Эта процедура будет вызываться при любых изменениях в
    соединении: }

    procedure RasCallback(msg: integer; state: TRasConnState;
    error: Integer); stdcall;

[Человек_Борща]

Вы не умеете читать сообщения или невнимательны.

Размер буфера под сообщение всегда 100, это ошибка.

далее, вы не проверяете, что в hRAS вообще что-то попало.
и не проверяете что rasHangUp выполнилось успешно (включая GetLastError если нет)