Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Почему не устанавливает dial соединение ?   Найти похожие ветки 

← →
GreySerg   (2004-09-24 01:40) [0]

Есть такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
  ReturnValue: DWORD;
  Conn: LPDWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
  begin
    // not connected
   ReturnValue := InternetDial(Self.Handle,"My Connection",INTERNET_AUTODIAL_FORCE_UNATTENDED,Conn,0);
   Case ReturnValue of
      ERROR_SUCCESS: showMessage("Success.");
      ERROR_INVALID_PARAMETER: showMessage("ERROR_INVALID_PARAMETER.");
      else showMessage("Unknown error.");
   end;
  end;
end;

Почему InternetDial всегда возвращает ERROR_INVALID_PARAMETER ?
Как правильно задать параметры ?

---

← →
GreySerg   (2004-09-24 13:32) [1]

Никто что-ли не пользовался функцией InternetDial ?

---

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

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

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