Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Работа с сетью / Как набрать номер с помощью модема в Win32?

Как набрать номер с помощью модема в Win32?

Используйте функцию Windows API CreateFile() чтобы получить дескриптор порта, и стандартные функции ввода-вывода для связи с полученным портом.
Пример:

     var
       hCommFile : THandle;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       PhoneNumber : string;
       CommPort : string;
       NumberWritten : LongInt;
     begin
       PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;
       CommPort := 'COM2';
      {Open the comm port}
       hCommFile := CreateFile(PChar(CommPort),
                   GENERIC_WRITE,
                   0,
                   nil,
                   OPEN_EXISTING,
                   FILE_ATTRIBUTE_NORMAL,
                   0);
       if hCommFile=INVALID_HANDLE_VALUE then
       begin
     ShowMessage('Unable to open '+ CommPort);
     exit;
       end;

      {Dial the phone}
       NumberWritten:=0;
       if WriteFile(hCommFile,
            PChar(PhoneNumber)^,
            Length(PhoneNumber),
            NumberWritten,
           nil) = false then begin
     ShowMessage('Unable to write to ' + CommPort);
       end;
     end;

     procedure TForm1.Button2Click(Sender: TObject);
     begin
      {Close the port}
       CloseHandle(hCommFile);
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru