Посылать и считывать данные с COM порта, а также менять параметры (биты данных, четность)
Автор: Iouri
Ниже представлен класс для работы
с COM-портом. Протестирован в Windows 95.
Класс выдернут из контекста, так что не ручаюсь
в компиляции с первого раза, однако все функции
работы с COM очевидны.
unit Unit1;
interfaceuses
Windows;
type
TComPort = classprivate
hFile: THandle;
publicconstructor 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;
implementationuses
SysUtils;
constructor TComPort.Create;
begininherited;
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) thenbegin
result := SetCommState(hFile, DCB) and
SetCommTimeouts(hFile, CommTimeOuts);
end;
ifnot result then
CloseCom;
end;
procedure TComPort.CloseCom;
beginif hFile < > INVALID_HANDLE_VALUE then
CloseHandle(hFile);
hFile := INVALID_HANDLE_VALUE;
end;
function TComPort.ReceiveCom(var Buffer; Size: DWORD): Integer;
var
Received: DWORD;
beginif hFile = INVALID_HANDLE_VALUE thenraise Exception.Create('Не открыта запись в Com порт');
if ReadFile(hFile, Buffer, Size, Received, nil) thenbegin
Result := Received;
endelseraise Exception.Create('Ошибка приема данных: ' + IntToStr(GetLastError));
end;
function TComPort.SendCom(var Buffer; Size: DWORD): Integer;
var
Sended: DWORD;
beginif hFile = INVALID_HANDLE_VALUE thenraise Exception.Create('Не открыта запись в Com порт');
if WriteFile(hFile, Buffer, Size, Sended, nil) thenbegin
Result := Sended;
endelseraise Exception.Create('Ошибка передачи данных: ' + IntToStr(GetLastError));
end;
function TComPort.ClearInputCom: Boolean;
beginif hFile = INVALID_HANDLE_VALUE thenraise Exception.Create('Не открыта запись в Com порт');
Result := PurgeComm(hFile, PURGE_RXCLEAR);
end;
end.
Рецензия на предоставленный код для работы с портом COM:
Положительные стороны:
Код структурирован и легко понятен.
Он предлагает функции инициализации, отправки, приема и очистки ввода на порте COM.
Обработка ошибок реализована с помощью Exception.Create и GetLastError.
Предложения:
Организация кода: Рассмотрите возможность перемещения вызовов CreateFile, GetCommState, BuildCommDCB и SetCommState в отдельный метод для улучшения читаемости и поддержки кода.
Обработка ошибок: Хотя обработка ошибок реализована, она может быть улучшена с помощью предоставления более конкретных сообщений об ошибках или механизмов журналирования для целей отладки.
Безопасность типов: Код использует типы Integer и Char для параметров, которые вероятно будут использоваться для настроек порта COM (например, скорость передачи, паритет). Рассмотрите возможность использования более конкретных типов, таких как TCommBaudRate и TParity, если они доступны в Delphi.
Стиль кода: Код использует обе записи camelCase и underscore для имен переменных. Рекомендуется использовать единый стиль названия переменных throughout код.
Альтернативное решение:
Вместо использования функций CreateFile, GetCommState, BuildCommDCB и SetCommState можно использовать компонент TSerialPort, предоставленный встроенной библиотекой Delphi для портов сериальной связи. Этот компонент предлагает более простой интерфейс для работы с портами COM.
Пример кода, использующий TSerialPort:
procedureTComPort.InitSerial(BaudRate:TCommBaudRate;Parity:TParity);beginSerial:=TSerialPort.Create;trySerial.Port:='COM'+IntToStr(PortNo);Serial.BaudRate:=BaudRate;Serial.Parity:=Parity;// ... настройте другие параметры порта ...finallyFreeAndNil(Serial);end;end;procedureTComPort.SendData(varBuffer;Size:DWORD);beginifAssigned(Serial)thentrySerial.Write(Buffer,Size);except// обработайте ошибкуend;end;
В этом примере TSerialPort используется для создания объекта порта сериальной связи с указанными настройками. Метод SendData отправляет данные с помощью метода Write компонента TSerialPort.
Обратите внимание, что использование TSerialPort может требовать дополнительных библиотек или компонентов для установки в вашем проекте Delphi.
Класс для работы с COM-портом позволяет послать и считывать данные, а также изменять параметры порта (биты данных, четность) на компьютере под управлением Windows 95.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.