apdcomport操作串口实例

最新推荐文章于 2021-05-27 13:53:39 发布
最新推荐文章于 2021-05-27 13:53:39 发布
阅读量5.5k 收藏
点赞数
分类专栏： 程序设计 文章标签： string integer timer button login forms
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ProvidenceZY/article/details/1761305
版权

以前准备写一个关于adpcommport的使用实例，后来由于时间太少么有写，看了baidu的统计，感觉不少同学比较关注这个东西，我给最新我写的一个软件的部分代码给贴上来，并做一些必要的说明，如果有什么不妥的地方希望大家给扔块转头！

unit commmain;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, OoMisc, AdPort, StdCtrls, ExtCtrls, ComCtrls, AdStatLt,IniFiles;

type
    Tdig=record
    util:string;
    id:string;
    end;
   TMainForm = class(TForm)
     ComPort1: TApdComPort;
     Panel3: TPanel;
     Btn_ClearView: TButton;
     StatusBar: TStatusBar;
     Btn_SaveView: TButton;
     Panel4: TPanel;
     CB_StopBits: TComboBox;
     Label3: TLabel;
     Label5: TLabel;
     CB_DataBits: TComboBox;
     CB_Parity: TComboBox;
     Label4: TLabel;
     Label2: TLabel;
     CB_Baud: TComboBox;
     CB_ComNum: TComboBox;
     Label1: TLabel;
     Btn_Reset: TButton;
     SaveDialog1: TSaveDialog;
     OpenDialog1: TOpenDialog;
     Timer_AutoSend: TTimer;
     CB_Clear: TCheckBox;
     CB_HexGet: TCheckBox;
     CB_StopShow: TCheckBox;
     Timer_WatchState: TTimer;
     Shape_ComState: TShape;
     GroupBox2: TGroupBox;
     DW_ComBox: TComboBox;
     Button1: TButton;
     Button2: TButton;
     Label9: TLabel;
     Label10: TLabel;
     Label11: TLabel;
     GroupBox4: TGroupBox;
     ManyMemo: TMemo;
     CB_many: TCheckBox;
     CB_hexSend: TCheckBox;
     GroupBox7: TGroupBox;
     Label14: TLabel;
     Edit2: TEdit;
     Label15: TLabel;
     Edit3: TEdit;
     Label16: TLabel;
     Edit4: TEdit;
     Label17: TLabel;
     Panel5: TPanel;
     GroupBox1: TGroupBox;
     GroupBox3: TGroupBox;
     Label12: TLabel;
     CheckBox2: TCheckBox;
     Label13: TLabel;
     dbbl: TEdit;
     Label18: TLabel;
     dbys: TComboBox;
     GroupBox5: TGroupBox;
     Label20: TLabel;
     ComboBox2: TComboBox;
     Label21: TLabel;
     Edit6: TEdit;
     GroupBox6: TGroupBox;
     Label8: TLabel;
     z: TLabel;
     DW_Id: TEdit;
     DW_Edit: TEdit;
     DW_Add: TButton;
     ComboBox3: TComboBox;
     Label23: TLabel;
     Label24: TLabel;
     Edit7: TEdit;
     GroupBox8: TGroupBox;
     Label25: TLabel;
     Edit8: TEdit;
     Label26: TLabel;
     Edit9: TEdit;
     Label27: TLabel;
     Edit10: TEdit;
     Edit11: TEdit;
     Label28: TLabel;
     Edit12: TEdit;
     Label29: TLabel;
     Btn_Send: TButton;
     Btn_CountReset: TButton;
     SendMemo: TMemo;
     CB_AutoSend: TCheckBox;
     Label6: TLabel;
     Edt_Interval: TEdit;
     Label7: TLabel;
     GroupBox9: TGroupBox;
     Memo1: TMemo;
     CheckBox4: TCheckBox;
     GroupBox10: TGroupBox;
     Label22: TLabel;
     ComboBox4: TComboBox;
     Label30: TLabel;
     kjkd: TEdit;
     CheckBox5: TCheckBox;
     Label31: TLabel;
     CheckBox3: TCheckBox;
     CheckBox6: TCheckBox;
     CheckBox7: TCheckBox;
     Label19: TLabel;
     Edit1: TEdit;
     Label32: TLabel;
     CheckBox8: TCheckBox;
     sd: TCheckBox;
     CheckBox10: TCheckBox;
     Label33: TLabel;
     zsw: TCheckBox;
     zsj: TCheckBox;
     yxw: TCheckBox;
     yxj: TCheckBox;
     mutilsend: TTimer;
     Button4: TButton;
     Memo_Show: TMemo;
     Memojx: TMemo;
     editCombox: TComboBox;
     procedure ComPort1Trigger(CP: TObject; Msg, TriggerHandle,
       Data: Word);
     procedure diff(s:string);
     procedure Btn_ResetClick(Sender: TObject);
     procedure SendHex(S: String);
     procedure Btn_SendClick(Sender: TObject);
     procedure Btn_ClearViewClick(Sender: TObject);
     procedure CB_ComNumSelect(Sender: TObject);
     procedure Btn_SaveViewClick(Sender: TObject);
     procedure CB_AutoSendClick(Sender: TObject);
     procedure Edt_IntervalKeyPress(Sender: TObject; var Key: Char);
     procedure Timer_AutoSendTimer(Sender: TObject);
     procedure Memo_ShowChange(Sender: TObject);
     procedure leijia(s:string);
     procedure zhuhang(s:string);
     procedure ComPortInit;
     procedure InitDate;
     procedure FormShow(Sender: TObject);
     procedure Btn_CountResetClick(Sender: TObject);
     procedure Timer_WatchStateTimer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Label9Click(Sender: TObject);
     procedure Label10Click(Sender: TObject);
     procedure DW_AddClick(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure DW_ComBoxChange(Sender: TObject);
     procedure CB_manyClick(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
     procedure CheckBox3Click(Sender: TObject);
     procedure CheckBox6Click(Sender: TObject);
     procedure Edit7Click(Sender: TObject);
     procedure CheckBox10Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure ManyMemoChange(Sender: TObject);
     procedure mutilsendTimer(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure StatusBarClick(Sender: TObject);
     procedure StatusBarDblClick(Sender: TObject);
   private
     { Private declarations }
   diglist: array[0..30] of Tdig;
     procedure myMemoAddText(strAdd : string);
     procedure init();
   public
     { Public declarations }
   end;

const
   version='定位控制器 1.0版';
   SoftName='定位控制器';


var
   MainForm   : TMainForm;
   JSdate,FSdate : integer;

var dbkmlList:TStringList;
     gjkmlList:TStringList;
     num:integer;

implementation
{$R *.dfm}
//显示隐藏
procedure TMainForm.myMemoAddText(strAdd : string);
var
   str : string;
begin
   str := Memo_Show.Lines[Memo_Show.Lines.Count-1];
   Memo_Show.Lines[Memo_Show.Lines.Count-1] := str+strAdd
end;

//累加显示
procedure TMainForm.leijia(s:string);
begin
   myMemoAddText(s);
end;

//逐行显示
procedure TMainForm.zhuhang(s:string);
begin
   Memo_Show.Lines.Add(s);
end;

procedure TMainForm.diff(s:string);
begin
   if not CB_StopShow.Checked then
         Leijia(s);
end;

//接收数据
procedure TMainForm.ComPort1Trigger(CP: TObject; Msg, TriggerHandle,
   Data: Word);
var
   I : Word;
   C : Char;
   s : String;
begin
   try
   case Msg of
     APW_TRIGGERDATA :
       {got 'login', send response}
       ;
     APW_TRIGGERAVAIL :
       {extract and display/process the data}
       begin
         s:='';
         for I:= 1 to Data do
         begin
           C := ComPort1.GetChar;
           if CB_hexGet.Checked then
           begin
             s:=s+inttohex(byte(c),2)+' ';
           end else
             s:=s+c;
           inc(JSdate);
         end;
         StatusBar.Panels.Items[2].Text:='接收：'+inttostr(JSdate);
       // str:=copy(s,8,4)+'号目标,'+'当前纬度：' +copy(s,12,7)+'，经度：'+copy(s,19,8)+',速度：'+copy(s,27,3)+'，高度：'+copy(s,34,6);
          Diff(s);
       end;
     APW_TRIGGERTIMER :
       {timed out waiting for login prompt, handle error}
       ;
   end;
   except
   end;
end;

//发送16进制数据
procedure TMainForm.SendHex(S: String);
var
   s2:string;
   buf1:array[0..50000] of byte;
   i:integer;
begin
   s2:='';
     for i:=1 to   length(s) do
     begin
       if ((copy(s,i,1)>='0') and (copy(s,i,1)<='9'))or((copy(s,i,1)>='a') and (copy(s,i,1)<='f'))
         or((copy(s,i,1)>='A') and (copy(s,i,1)<='F')) then
       begin
         s2:=s2+copy(s,i,1);
       end;
     end;
     for i:=0 to (length(s2) div 2-1) do
     begin
       buf1[i]:=strtoint('$'+copy(s2,i*2+1,2));
     end;
     MainForm.ComPort1.PutBlock(buf1,(length(s2) div 2));
end;

//等待串口发送完毕
procedure waitcommEmpty;
var
   t:integer;
begin
   t:=0;
   while (MainForm.ComPort1.OutBuffUsed>0) or (t>100) do
   begin
     sleep(200);
     inc(t);
   end;
     sleep(200);
end;

// 设置串口
procedure TMainForm.ComPortInit;
begin
   try
     ComPort1.Open:=false;
     Shape_ComState.Brush.Color:=clRed;
     sleep(50);
     ComPort1.ComNumber:=CB_ComNum.ItemIndex+1;
     ComPort1.Baud:=strtoint(CB_Baud.Text);
     case CB_Parity.ItemIndex of
     0:
       ComPort1.Parity:=pEven;
     1:
       ComPort1.Parity:=pMark;
     2:
       ComPort1.Parity:=pNone;
     3:
       ComPort1.Parity:=pOdd;
     4:
       ComPort1.Parity:=pSpace;
     else
       ComPort1.Parity:=pNone;
     end;
     ComPort1.DataBits:=strtoint(CB_DataBits.Text);
     ComPort1.StopBits:=strtoint(CB_StopBits.Text);
     ComPort1.Open:=true;
   except
     showmessage('串口不存在或被占用。');
   end;
end;

//设置计数器
procedure TMainForm.InitDate;
begin
   JSdate:=0;
   FSdate:=0;
   StatusBar.Panels.Items[1].Text:='发送：0';
   StatusBar.Panels.Items[2].Text:='接收：0';
end;

procedure TMainForm.Btn_ResetClick(Sender: TObject);
begin
ComPortInit;
end;

procedure TMainForm.Btn_SendClick(Sender: TObject);
var
   s:string;
begin
    s:=SendMemo.Text;
    if   ComPort1.Open then
    begin
       if CB_hexSend.Checked then
        SendHex(S)
      else
        ComPort1.PutString(s);
        FSdate:=FSdate+length(s);
       StatusBar.Panels.Items[1].Text:='发送：'+inttostr(FSdate);
       waitcommEmpty;
     end else
     showmessage('串口未打开。');
end;

procedure TMainForm.Btn_ClearViewClick(Sender: TObject);
begin
   Memo_Show.Clear;
end;

procedure TMainForm.CB_ComNumSelect(Sender: TObject);
begin
   ComPortInit;
end;

procedure TMainForm.Btn_SaveViewClick(Sender: TObject);
var s:string;
begin
if not DirectoryExists(S) then
begin
   CreateDir(S);
   S:='gps.txt';
   Memo_show.Lines.Delete(0);
   Memo_Show.Lines.SaveToFile(S);
end;
end;

procedure TMainForm.CB_AutoSendClick(Sender: TObject);
begin
   if CB_AutoSend.Checked then
   begin
   if (CB_AutoSend.Checked=true)then
if ((strtoint(Edt_Interval.Text)/1000)<2) then
begin
   showmessage('你选择的周期太短，可能会造成数据丢失，请输入大于2秒的周期！');
   CB_AutoSend.Checked:=false;
end else
   begin
     Edt_Interval.Enabled:=false;
     Timer_AutoSend.Interval:=strtoint(Edt_Interval.Text);
     Timer_AutoSend.Enabled:=true;
   end
        end else   begin
     Timer_AutoSend.Enabled:=false;
     Edt_interval.Enabled:=true;
     end;
end;

procedure TMainForm.Edt_IntervalKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#8 then exit;
   if (key>'9') or (key<'0') then
     key:=#0;
end;

procedure TMainForm.Timer_AutoSendTimer(Sender: TObject);
begin
   Btn_SendClick(Sender);
end;

procedure TMainForm.Btn_CountResetClick(Sender: TObject);
begin
   InitDate;
end;

procedure TMainForm.Timer_WatchStateTimer(Sender: TObject);
begin
   if   ComPort1.Open then
     Shape_ComState.Brush.Color:=clLime
   else
     Shape_ComState.Brush.Color:=clRed;
   StatusBar.Panels.Items[0].Text:=datetimetostr(now);
   StatusBar.Panels.Items[3].Text:=version;
end;

procedure TMainForm.Label9Click(Sender: TObject);
begin
MainForm.Width:=792;
label10.Visible:=true;
label9.Visible:=false;
end;

 

procedure TMainForm.CB_manyClick(Sender: TObject);
begin
    manymemo.Clear;
if(CB_many.Checked) then
     mutilsend.Interval:=strtoint(Edt_Interval.Text)
   end;

procedure TMainForm.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
   groupbox5.Enabled:=true
   else
   groupbox5.Enabled:=false;
end;

procedure TMainForm.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked=true then
    groupbox7.Enabled:=true else
    groupbox7.Enabled:=false;
end;

procedure TMainForm.Edit7Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   Edit7.Text:=OpenDialog1.FileName;
end;

procedure TMainForm.CheckBox10Click(Sender: TObject);
begin
if(checkbox10.Checked)then
    groupbox10.Enabled:=true;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
   editcombox.Items.Delete(editcombox.ItemIndex);
   dw_combox.Items:=editcombox.Items;
   showmessage('成功删除一条数据');
end;

procedure TMainForm.ManyMemoChange(Sender: TObject);
var i:integer;
begin
for i:=0 to manymemo.Lines.Count-1 do
begin
   diglist[i].util:=copy(manymemo.Lines[i],0,pos('(',manymemo.Lines[i])-1);
   diglist[i].id:=copy(manymemo.Lines[i],pos('(',manymemo.Lines[i])+1,4);
end;
end;

procedure TMainForm.mutilsendTimer(Sender: TObject);
begin
     sendmemo.Clear;
     sendmemo.Text:='$GPCMD,'+copy(manymemo.Lines[num],pos('(',manymemo.Lines[num])+1,4)+',01,000,000,00'+#13+#10;;
     num:=num+1;
   if(num>=manymemo.Lines.Count)then
      num:=0;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   Ini: TIniFile;
var i:integer;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
for i:=0 to editComBox.Items.Count-1 do
begin
    Ini.WriteString('单位','Id'+inttostr(i),DW_ComBox.Items[i]);
end;
finally
Ini.Free;
end;
end;
procedure TMainForm.StatusBarClick(Sender: TObject);
begin
groupbox2.Visible:=false;
mainform.ClientHeight:=20;
end;

procedure TMainForm.StatusBarDblClick(Sender: TObject);
begin
groupbox2.Visible:=true;
mainform.ClientHeight:=424;
end;

end.
adpcommport组件是一个操作串口很方便的组件，不需要依赖任何ocx控件，而且适用于很多编程平台，它接收数据主要就是用Trigger方法，使用起来非常简单，只不过是针对具体的内容加以灵活运用而已，数据接受按照不同调制解调器的通讯协议接收并解析就可以了，有什么问题，大家可以跟贴讨论！

 
iskyshop
关注
专栏目录
apdcomport.zip_ApdComPort_DELPHI 串口控件_apdcomport 控件_delphi ApdC
07-14
串口控件 delphi经常使用的控件 非常稳定好用
使用ApdComPort
wjhx的专栏
03-09 296
发送数据：TSendArray = array of byte; var b_arr:TSendArray; begin SetLenght(b_arr, 10); b_arr[0]:=$4; b_arr[1]:=$5; … for iLen:=Low(b_arr) to High(b_arr) do ApdComPort1.PutChar(Char(b_arr[iLen])); end...
Delphi环境下利用ApdComPort控件开发串口通信程序
11-06
本文通过应用ApdcomPort控件开发票据打印机系统的实例，介绍了ApdComPort控件的属性和功能，论述了在Delphi环境下利用ApdComPort控件进行串行通信程序开发的思路和方法。
ApdComPort 的使用说明
01-12
ApdComPort 的使用说明相关信息可了解串口
ApdComPort应用
weixin_30906425的博客
08-17 199
ApcComPort的主要属性：触发器4只，串口号，输入输出方法。 最常用的时间触发器，有用数据触发器，匹配数据触发器。其中有用数据触发器需要和匹配数据触发器配合使用。 一，TriggerAvail 和dataTrigger 　　ApdComPort1.AddDataTrigger('a',false);//添加要匹配的字符，a可以自由设定。 　　procedure TriggerAvai...
LabVIEW串口通信设计实例.zip_LabVIEW通信_labview 串口_labview串口_labview设计实例_串
07-15
串口程序，以及传感器的上位机程序，已经验证过
ARM-cf卡串口定时器操作实例原代码（共大家调试使用）
09-09
在本文中，我们将深入探讨如何在ARM架构的嵌入式系统中使用串口定时器进行操作，特别是通过原代码实例来提升对LBSALE的理解。标题提到的"ARM-cf卡串口定时器操作实例原代码"是一个面向实践的学习资源，旨在帮助...
2.串口通讯实例.rar_QT 串口_qt串口实例_串口 QT_串口2的配置_串口通讯实例
07-14
用QT实现串口通讯的实例，包括串口配置，发送和接收数据，简单易懂，注释详细。
java 操作串口实例 自己写的 jdk1.5
01-24
Java 操作串口是计算机通信领域的一个...以上就是关于“java 操作串口实例 自己写的 jdk1.5”实例的主要知识点。通过学习和实践这个实例，开发者可以更好地理解 Java 如何处理串口通信，并能将其应用到自己的项目中。
使用ApdComPort取数据
wjhx的专栏
12-09 154
apd1.AutoEnable:=True;apd1.StartCond:=scString;apd1.StartString:=#0#0#4+'?'+#11#11;apd1.EndCond:=[ecPacketSize];apd1.PacketSize:=17;apd1.IncludeStrings:=True; apd2.AutoEnable:=True;apd2.StartCond:=s...
利用ApdComPort控件开发串口通信程序
08-31
利用ApdComPort控件开发串口通信程序
Delphi串口通信——comport控件源码
06-12
Delphi 串口通信 comport控件源码
DELPHI中用TApdComPort实现串行通信
10-22
介绍DELPHI下使用控件进行多线程串口通信的理论和方法，是delphi用户学习串口通信的好资料
ApdComPort应用续
weixin_30824277的博客
08-20 163
来看个最简单的例子： unit ... type.. .... //组件 ....//进程 //接收串口数据 procedure TForm5.ApdComPort1Trigger(CP: TObject; Msg: Word; TriggerHandle: Word; Data: Word); begin 　　case msg of 　　　　Apw_AVAILTRIGGER:...
DELPHI发送超长短信的类
houjbf的专栏
07-18 724
 转自：http://blog.csdn.net/masterjames/archive/2009/07/16/4354013.aspx =====================================DELPHI发送超长短信的类（一） unit imSMSUtils;{*********************************************
tapdcomport和tapddatapocket
后之后觉的专栏
10-12 858
配合使用可是实现1、特定的字符表示特定的含义，比方说RZ＃13表示Zmoden协议2、有开始和结束符的。3、有开始符的且有固定长度4、有结束符的开始符在startcond和startstring两个确定结束符由endcond和endstring两个确定 如果是第3中情况endcond中ecpacketsize:=true;packetsize:=__;填上自己的
常见的串口控件（1）
weixin_30660027的博客
05-28 969
串口控件主要有三种： mscomm: 微软的东西，是VB中带的一个ActiveX控件，使用简单，性能一般，由于是ActivX控件，打包时需要注册好多信息，在Delphi中使用，建议使用VCL控件，编译程序时直接编入程序中，再不需任何其它处理。spcomm: 比较好的vcl控件，算是比较专业的，解剖了一下，功能比较完善。TurboPower: 公认的专业通讯vcl控件。可以到其站点下载，开放源码了...
Delphi中ComPort通信中的数据处理
qq_41661878的博客
08-18 1828
Delphi中ComPort通信中的数据处理 1.串口通信的基本原理： 一般计算机与外部设备通讯有两种方式： 并行传送（Parallel ）：一次的传输量为8个位（1字节），通过并行端口，如打印机 串行传送（Serial ）：一次只传输1个位，通过串行端口，如RS-232 位与字节的概念： 二进制中的每一位0和1，被叫做一个位，每8个位构成一个字节 一个字节中最右面的位被称为第0位，最左面的位被称为第7位。 传输过程中的字节类型：一般有两种。 1.文本（字符字母、标点符号等）在计算机中存储时，每个不同的字符
delphi android 串口通信,Delphi 7：操作串口（ComPort）
weixin_34723479的博客
05-27 1503
一、串口的简介串行接口(Serial Interface)，简称串口，即COM接口(cluster communication port，串行通讯端口)，是采用串行通讯方式的扩展接口。一条信息的各位数据被逐位按顺序传送的通讯方式称为串行通讯。串口的出现是在1980年前后，初期一般用来连接鼠标和外置Modem以及老式摄像头和写字板等设备，它也可以应用于两台计算机(或设备)之间的互联及数据传输。串口的...
使用ATL创建COM组件：串口操作实例
客户端代码可以通过CoCreateInstance函数实例化这个组件，并调用其公开的接口方法进行串口操作。 通过以上步骤，你可以使用ATL和Visual Studio 2010创建一个能够处理串口通信的COM组件，实现跨进程甚至跨平台的串口...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值