Скачать: CL | DM;

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

← →
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;

---

← →
TG ©   (2005-08-17 22:47) [7]

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

---

← →
Anatoly Podgoretsky ©   (2005-08-17 22:52) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c