delphicom编程

‘壹’ 请问 DELPHI串口通讯编程 的基本思路是什么

用Delphi开发串口通信软件一般有两种方法：一是利用Windows的通信API函数，另一种是采用Microsoft的MSComm控件。利用 API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复杂的低层次通信程序。而利用 MSComm控件则相对较简单，该控件具有丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。
一、MSComm控件的主要属性及事件
（1）CommPort：设置或返回串行端口号，缺省为1。
（2）Setting：设置或返回串口通信参数，格式为“波特率，奇偶校验位，数据位，停止位”。例如：MSComm1.Setting:='9600,n,8,1'
（3）PortOpen：打开或关闭串行端口，格式为：MSComm1.PortOpen:={True|False}
（4）InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。
（5）InBufferCount：返回接收缓冲区内等待读取的字节数，可通过设置该属性为0来清空接收缓冲区。
（6）RThreshold：该属性为一阀值，它确定当接收缓冲区内的字节个数达到或超过该值后就产生代码为ComEvReceive的OnComm事件。
（7）SThreshold：该属性为一阀值，它确定当发送缓冲区内的字节个数少于该值后就产生代码为ComEvSend的OnComm事件。
（8）InputLen：设置或返回接收缓冲区内用Input读入的字节数，设置该属性为0表示Input读取整个缓冲区的内容。
（9）Input：从接收缓冲区读取一串字符。
（10）OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。
（11）OutBufferCount：返回发送缓冲区内等待发送的字节数，可通过设置该属性为0来清空缓冲区。
（12）OutPut：向发送缓冲区传送一串字符。
如果在通信过程中发生错误或事件，就会引发OnComm事件，并由CommEvent属性代码反映错误类型，在通信程序的设计中可根据该属性值来执行不同的操作。CommEvent属性值及其含义如下：
（1）ComEvSend：值为1，发送缓冲区的内容少于SThreshold指定的值。
（2）ComEvReceive：值为2，接收缓冲区内字符数达到RThreshold指定的值。
（3）ComEvFrame：值为1004，硬件检测到帧错误。
（4）ComEvRxOver：值为1008，接收缓冲区溢出。
（5）ComEvTxFull：值为1010，发送缓冲区溢出。
（6）ComEvRxParity：值为1009，奇偶校验错误。
（7）ComEvEOF：值为7，接收数据中出现文件尾（ASCII码为26）字符。
二、程序样例
在Delphi3.0中无法使用MSComm控件，笔者使用的是Delphi5.0。MSComm控件是VB中的OCX控件，首先需要将其添加到 Delphi中，选择菜单“Component”→“Import ActiveX Control”，在“Import ActiveX”页内选择“Microsoft Comm Control”，点击“Install”安装，安装后在“ActiveX”组件板中出现MSComm图标，即可被使用。有一点要注意，在Object Inspector中MSComm控件的Input和Output属性是不可见的，但它们仍然存在，这两个属性的类型是OleVariant（Ole万能变量）。
下面是一接收程序的样例（主要部分），大家可根据实际需要进行完善。
在Form中放置一Memo控件用于显示接收的数据，Combobox1选择通信参数（Setting属性值），Combobox2选择串口（CommPort属性值），按Button1开始接收数据，按Button2停止接收。
procere TForm1.FormCreate(Sender: TObject);
begin
Mscomm1.InBufferCount :=0; // 清空接收缓冲区
Mscomm1.InputLen :=0; // Input读取整个缓冲区内容
Mscomm1.RThreshold :=1; // 每次接收到字符即产生OnComm事件
end;
procere TForm1.Button1Click(Sender: TObject);
begin
Mscomm1.Settings :=ComboBox1.Text;
if ComboBox2.Text ='com1' then // 假设只考虑com1和com2两种情况
Mscomm1.CommPort :=1
else
Mscomm1.CommPort :=2;
Mscomm1.PortOpen :=true; // 打开串口
Mscomm1.DTREnable :=true; // 数据终端准备好
Mscomm1.RTSEnable :=true; // 请求发送
end;
procere TForm1.Button2Click(Sender: TObject);
begin
Mscomm1.PortOpen :=false; // 关闭串口
Mscomm1.DTREnable :=false;
Mscomm1.RTSEnable :=false;
end;
procere TForm1.MSComm1Comm(Sender: TObject);
var
recstr:Olevariant;
begin
if Mscomm1.CommEvent = 2 then
begin
recstr := Mscomm1.Input ;
Memo1.text := Memo1.Text ＋ recstr;
end;
end;

‘贰’ Delphi 7：操作串口（ComPort）

串行接口 （ Serial Interface ），简称 串口 ，即 COM接口 （ cluster communication port ， 串行通讯端口 ），是采用串行通讯方式的扩展接口。

一条信息的各位数据被 逐位按顺序传送 的通讯方式称为 串行通讯 。

串口的出现 是在1980年前后，初期一般用来连接鼠标和外置 Modem 以及老式摄像头和写字板等设备，它也可以应用于两台计算机（或设备）之间的互联及数据传输。

串口的特点 是通信线路简单，只要一对传输线就可以实现双向通信，从而大大降低了成本，特别适用于远距离通信，但传送速率较慢，115kbps～230kbps。

由于串口不支持热插拔及传输速率较低，部分新主板和大部分便携电脑已取消该接口，目前多用于工控和测量设备以及部分通信设备中。

USB ， Universal Serial Bus 通用串行总线 ，是一个外部总线标准，诞生于1996年之后，用于规范电脑与外部设备的连接和通讯，是应用在PC领域的接口技术。

USB设备有以下优点：

相较于USB，串口已经是一种古老的技术了，而且PC上已经很少见到串口了，但为什么有了USB还要用串口呢?

一般而言，一个串口只能被一个软件占用，其他软件就用不了这个串口了。

使用这个虚拟串口软件生成的COM1、COM2，默认是相互连接的，从COM1发送数据，可以从COM2接收到；从COM2发送数据，可以从COM1接收到。我们可以通过这样的方式，来测试自己所写的软件。

Delphi 7 操作串口，我这里引用了第三方控件 ComPort： uses CPort

我这里是将两个exe文件，分别运行了。

‘叁’ DELPHI编程

1．类似于vb．中的doevents功能。

大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括类似的一个方法：ProcessMessage，你可以通过调用Application．ProcessMessage来完成象vb．中的doevents一样的功能。

2．在Delphi中调用NetscapeNavigator。

随着Internet的火爆，有没有想过在你的Delphi程序中启动Netscape浏览器，显示出你指定的WWW地址的主页。下面这个程序能够完成这一功能。

programNetscape；

usesDDEMan；

procereGotoURL（sURL：string）；

var

dde：TDDEClientConv；

begin

dde：=TDDEClientConv．Create（nil）；

withddedo

begin

／／specifythelocationofnetscape．exe

ServiceApplication：=′c：\ns32\program\netscape．exe′；

／／activatetheNetscapeNavigator

SetLink（′Netscape′，′WWW—Activate′）；

RequestData（′0xFFFFFFFF′）；

／／gotothespecifiedURL

SetLink（′Netscape′，′WWW—OpenURL′）；

RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，′）；

CloseLink；

end；

dde．Free；

end；

begin

GotoURL（′http：／／www．yahoo．com／′）；

end．

3．格式化整数输出。

比较大的数字在输出时会显得不易阅读，在Delphi中显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。

4．在编译时获得提示。

在Delphi2．0中，编译时，可以让编译器告诉你一些提示，比如哪些变量声明了，却从来没有使用过。我们知道，可以通过菜单中的选项来控制是否要Delphi这样做，但如果由于一些特殊需要，你只要在指定的代码段需要Delphi这样的提示，怎么办呢？请参考如下的程序。

｛＄HINTON｝

procereTform1．Button1Click（Sender：TObject）；

var

X：integer；

begin

end；

｛＄HINTOFF｝

5．更改Windows95的墙纸。

在Delphi中你可以很方便地更改墙纸，请参考以下的程序。

procereChangeIt；

var

Reg：TregIniFile；

begin

Reg：ΚTRegIniFile．Create（′ControlPanel′）
；

Reg．WriteString（′desktop′，′Wallpaper′，
′c：\pwin95\forest．bmp′）；

Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

Reg．Free；

SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，nil，SPIF—SENDWININICHANGE）；

end；

6．获得最后使用文件的日期。

在Win95中有一项新的功能，就是可以获得访问文件的最后日期。着名的CleanSweapforWin95软件中就是靠这一功能来作为判断某个文件是否被经常访问的依据之一。在Delphi中，我们可以通过下面的程序来达到此功能。

functionGetFileLastAccessTime（sFileName：string）：TDateTime；

var

ffd：TWin32FindData；

dft：DWord；

lft：TFileTime；

h：THandle；

begin

／／getfileinformation

h：ΚWindows．FindFirstFile（PChar（sFileName），ffd）；

if（INVALID—HANDLE—VALUEΙΛh）then

begin

／／we′relookingforjustonefile，socloseour″find″

Windows．FindClose（h）；

／／

FileTimeToLocalFileTime（ffd．ftLastAccessTime，lft）；

／／convertFILETIMEtoDOStime

FileTimeToDosDateTime（lft，LongRec（dft）．Hi，LongRec（dft）．Lo）；

／／finally，′snativedate／timefunctions

Result：ΚFileDateToDateTime（dft）；

end；

end；

GetFileLastAccessTime（）将会以Delphi的TdateTime格式返回你所指定的文件的最后访问日期。