Spcomm,串口开发利器,使你开发Delphi变的更简单。
上传时间: 2019-09-09
上传用户:polisheyes
短信收发控件,控件从Spcomm继承,并且增加了短信收发功能。
上传时间: 2013-12-21
上传用户:woshini123456
一个串口通信的软件,需要Spcomm组件,请注意
上传时间: 2015-11-17
上传用户:1101055045
2005-7-13 10:03 前几天要做一个短信收发的小软件,于是按照习惯Box寻找例程和控件,可惜没有找到! 于是,大幅翁、Google!!!终于找到了好几个,不是要收费就是不能用!气愤!! 这又不是什么高新尖端科技,俺们不是做不出来,俺们只是秉承RAD的精神而已! 于是这个短消息控件诞生了!虽然还很简陋,起码胳膊腿都有了,剩下就看它怎么跑了! 使用标准AT指令 现在只能支持PDU模式(Text模式太简陋)! 支持7_Bit 和 UCS2 编码 集成了串口(Spcomm) 只需要简单的配置几个参数就可以收发短信了
上传时间: 2015-12-19
上传用户:wxhwjf
串口通讯在客户端/服务器类型的应用程序设计中经常要使用到,目前串口通讯采用的一般是专用软件包或者标准串口通讯协议(如XMODEM、ZMODEM等),这样完整详细且免费的软件包比较少,所以在Spcomm的基础之上建立了本文所描述的串口通讯协议,称之为RCC(表示为Reliable Comm Communication),其主要目标是在用串口进行通讯的客户端/服务器双方建立一条可靠的通讯链路,就象TCP(RFC793)一样。该协议的目前的开发是采用VC++,应用平台为WIN95/NT,但作为RCC协议的本身不受具体编程语言及操作系统所限制,
上传时间: 2013-12-19
上传用户:ls530720646
BCB 串口通信,使用Spcomm 控件,修改自串口调试助手Delphi版
上传时间: 2014-09-10
上传用户:1101055045
unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Spcomm, StdCtrls, ExtCtrls type TFcomm = class(TForm) Comm1: TComm GroupBox1: TGroupBox Memo1: TMemo Memo2: TMemo GroupBox2: TGroupBox Button1: TButton Btn_send: TButton Button2: TButton procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) procedure Btn_sendClick(Sender: TObject) procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer BufferLength: Word) private { Private declarations } public { Public declarations } end
标签: interface Messages Graphics Controls
上传时间: 2016-06-10
上传用户:gxmm
别人写的一个串口通讯控件,经过长期使用证明,很好用的。参考了Comm32,及Spcomm等。主要是修正了Comm32中的.pas
上传时间: 2016-10-01
上传用户:windwolf2000
Delphi源程序,利用Spcomm控件实串口通信。
上传时间: 2014-06-22
上传用户:sardinescn
procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end end (4) 接收数据 在编写基于串口的计算机工业测控时,通常需要由下位机向PC机发送数据以使PC机了解系统的测试数据或下位机的运行状态,并进而控制下位机的行为。利用Spcomm串口控件接收下位机发送的数据信息的示例代码如下: //事件驱动方式接收数据程序 procedure TForm1.CommlReceiveData(Sender:Tobject Buffer:Pointer bufferLength:Word) var receivedata:array of byte begin sleep(100) //等待100ms,保证接收到所有数据 move(buffef ,receivedata,bufferlength) //将接收缓存区中的数据转移到数组中 …… end (5) 关闭串口 在系统开发中,应注意在不使用串口时应及时关闭串口,释放系统资源,否则可能会影响系统的其它应用。关闭串口的代码如下: procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction ) begin comml.StopComm end
标签: commflg procedure senddata integer
上传时间: 2014-01-26
上传用户:懒龙1988