Советы по Delphi
Dialer
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 [001739]
