Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Alex17   (2005-06-06 18:29) [0]

Всем привет подскажите, пожалуйста, как автоматически дозвониться до своего провайдера. Дайте, пожалуйста, пример.

---

← →
NeoVariant ©   (2005-06-06 18:59) [1]

Дозвонится по соединению по-умолчанию
uses
  WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
    //нет соединения
   if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
    begin
      //ошибка
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    //дозвониоись
   InternetAutodialHangup(0);
end;

---

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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.066 c