关于PB的TCP/IP编程

关于PB的TCP/IP编程
http://hi.baidu.com/pwzh/blog/item/f690c235f116f31391ef39db.html


现在流行多层模型代替C/S模型,通过PB中的代理对象就可以实现三层模型结构


系统. CLIENT->APPLICATION SERVER->后端数据库.

   企业商业规集中放入APPLICATION SERVER中不但可以减少维护的复杂性,还有利


于统一商业规则变更,减少了以往的C/S系统商业规则变更后系统升级的麻烦.只要


设计好优良的APPLICATION SERVER接口,基本上商业规则变更并不需要改变客户端
,

这也就是为什么人们提出多层模型的原因.

    下面是我采用WINSOCK驱动程序对PB的TCP/IP的编程测试程序,欢迎大家共同


讨论.

 


(1).服务器端
   1).W_MAIN窗口OPEN事件脚本

   transport li_port
   li_port=create transport
   li_port.application="8888"       //TCP端口号
   li_port.location="192.168.0.1"   //IP地址 
   li_port.driver="winsock"         //使用WINSOCK驱动程序
   li_port.listen()
   if li_port.errcode<>0 then

messagebox("服务器JmServer","启动错误!!!")
messagebox("err",li_port.errtext)
   end if
  
   2).APP用户对象
     
      APP用户对象函数
      STRING HELLO()
        { RETURN "OK"   }
   3).使用PROJECT生成代理对象APP,放入PROXY.PBL中

(2).客户端

   1).把PROXY.PBL加入应用库路径中
   2).测试按钮CLICKED事件脚本 
      connection   my_connection
      app my_server1

      my_connection=create connection
      my_server1=create app
      my_connection.application="8888"        //TCP端口号
      my_connection.location="192.168.0.1"    //IP地址 
      my_connection.trace="log=d:/test_pb/err.log,objectcalls=1,
                           objectlife=1"
      my_connection.driver="winsock"          //使用WINSOCK驱动程序
      if my_connection.connecttoserver( )<>0 then
messagebox("Client","ErrorCode="+string(my_connection.errcode)+&
     "~r~nErrorText="+my_connection.errtext)
halt close
      end if
      my_connection.createinstance(my_server1)
      messagebox("result",my_server1.hello(""))   //调用服务器端用户对象
APP
                                                 //的HELLO函数
     PB中的三层模型基本就是使用这种方法,生成代理代理对象,在客户端通过代
理对象调用服务器端的应用服务器中的函数,服务器端的应用服务器就是中间层,从
而实现了PB的三层模型编程.PB的代理对象的好处就是封装了SOCKET编程的复杂性,
简洁的开发PB的多层模型系统.
 
 

在用pb开发信息管理系统时,为了安全期间,我们希望记录每个登录用户的信息,并生成日志,其中最重要的是知道是哪个机器运行程序的?这样,只要获取运行程序的机器ip问题就解决了,然而,pb中没有象delphi 中有现成的函数可以很方便的获的机器的ip,我们只好利用外部函数来实现了。 首先声明外部函数 function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll" function int WSACleanup() library "wsock32.dll" function int WSAGetLastError ( ) library "wsock32.dll" function int gethostname ( ref string name, int namelen ) library "wsock32.dll" function string GetHost(string lpszhost, ref blob lpszaddress ) library "PBWS32.DLL" 然后在form的open事件中执行如下代码就可以了 s_wsadata l_WSAData int li_version = 257 blob{4} lb_hostaddress IF wsastartup ( li_version, l_WSAData ) = 0 THEN IF gethostname ( ls_HostName, len(ls_HostName) ) < 0 THEN messagebox("GetHostName",WSAGetLastError()) ELSE GetHost(ls_HostName, lb_HostAddress) //获得主机名和IP地址 ls_IpAddress = string(asc(string(blobmid(lb_HostAddress,1,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,2,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,3,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,4,1))),"000") //将IP地址的ASC码形式转化为***.***.***.***字符串格式 END IF WSACleanup() ELSE messagebox("GetHostName",WSAGetLastError()) END IF
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值