当前位置: 代码迷 >> PB >> pb讯息通知
  详细解决方案

pb讯息通知

热度:83   发布时间:2016-04-29 06:41:21.0
pb消息通知
PB的消息通知怎么做。
比如有一张采购申请单传过来要我审批。需要弹出一个消息。
请问这个是怎么处理的?不要告诉我用一个timer在哪里不停地读数据库啊。

我看了一本资料,说是用com组建什么的,没搞过,不明白.

请高手赐教。

------解决方案--------------------
用winsock来实现
------解决方案--------------------
[转载]在pb中使用WINSOCK控件的方法  

随着资源共享和实时通讯的需要,很多计算机应用程序早已甩开单兵作战的模式,转入联合行动。

  网络在计算机世界里,越来越发挥着举足轻重的作用。在WINDOWS应用程序中,处理实时通讯最常用到的还是MICROSOFT公司提供的 WINSOCK控件。许多资料都细述了WINSOCK在VB中的使用方法,就连WINDOWS本身提供的hlp文件也是针对VB而写的。笔者因为实际应用的需要,琢磨出了WINSOCK控件在PB中的应用方法。好东西不敢独自享用,拿出来与大家共享。

  下面以一个简单程序为例,说明WINSOCK控件在PB中的使用:

  一、在窗口中添加WINSOCK控件:

  在应用中新开一个窗口,在窗口画板中点击controls-->OLE菜单项,弹出Insert object窗口,单击Insert control标签,从列表框中双击选定Microsoft Winsock control,将winsock的图标贴在窗口上。

  在程序中该控件名称定为winsock_a(甲方)和winsock_b(乙方)。

  二、设置信息输入输出文本框:

  在窗口中增加一个按钮cb_1,两个单行文本框sle_1,sle_2,分别用于输入要发送的字符串和接受对方发送的字符串。

  三、设置通讯协议:

  WINSOCK控件允许用户以UDP和TCP两种协议中任选一种进行通讯。

  1.UDP协议设置:UDP协议是一种无连接的通讯协议,在通讯之前,需要绑定remotehost和remoteport属性,如果需要双向通讯,还要设置localport属性。

  在甲方(本机地址为:134.1.1.1)窗口的Open事件中加入如下语句:

winsock_a.object.protocol=1
//winsock通讯协议设为UDP协议
winsock_a.object.remotehost="134.1.1.2"
//对方的ip地址
winsock_a.object.remoteport=6000
//对方的winsock通讯端口号
winsock_a.object.localport=6001
//本机的winsock通讯端口号
winsock_a.object.bind
//绑定通讯协议

  在乙方(本机地址为:134.1.1.2)窗口的Open事件中加入如下语句:

winsock_b.object.protocol=1
//winsock通讯协议设为UDP协议
winsock_b.object.remotehost="134.1.1.1"
//对方的ip地址
winsock_b.object.remoteport=6001
//对方的winsock通讯端口号
winsock_b.object.localport=6000
//本机的winsock通讯端口号
winsock_b.object.bin
//绑定通讯协议

   2.TCP协议设置:TCP协议在通讯前需要进行连接。

  在甲方(作为服务器端)窗口的Open事件中加入如下语句:

winsock_a.object.protocol=0
//winsock通讯协议设为TCP协议
winsock_a.object.localport=6001
//本机的winsock通讯端口号
winsock_a.listen()
//启动监听

  在甲方winsock_a控件的Connectionrequest事件中加入如下语句:

//接受到对方的连接请求后
if winsock_a.object.state< >0 then
winsock_a.close()
end if
winsock_a.accept(requestID)
//建立直接连接
//requestID是Connectionrequest事件自己的参数

  在乙方(作为客户端)窗口的Open事件中加入如下语句:

winsock_b.object.protocol=0
//winsock通讯协议设为TCP协议
winsock_b.object.remotehost="134.1.1.2"
  相关解决方案