Подключение к интернету

[dmitriegorovih]

Всем доброго времени суток! вот использовал код для подключения к интернету разъединяет хорошо, и список подключений выводит тоже хорошо, но подсоединится не хочет.
код

[asmodey1]

разъединяет хорошо, и список подключений выводит тоже хорошо, но подсоединится не хочет

Что-то тут не то...
Если "подсоединится не хочет", то какой "список подключений выводит хорошо" и что "разъединяет хорошо", если не подсоединяется ?

[Stilet]

Может файерволл? У меня такое было, пришлось обучать его.

[dmitriegorovih]

procedure TForm1.Button4Click(Sender: TObject);
var
  params: TRasDialParams;
  hRas: THRasConn;
begin
  if ListBox1.ItemIndex < 0 then Exit;
  ListBox2.Clear;

  // Заполнение params
  FillChar(params, sizeof(TRasDialParams), 0);
  params.dwSize := sizeof(TRasDialParams);
  StrPCopy(params.szEntryName, ListBox1.Items[ListBox1.ItemIndex]);
  StrPCopy(params.szUserName, Edit1.Text);
  StrPCopy(params.szPassword, Edit2.Text);
  // Установка связи:
  RasDial(nil, nil, params, 0, @RasNotifier, hRas);
end;

меня смущает строчка очистки листбокса тогда откуда он будет брать пароль и логин

[asmodey1]

Сообщение от dmitriegorovih

меня смущает строчка очистки листбокса тогда откуда он будет брать пароль и логин

Очищается ListBox2, а "пароль и логин" берутся из ListBox1, Edit1, Edit2...

[dmitriegorovih]

Очищается ListBox2, а "пароль и логин" берутся из ListBox1, Edit1, Edit2...

Упс да что-то не заметил, спасибо ) и все таки почему не хочет подсоединятся в чём причина?

[dmitriegorovih]

Всем ещё раз привет! Есть ли вообще какие нибудь альтернативы на подключение к интернету?

[dmitriegorovih]

Все Нашел урааааа! подсоединяется, и разъединяется нормально вот архив