用webpb开发瘦客户机web应用.docVIP

  • 1
  • 0
  • 约5.54千字
  • 约 5页
  • 2019-07-03 发布于广东
  • 举报
用webpb开发瘦客户机web应用.doc

用Web. PB开发瘦客户机Web应用 (深圳:独孤求败2003-05-20) Powersoft的Web. PB技术AT以将分布式PowerBuilder的客户端应丿IJ分布到Web服务器上,由Web服 务器调用PowerBuilder应用。用户可以用Web PB技术实现完全瘦客户机的PB Web应用。 Web应用的执行过程 浏览器访问Web服务器,向Web服务器提出请求,服务器给浏览器返回HTML文档。如果HTML页面中 嵌入了通过〈A〉元素链接到Web PB的超级链接,或11TML页面中嵌入了通过〈FORM〉元索对Web PB 的调用,则Web服务器调用Web PB建立与PowerBuilder服务器应用的连接,向PowerBuilder服务器应 用提出请求,PowerBuilder服务器应用处理请求。如有数据库访问的请求,贝U PowerBuilder服务器应用 访问数据库服务器。PowerBuilder服务器应用将处理结果以IITMI.文档格式返回到Web服务器。Web服务器 将PowerBuilder服务器应用的处理结果以HTML文档格式发布给浏览器。 应用实例 本人已将利用Web. PB技术开发的学校管理查询系统应用于实际应用中。下而通过简单的例子说明如何 利川Web. PB技术实现瘦客户机的Web应用。 2.1.运行坏境 服务器为 HP NetServer 5/133 LC,内装 Windows NT 4.0、SQL Server 6.5、TTS 4 0 和 PowerBui Ider 6. 0 = 2. 2.配置 拷贝Web PB文件,将PBTSA60 DI丄拷入\scripts虚拟目录下,拷贝PBWEB TNT文件到WTNNT 目录卜。用记事本编辑\Winnt\System32\Drivers\Etc\0录卜?的Hosts和Services文件,在Hosts文件中 填加一行:202. 194. 168. 88 server—sis,在 Services 文件中填加一行:pb—sis—server 10099/tcpo 2. 3.创建PowerBui Ider服务器应用 2. 3. 1.创建服务器应用及应用对象 启动 PowerBuilder,点取 PowerBar 上 Appl i cat io n 画笔,进入 Application 工作区。从 Appl icatio n工作区上的PainterBar点取New,创建一个新的PowerBuilder应用sis. pb]。按卜“保存”按钮,弹出 Save Application” 对话框,定义 Application 对象sis”,按下OK” 按钮。弹岀Application 对话框,选择对话框中N0”按钮,应用sis. pbl创建完成。修改该应用对象的Librciry属性,在Applic at ion T.作区中点击 PainterBar 上的 Property 工具,弹出Application对话框,选择Libraries。 定义应用的可搜索路径,填加c: \program Fi les\Powersoft\PB6\IT\webpb. pbl w ,按下OK”按钮,服 务器应用及应用对彖创建完毕。 2. 3. 2.创建PowerBuilder服务器应用的用户界而 点取PoworBar ± Windows画笔,弹岀Select Windoww窗口,点取New”按钮,进入新创建的窗口 的工作区。在该窗口上放置两个命令按钮cb—1、cb—2和一个静态文木st—1,在两个命令按钮cb—1、c b-2.li的文木分别改为“启动服务器应用”、“关闭服务器应用”。 定义窗口上transport类型实例变量my transport,用于监听Web. PB的调用请求: transport mytransport 为cb—1的Clicked爭件编程如下: transport mytransport mytransport二CREATE trtinsport mytransport ? dri ver=/, win sock my transport. location=z/ 202. 194. 168. 88 mytransport? application二10099 mytransport? Listen() IF (mytransport. ErrCodcOO) THEN McssagcBox(r,错谋信息,服务器应用不能启动监听?r?n十错谋号为:4-string(mytra nsport. ErrCode) + ~r?n +错误信息为:4-mytransport. ErrText) Close(this? getparent ()) return ELSE St

文档评论(0)

1亿VIP精品文档

相关文档