VPF::Установить интернет соединение

Cashey

Дата 25.11.2008, 16:09 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

ну вот собственно САБЖ. пробовал применить механизмы как при dial up дозвоне, но они не работают с ADSL модемом. попытался капнуть в RAS функции, но сходу не разобрался, что надо именно для ADSL-модема там нужно. может кто знает решение?

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

библия учит любить ближнего, а камасутра обучает как именно

ecspertiza

Дата 25.11.2008, 17:24 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 3.11.2008
Где: г.Смоленск

Репутация: нет
Всего: 5

Сматря какой ADSL - модем если Lan дык тада можно его повесить шоб он постоянно в инете висел. вообшем не суть, попробуй код

Код


var
  cmd, par, fil, dir: PChar;
begin
  if connect=false then
   begin
    cmd := 'open';
    fil := 'rasdial.exe';
    par := PChar(Name.Text + ' ' + Login.Text + ' ' + Pass.Text);
    dir := 'C:';
    ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
    connect:=true;
    email:=mail.Text;
    emailLogin:=eLogin.Text;
    emailpass:=ePass.Text;
   end
  else
   begin
      cmd := 'open';
      fil := 'rasdial.exe';
      par := PChar(Name.Text + ' /DISCONNECT');
      dir := 'C:';
      ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
   end;

вот попробуй где Name.text - имя соединения с инетом созданного на компе,
Login.text - стало быть логин,
Pass.text - стало быть поролллл

у мя с ADSL работало нармуль.

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

С уважением,
мастер конфетного цеха!

онлайн компилер
залип

Cashey

Дата 26.11.2008, 10:36 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

да, так работает. но можно ли законнектится используя соединение по умолчанию. что бы не вводить логин, пасс и название соединения?

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

библия учит любить ближнего, а камасутра обучает как именно

ecspertiza

Дата 26.11.2008, 16:30 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 3.11.2008
Где: г.Смоленск

Репутация: нет
Всего: 5

Ну если они заранее извесны то да, а так незнаю, может кто ешо вариантов подкинет.

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

С уважением,
мастер конфетного цеха!

онлайн компилер
залип

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