Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Dial-Up дозвон

Автор: DriveSoftware 10.10.2003, 17:53

Привет.

Как запустить дозвон до прова зная имя соединения?

Автор: stab 10.10.2003, 21:48

простейший вариант:

Код


type
  PRasDialDlg = ^TRasDialDlg;
  tagRASDIALDLG = record
    dwSize: DWORD;
    hwndOwner: HWND;
    dwFlags: DWORD;
    xDlg: LongInt;
    yDlg: LongInt;
    dwSubEntry: DWORD;
    dwError: DWORD;
    reserved: DWORD;
    reserved2: DWORD;
  end;
  {$EXTERNALSYM tagRASDIALDLG}
  TRasDialDlg = tagRASDIALDLG;


function RasDialDlgA(lpszPhonebook: PAnsiChar; lpszEntry: PAnsiChar; lpszPhoneNumbe: PAnsiChar; var lpInfo: TRasDialDlg): BOOL; stdcall; external 'rasdlg.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  rd: TRasDialDlg;
begin
  ZeroMemory(@rd, SizeOf(rd));
  with rd do
  begin
    dwSize := SizeOf(rd);
    hwndOwner := Handle;
  end;
  RasDialDlgA(nil, 'Connection Name', nil, rd);
end;

если UI не нужен, то RasDial, но об этом позже

и если понадобиться

Автор: Полудненко Олег 11.10.2003, 20:35

А как можно позвонить комунить с помощью модема и устроить с этим кемнить чё-то типа инета.

Автор: DeVoid 12.10.2003, 13:24

Цитата

А как можно позвонить комунить с помощью модема и устроить с этим кемнить чё-то типа инета.

А ты представляешь хоть что в итоге должно получиться ?
Интересно будет посмотреть, на ваше че-то типа инета.
Говори конкретнее, тебе нужно файлы перекидать по сетке или че ?

Автор: DriveSoftware 31.10.2003, 12:04

>если UI не нужен, то RasDial, но об этом позже и если понадобиться

Очень нужно, подскажите.