如何通过串行口读取电话交换机的数据？

[SONGYP]

我现在需要做一个电话计费的软件，以前我用delphi写了一个计费的软件，可以接收电话交换机的数据。但是我现在在HJK-120集团电话交换机上不能正常接受数据，我知道它的数据格式，请问如何做？(在DELPHI下用MSCOMM 或SPCOMM控件都可以，最好给出源码).
数据格式如下：
1、串口配置：2400/无校验/8/2
向交换机每两个字节需要延时30毫秒，双方通讯格式为16进制
2、保持通讯：通讯期间每隔10秒发送 CC00020C 命令，以保持通信
3、话单：从交换机接受：
CC 65 15 PP QQ QQ QQ QQ QQ QQ QQ RR RR RR RR RR SS SS SS TT TT UU UU
接受后发往交换机应答信号： CC 06 05 0B 00 00 00 0C
说明：CC 65 15 特征字头
PP PP 主叫号码 2字节 物理号
QQ....QQ 被叫号码 7字节 BCD码
RR....RR 始话时间日期 5字节 月日时分秒
ss ss ss 时长 3字节
TT TT 账号(十六进制) 如是FFFF表示非密码记账
UU UU 内部保留
例如：收：CC651500A702165356786FFF1207153211000115FFFF000A
发：CC 06 05 0B 00 00 00 0C
主叫：为167(A7)的分机
被叫：021653556786
始话：12月7日15时32分11秒
时长：0时1分15秒
非密码记账

[dzogchen]

等待回答。。。。。。。。。。。。。。。。。。。。。。。。。。

[dzogchen]

转载http://bbs.yesky.com/servlet/BBS.forum?funcid=show&ArticleID=1001748&ArticleFatherID=-1&ForumID=105

Delphi 中串口通讯的实现
张海航·YESKY

Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度
快等特点，是全球公认的快速应用开发工具技术的先驱者，它越来越在构架企业
信息系统方面发挥着重要作用。由于Delphi
这些显著特点，许多程序员选择Delphi作为开发工具编制各种应用程序。但是，
令人惋惜的是Delphi没有自带串口通讯的控件，在它的帮助文档里也没有提及串
口通讯，这就给编制通讯程序的开发人员带来众多麻烦，影响了开发进度，下面
就这一技术进行讨论。



　　用Delphi 实现串口通讯，常用的几种方法为：使用控件如MSCOMM和
SPCOMM，使用API函数或者在Delphi
中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量
通信知识，其优点是可实现的功能更强大，应用面更广泛，更适合于编写较为复
杂的低层次通信程序。相比较而言，利用SPComm控件则相对较简单，该控件具有
丰富的与串口通信密切相关的属性及事件，提供了对串口的各种操作。



　　使用控件这一方法容易掌握，而SPCOMM支持多线程，所以SPCOMM控件的应用
更加广泛。结合实例详细介绍SPCOMM的使用。



一．SPCOMM控件的安装



1．选择下拉菜单Component的第二项Install Component 。





图1



　　弹出图1所示的窗口,在Unit file name 处填写控件SPCOMM控件所在路径，
其它可用默认值，点击OK按纽。



2．安装成功后，system控件面板中将出现一个红色控件COMM。现在使用COMM控
件可以象Delphi自带控件一样使用.。

二．SPCOMM的主要属性，方法和事件

1.属性

CommName：填写COM1,COM2…等串口的名字,在打开串口前，必须填写好此值。

BaudRate:设定波特率9600，4800等，根据实际需要来定，在串口打开后也可更
改波特率，实际波特率随之更改。

ParityCheck：奇偶校验。

ByteSize：字节长度_5,_6,_7,_8等，根据实际情况设定。

Parity：奇偶校验位

StopBits：停止位

SendDataEmpty：这是一个布尔属性，为true时表示发送缓存为空，或者发送队
列里没有信息；为False时表示表示发送缓存不为空，或者发送队列里有信息。

2．方法

　　Startcomm过程用于打开串口，当打开失败时通常会报错，错误主要有7
种：
⑴串口已经打开 ；
⑵打开串口错误 ；
⑶文件句柄不是通讯句柄；
⑷不能够安装通讯缓存；
⑸不能产生事件 ；
⑹不能产生读进程；
⑺不能产生写进程；

　　StopComm过程用于关闭串口，没有返回值。

　　函数WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word ):
boolean 用于发送一个字符串到写线程，发送成功返回true,发送失败返回
false, 执行此函数将立即得到返回值，发送操作随后执行。函数有两个参数，
其中 pdatatowrite是要发送的字符串，dwsizeofdatatowrite 是发送的长度。

3．事件

OnReceiveData : procedure (Sender: TObject;Buffer:
Pointer;BufferLength: Word) of object　
　　当输入缓存有数据时将触发该事件，在这里可以对从串口收到的数据进行处
理。Buffer中是收到的数据，bufferlength是收到的数据长度。

OnReceiveError : procedure(Sender: TObject; EventMask : DWORD)
　　当接受数据时出现错误将触发该事件。
三．SPCOMM的使用

　　下面，我们结合一个串口通讯的例子来说明SPCOMM的使用。

　　为了实现PC与单片机8051之间的通讯，首先要调通它们之间的握手信号，假
定它们之间的通讯协议是，PC到8051一帧数据6个字节,8051到PC一帧数据也为6
个字节,当PC发出（F0,01,FF,FF,01,F0）后能收到这样一帧
（F0,01,FF,FF,01,F0），表示数据通信握手成功，两者之间就可以按照协议相
互传输数据。在PC方要发送及接受数据需要以下步骤：

1.创建一个新的工程COMM.DPR，把窗体的NAME属性改为FCOMM，把窗体的标题改
为测试通讯，添加控件。

　　对COMM1(黑色矩形围住的控件)进行属性设计，设波特率4800，校验位无，
字节长度_8，停止位_1，串口选择COM1。Memo1中将显示发送和接受的数据。选
择File/Save As将新的窗体存储为Comm.pas。

2．编写源代码

变量说明

var

FCOMM: TFCOMM;

Viewstring:string;

i:integer;

rbuf,sbuf:array[1..6] of byte;

打开串口

procedure TFCOMM.FormShow(Sender: TObject);

begin

comm1.StartComm;

end;

关闭串口

procedure TFCOMM.FormClose(Sender: TObject; var Action:
TCloseAction);

begin

comm1.StopComm;

end;

发送数据
自定义的发送过程

procedure senddata;

var

i:integer;

commflg:boolean;

begin

viewstring:="";

commflg:=true;

for i:=1 to 6 do

begin

if not fcomm.comm1.writecommdata(@sbuf[i],1) then

begin

commflg:=false;

break;

end;

sleep(2); {发送时字节间的延时}

viewstring:=viewstring+inttohex(sbuf[i],2)+" ";

end;

viewstring:="发送"+viewstring;

fcomm.memo1.lines.add(viewstring);

fcomm.memo1.lines.add("");

if not commflg then messagedlg("发送失败!",mterror,[mbyes],0);

end;



procedure TFCOMM.Btn_sendClick(Sender: TObject);{发送按钮的点击事件}

begin

sbuf[1]:=byte($f0); {帧头}

sbuf[2]:=byte($01); {命令号}

sbuf[3]:=byte($ff);

sbuf[4]:=byte($ff);

sbuf[5]:=byte($01);

sbuf[6]:=byte($0f); {帧尾}

senddata;{调用发送函数}

end;

接收过程

procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;

BufferLength: Word);

var

i:integer;

begin

viewstring:="";

move(buffer^,pchar(@rbuf^),bufferlength);

for i:=1 to bufferlength do

viewstring:=viewstring+inttohex(rbuf[i],2)+" ";

viewstring:="接受"+viewstring;

memo1.lines.add(viewstring);

memo1.lines.add("");

end;

　　如果memo1上显示发送F0 01 FF FF 0F 和 接受F0 01 FF FF F0

这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。

[liyb]

关注！我也要

[The_east_key]

建议您访问www.etechbase.net/tech,里面有很多资料，也许可以解决您的问题。
访问http://168.168.18.11:81/etechbase/advsearch.php将您的问题输入查询内容框，选择不同的精确程度，即可以找到你所需要的答案。效果还是可以的。

[SONGYP]

dzogchen :
为什么move(buffer^,pchar(@rbuf^),bufferlength); 这行语句在执行时出现错误：
Pointer type required

[SONGYP]

我知道了只需要这么写就可以了 move(buffer^,rbuf,bufferlength);

[SONGYP]

dzogchen 请给我讲一下为什么会出现错误？

[bitter]

var s:string;
....
程序中
OnReceiveData 事件中　

setlength(s,bufferlength);
move(buffer^,pchar(s)^,bufferlength);

[torrentwang]

我也 很关心这个问题,