VPF::Посылать и считывать данные с COM порта, а также менять параметры (биты данных, четность)

Pakshin A. S.

Дата 4.11.2004, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Ниже представлен класс для работы с COM-портом. Протестирован в Windows 95. Класс выдернут из контекста, так что не ручаюсь в компиляции с первого раза, однако все функции работы с COM очевидны.

Код



unit Unit1; 

interface 

uses 
  Windows; 

type 
  TComPort = class 
  private 
    hFile: THandle; 
  public 
    constructor Create; 
    destructor Destroy; override; 
    function InitCom(BaudRate, PortNo: Integer; Parity: Char; 
      CommTimeOuts: TCommTimeouts): Boolean; 
    procedure CloseCom; 
    function ReceiveCom(var Buffer; Size: DWORD): Integer; 
    function SendCom(var Buffer; Size: DWORD): Integer; 
    function ClearInputCom: Boolean; 
  end; 

implementation 

uses 
  SysUtils; 

constructor TComPort.Create; 
begin 
  inherited; 
  CloseCom; 
end; 

destructor TComPort.Destroy; 
begin 
  CloseCom; 
  inherited; 
end; 

function TComPort.InitCom(BaudRate, PortNo: Integer; Parity: Char; 
  CommTimeOuts: TCommTimeouts): Boolean; 
var 
  FileName: string; 
  DCB: TDCB; 
  PortParam: string; 
begin 
  result := FALSE; 
  FileName := 'Com' + IntToStr(PortNo); {имя файла} 
  hFile := CreateFile(PChar(FileName), 
    GENERIC_READ or GENERIC_WRITE, 0, nil, 
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
  if hFile = INVALID_HANDLE_VALUE then 
    exit; 

  //установка требуемых параметров 
  GetCommState(hFile, DCB); //чтение текущих параметров порта 
  PortParam := 'baud=' + IntToStr(BaudRate) + ' parity=' + Parity + 
    ' data=8 stop=1 ' + 
    'octs=off'; 
  if BuildCommDCB(PChar(PortParam), DCB) then 
  begin 
    result := SetCommState(hFile, DCB) and 
      SetCommTimeouts(hFile, CommTimeOuts); 
  end; 
  if not result then 
    CloseCom; 
end; 

procedure TComPort.CloseCom; 
begin 
  if hFile < > INVALID_HANDLE_VALUE then 
    CloseHandle(hFile); 
  hFile := INVALID_HANDLE_VALUE; 
end; 

function TComPort.ReceiveCom(var Buffer; Size: DWORD): Integer; 
var 
  Received: DWORD; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  if ReadFile(hFile, Buffer, Size, Received, nil) then 
  begin 
    Result := Received; 
  end 
  else 
    raise Exception.Create('Ошибка приема данных: ' + IntToStr(GetLastError)); 
end; 

function TComPort.SendCom(var Buffer; Size: DWORD): Integer; 
var 
  Sended: DWORD; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  if WriteFile(hFile, Buffer, Size, Sended, nil) then 
  begin 
    Result := Sended; 
  end 
  else 
    raise Exception.Create('Ошибка передачи данных: ' + IntToStr(GetLastError)); 
end; 

function TComPort.ClearInputCom: Boolean; 
begin 
  if hFile = INVALID_HANDLE_VALUE then 
    raise Exception.Create('Не открыта запись в Com порт'); 
  Result := PurgeComm(hFile, PURGE_RXCLEAR); 
end; 

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »