串口通訊(Delphi)

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