Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Dial-up \ Как прочитать из модема

Как прочитать из модема

После предварительной настройки переменных, COM порт открывается как обычный файл. Так же пример показывает, как очищать буфер COM порта и читать из него.

var
  PortSpec : array[0..255] of char;
  PortNo : Word;
  success : Boolean;
  error:integer;
begin
  FillChar(PortSpec,Sizeof(PortSpec),#0);
  StrPCopy(PortSpec,'Com1:19200,n,8,1');
  PortSpec[3]:=Char(Ord(PortSpec[3])+Ord(PortNo));

  if not BuildCommDCB(PortSpec,Mode) then
  begin
    //какая-то ошибка...
    Exit;
  end;

  PortSpec[5]:=#0; { 'Com1:' }

  Mode.Flags:=EV_RXCHAR + EV_EVENT2; { $1001 }

  Com := CreateFile(PortSpec,GENERIC_READ or GENERIC_WRITE,
  0,             { comm устройство открывается с эксклюзивным доступом }
  nil,           { нет security битов }
  OPEN_EXISTING, { comm устройства должны использовать OPEN_EXISTING }
  0,             { not overlapped I/O }
  0              { hTemplate должен быть NULL для comm устройств }
  );

  if Com = INVALID_HANDLE_VALUE then
    Error := GetLastError;
  Success := GetCommState(Com,Mode);

  if not Success then // Обработчик ошибки.
  begin
  end;

  Mode.BaudRate := 19200;
  Mode.ByteSize := 8;
  Mode.Parity := NOPARITY;
  Mode.StopBits := ONESTOPBIT;//нужен был для перезаписи в NT

  Success := SetCommState(Com, Mode);

  if not Success then // Обработчик ошибки.
  begin
  end;
end;

Переменная "com" типа dword.

Вы так же можете очистить буффер COM порта

PurgeComm(Com, PURGE_RXCLEAR or PURGE_TXCLEAR); 

И прочитать из него

function ReadCh(var Ch: Byte): dword; 
var 
  n: dword; 
begin 
  Readfile(Com, ch, 1, result, nil); 
end;

Название: Как прочитать из модема
Дата публикации: 2004-09-02 (2843 Прочтено)

 
 

 

Page generation 0.033 seconds