串口通訊(Delphi)

最新推荐文章于 2024-06-30 10:27:27 发布

bill2006

最新推荐文章于 2024-06-30 10:27:27 发布

阅读量728

点赞数

文章标签： delphi integer string function forms interface

本文链接：https://blog.csdn.net/bill2006/article/details/1821220

版权

这是一个使用Delphi实现串口通信的代码示例，包括打开、关闭串口，设置波特率、数据位、停止位和校验位等功能。通过THandle管理串口句柄，并实现了读取串口数据的函数。

摘要由CSDN通过智能技术生成

unit Comm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseChildForm, Menus, DBActns, StdActns, ActnList, ImgList, DB,
ExtCtrls, StdCtrls, ComCtrls, Grids, Wwdbigrd, Wwdbgrid, ADODB,
DBCtrls;

type

TComInfo = record
    cCommNum: string;       { com1..com4 }
    cBaudRate: Integer;     { 1200..19200 }
    cDataLen: Integer;      { 6..8 }
    cStopLen: Integer;      { 1..2 }
    cParity: Integer;       { non, odd, even }
    cHandle: THandle;       // 串口打開後用來保存句柄
    Connectioned: Boolean;
end;

TComm= class(TfrmBaseChildForm)
private
    { Private declarations }
public
    { Public declarations }
    procedure CloseCom(iCom: Integer);
    procedure OpenCom(iCom:Integer);
    function ReadComStr(iCom: Integer): string;
    function GetComStr(cHandle:THandle):st