Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как в Delphi дозвониться до провайдера 2

Автор: Nomadic

Идет коннект, качается, срываясь на ходу...


 function DialProvider(connection: string): boolean;
 // connection - имя учетной записи
 var
   pars: TRasDialParams;
   hRas: ThrasConn;
   r: integer;
 begin
   hRas := 0;
   strpcopy(pars.szEntryName, connection); // имя учетной записи
   pars.szPhoneNumber := ''; // номеp телефона - по умолчанию
   pars.szcallbacknumber := ''; // callback нам не нужен
   pars.szUserName := ''; // логин - по умолчанию
   pars.szPassWord := ''; // паpоль - по умолчанию
   pars.szDomain := '';   // аналогично с домейном
   pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
   r := rasdial(nil, nil, pars, 0, nil, hRas); // звоним
   if r <> 0 then
   begin // если что-то неполучилось, то
     rasHangUp(hRas); // сбpасываем соединение
     result := false; // ф-ция тепеpь веpнет false
   end
   else
     result := true; // а если все ок - то true.
 end;
 

P.S. Ras.pas бpать с www.torry.ru




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS