frmdemoimp.~pas

完成Linux下的串口程序,串口发送延时程序

unit FrmDemoImp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;

type
  TFrmDemo = class(TForm)
    Button1: TButton;
    ComPort: TComPort;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Button8: TButton;
    Button11: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Button7: TButton;
    Button6: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDemo: TFrmDemo;
  SelChangeLine,CallTimeSum,WireSel:Integer;
  boolSendLine:Boolean;
implementation

uses ADTCommImpl;

{$R *.dfm}

procedure TFrmDemo.FormShow(Sender: TObject);
begin
  if ComPort.Connected then//端口没打开
    ComPort.Close;

  try
    ComPort.Port := 'COM1';
    ComPort.BaudRate := br57600;
    comPort.DataBits := dbEight;
    comPort.StopBits := sbOneStopBit;
    comPort.Parity.Check := False;
    comPort.Parity.Bits := prNone;
    comPort.Buffer.InputSize := InputSizeBuffer;
    comPort.Buffer.OutputSize := OutputSizeBuffer;
    ComPort.Open;
  except
    ShowMessage('打开通讯端口时出错！');
  end;
end;

procedure TFrmDemo.Button1Click(Sender: TObject);
var
  boolSuccess: Boolean;
begin
  boolSuccess := False;
  if ClearSubScreen('001', boolSuccess, ComPort) then
  begin
    if boolSuccess then
      ShowMessage('进入了“001”号桌牌客户模式！')
    else
      ShowMessage('进入“001”号桌牌客户模式时失败！');
  end;
end;

procedure TFrmDemo.Button2Click(Sender: TObject);
var
  boolSuccess: Boolean;
begin
  boolSuccess := False;
  if CloseSSCM('001', boolSuccess, ComPort) then
  begin
    if boolSuccess then
      ShowMessage('关闭了“001”号桌牌主屏客户模式！')
    else
      ShowMessage('关闭“001”号桌牌主屏客户模式时失败！');
  end;
end;

procedure TFrmDemo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ComPort.Connected then
    ComPort.Close;
end;

procedure TFrmDemo.Button3Click(Sender: TObject);
var
  boolSuccess: Boolean;
begin
  boolSuccess := False;
  if SetAddr('001', boolSuccess, ComPort) then
   showmessage('设置终端序号成功！')

end;


procedure TFrmDemo.Button5Click(Sender: TObject);
var
  boolExisted,boolSuccess: Boolean;
  FileName,strWorkPath,strCurConDir: String;
begin

   strWorkPath := ExtractFilePath(Application.ExeName);
   strCurConDir := strWorkPath +'1';
   FileName := strCurConDir +'.txt';

  if FileExist('001',FileName,boolSuccess,ComPort) then //查询下位机程序的情况
  begin
    if boolSuccess then
       DelFile('001','1.txt',boolSuccess,ComPort);//删除下位机程序
  end;
  OpenFile('001',FileName,boolSuccess,ComPort);
  if WriteFlie('001',FileName,boolSuccess,ComPort) then
  begin
    if boolSuccess then
      ShowMessage('上传文稿成功！')
    else
      showMessage('上传文稿失败！');
  end;
  CloseFlie('001',boolSuccess,ComPort);
  ShowMessage('向“' + '001' + '”号桌牌发送“议程文稿”成功!');
end;




procedure TFrmDemo.Button8Click(Sender: TObject);
begin
  close;
end;





procedure TFrmDemo.Button4Click(Sender: TObject);
var
  boolSuccess: Boolean;
begin
  SendMsg('001',edit1.text,boolSuccess, ComPort);
end;

procedure TFrmDemo.Button7Click(Sender: TObject);
var
  strName: string;
  objTemp: TStrings;
  boolSuccess: Boolean;
  objDT: TDateTime;

  strAddr:string;
  boolExisted:Boolean;

  strTemp,strWorkPath,strCurConDir,FileName:string;
begin
    strAddr := '001';
    strWorkPath := ExtractFilePath(Application.ExeName);
   strCurConDir := strWorkPath +'1';
   FileName :=strCurConDir+'.txt';
    strName := FileName;
    //打开文本文件(先判断文件是否存在）
    if FileExist(strAddr, strName,boolExisted,ComPort) then
    begin
      if not boolExisted then
      begin
        ShowMessage('桌牌“' + strAddr + '”中找不到文稿文件“' +strName + '”，请先上传！');
        exit;
      end;
    end;
//======================================
    boolSuccess := False;
      begin
          boolSuccess := False;//群发
           if OpenTextFile(strName,boolSuccess, ComPort) then
           begin
              ShowMessage('已显示了文稿“' + strName + UpperCase('.TXT') + '”！');
{              SetScrollSpeed('001',0,boolSuccess,ComPort);}
           end;
      end;
end;

procedure TFrmDemo.Button6Click(Sender: TObject);
var
   boolSuccess:boolean;
begin
//   DelFile('001','1.txt',boolSuccess,ComPort);
//   FormatDisk('001',boolSuccess,ComPort);
end;

procedure TFrmDemo.Button9Click(Sender: TObject);
var
   boolSuccess:boolean;
begin
   if DelFile('001','1.txt',boolSuccess,ComPort) then
   showMessage('已经删除文件');
end;

end.