Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дозвон до провайдера. [D6, WinXP]

Overrider © (2005-08-15 00:46:00)
Народ, пожалуйста помогите!

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

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

Anatoly Podgoretsky (2005-08-17 22:52:00) [1]
На Джедаях, там много переведено всякого апи

TG (2005-08-17 22:47:00) [2]
А где можно найти Ras.pas не подскажите?

Kazakh (2005-08-15 10:09:00) [3]
Идет коннект, качается, срываясь на ходу...

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

Adder (2005-08-15 02:13:00) [4]
http://mashp.h10.ru/article/ras0.htm

NikNet (2005-08-15 02:02:00) [5]
Я б тебе дал только это компонент :(

Adder (2005-08-15 01:52:00) [6]
Поищи на
http://delphiworld.narod.ru/
по слову RAS

Overrider (2005-08-15 01:36:00) [7]
Пасиба, тока там внизу ссылка на пример не работает. Саму библиотеку ras.pas я уже нашёл, но в'ехать не могу, нужен пример. :(

Adder (2005-08-15 01:11:00) [8]
http://sources.ru/delphi/delphi_ras_api.shtml

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »