Главная страницаОбратная связьКарта сайта

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

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


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


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как в Delphi дозвониться до провайдера 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info