Дозвон до провайдера.

← →
Overrider (2005-08-15 00:46) [0]

Народ, пожалуйста помогите!

В нете полно прог-дозвонщиков до нета. Как такое в Делфи сделать? Весь день хелп читал - ничё не нашёл.

Нужно срочно. Буду признателен, если стукнете в асю 311625083!

← →
Adder © (2005-08-15 01:11) [1]

http://sources.ru/delphi/delphi_ras_api.shtml

← →
Overrider (2005-08-15 01:36) [2]

Пасиба, тока там внизу ссылка на пример не работает. Саму библиотеку ras.pas я уже нашёл, но в"ехать не могу, нужен пример. :(

← →
Adder © (2005-08-15 01:52) [3]

Поищи на
http://delphiworld.narod.ru/
по слову RAS

← →
NikNet © (2005-08-15 02:02) [4]

Я б тебе дал только это компонент :(

← →
Adder © (2005-08-15 02:13) [5]

http://mashp.h10.ru/article/ras0.htm

← →
Kazakh (2005-08-15 10:09) [6]

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

Дозвон до провайдера:
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;

А где можно найти Ras.pas не подскажите?

На Джедаях, там много переведено всякого апи

Дозвон до провайдера. Найти похожие ветки