| Function int OpenComm(String Comm, Uint Inqueue,Uint Outqueue)Library “USER.EXE” Function int CloseComm(int lpt)Library “USER.EXE” Function int WriteComm(int lpt,String buf,int Size) Library “USER.EXE” Function int FlushComm(int lpt, int no_que)Library “USER.EXE” “拨号”按钮的”Clicked” 事件编程如下: int ret String port_2,ph_code port_2=”Com2” //取单行编辑框内容,并用atdt拨号 ph_code=”atdt”+sle_code+”~r~n” //打开串口 ret=OpenComm(port_2,128,128) //拨号开始 FlushComm(ret,0) FlushComm(ret,1) WriteComm(ret,ph_code,len(ph_code)) WriteComm(ret,”~r~n”,2) CloseComm(ret) |
二、利用Microsoft公司提供的通讯控件
利用Microsoft公司提供的通讯控件(Mscomm.vbx,用于16位通讯程序、Mscomm32.ocx用于开发32位通讯程序)可方便实现串口通讯
1、 常用属性 CommPort:设置或返回串行端口号,缺省为1。
| Setting:设置或返回串行端的波特率、奇偶校验位、 数据位数、停止位。缺省值为"9600,N,8,1"。 PortOpen:设置它为True则打开端口,设置它为False则关闭端口。 InBufferSize:设置或返回接收缓冲区的大小,缺省为1024 字 节。 InBufferCount:返回接收缓冲区内的等代读取的字节个数,设属性为0清除接收缓冲区。 OutBufferSize:设置或返回发送缓冲区,缺省为512字节。 OutBufferCounter:返回发送缓冲区内等待发送的字符数,可用0来清空缓冲区。 Output:向发送缓冲区传送数据 RThreshold: 该属性确定当接收缓冲区内字节个数达或超过该值后就产生代码为ComEventReceive 的OnComm事件,设置位0,则不产生OnComm事件。 CommEvent:有通讯错误或事件发生时产生OnComm事件,CommEvent事件的值可以用来确定引 发OnComm事件的具体的错误或事件常用的有以下几种(更详细的资料可参考MSComm控件帮助文件) ComEventbreak:接受到中断信号 ComEventFrame:硬件检测到帧错误。 ComEventRxOver:接收缓冲区溢出。 ComEventTxFull:发送缓冲区溢出。 ComEventReceive:接受到规定的字符数。 InputLen:设置或返回接收缓冲区内用Input读入的个数。若取0,则读取整个缓冲区的内容。 Input:返回并删除接受缓冲区的数据。 |
2、 示例:
下面举一接收程序示例:制作一通讯接收窗口,选择菜单Controls→OLE→Insert Control→Microsoft Communications Control,
在窗口中出现通信控件图标单击鼠标右键,选择OCX Properties设置常用属性,也可在程序中进行设置窗口的Open事件程序如下:
| ole_1.object.CommPort=2 ole_1.object.Settings="9600,N,8,1" ole_1.object.PortOpen=ture ole_1.object.Rthreshold=10 ole_1.object..Inputlen=0 . . 通信控件的oncomm事件的程序如下 choose case ole_1.object.CommEvent case comEventBreak //接收到中断信号 case comEventCDTO //处理CD超时 . . . case comEvReceive sle_1.text=ole_1.object.Input . . end choose |
以上是一个基本的例子,在实际应用过程中应根据不同的情况进行不同的设计,如波特率、帧格式等。
总之,利用以上方法可以方便的在PowerBuilder中进行串口通讯,并对接收的数据利用PowerBuilder进行数据处理。