Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Как программно установить конфигурацию 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 © 2024 - All Rights Reserved - www.delphirus.com