VPF::RasAPI вот она! - Форум программистов

Darksquall

Дата 6.2.2004, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

Репутация: -1
Всего: 4

Попросил помощи,так №:??*%:; кто помог. Нашел как дозвониться до провайдера,может кому пригодится.

Код


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;

Используем RasAPI

Это сообщение отредактировал(а) Darksquall - 6.2.2004, 14:27

--------------------

www.bankcards.su

Medved

Дата 6.2.2004, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Модератор:
Я очень рад тому, что Вы сами нашли ответ на свой вопрос. Но в следующий раз порошу вести себя культурней. Вам изначально никто не обязан был помогать. А если помогают - так от доброты душевной и наличия свободного времени. Кидать упреки такого плана:

Цитата

Попросил помощи,так №:??*%:; кто помог.

с Вашей стороны является показателем крайнего неуважения ко всем участникам форума.

Делаю Вам предупреждение и снижаю рейтинг.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »