Как программно установить конфигурацию COM-порта

Советы » Порты » Как программно установить конфигурацию COM-порта

procedure TForm1.Button1Click(Sender: TObject);
var
  CommPort: string;
  hCommFile: THandle;
  Buffer: PCommConfig;
  size: DWORD;
begin
  CommPort := 'COM1';
  {Открываем Com-порт}
  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;

  {Выделяем временный буфер}
  GetMem(Buffer, sizeof(TCommConfig));

  {Получаем размер структуры CommConfig}
  size := 0;
  GetCommConfig(hCommFile, Buffer^, size);

  {Освобождаем временный буфер}
  FreeMem(Buffer, sizeof(TCommConfig));

  {Выделяем память для структуры CommConfig}
  GetMem(Buffer, size);
  GetCommConfig(hCommFile, Buffer^, size);

  {Изменяем скорость передачи}
  Buffer^.dcb.BaudRate := 1200;

  {Устанавливаем новую конфигурацию для COM-порта}
  SetCommConfig(hCommFile, Buffer^, size);

  {Освобождаем буфер}
  FreeMem(Buffer, size);

  {Закрываем COM-порт}
  CloseHandle(hCommFile);
end;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com