PowerBuilder编程新思维10.5：外传2（PowerPlume下一代开发解决方案） - ToB企服应用市场:ToB评测及商务社交产业平台

Q: APB是一个什么产品？
A: APB 是 Appeon for PowerBuilder 的缩写。
Appeon 公司专注于实现 C/S 架构的 PowerBuilder 应用迁移到 B/S 架构的完整解决方案。Appeon for PowerBuilder 是这个解决方案的核心，是一套平台型软件产品。
Q: PB转换后的程序是Java代码或JSP吗？
A: 转换后的文件格式包括： HTML 、 XML 、 JavaScript 、 Image 文件。不是 Java 代码，也不是 JSP 。
Q: 用APB转换后的Web应用和JSP开发的Web应用，技术上有什么区别？
A: APB 在客户端使用的是 ActiveX 技术，服务器端使用的是 J2EE 技术，包括 Servlet 、 EJB 、 JDBC 。 APB 综合使用了 ActiveX 技术和 J2EE 技术。
JSP 则主要是服务器端的技术，给客户端传来的是 HTML 标记的文档，用于表现用户界面。对于一些要求复杂用户交互的应用，用 JSP 实现起来很困难。
Q: 前后台数据是XML传递的吗，可否在其它JSP程序中使用这些XML数据？
A: 前后台之间数据传递是二进制格式。前后台的调用和数据传输都是基于 http 的 RPC 。调用格式和传输的数据都是二进制的。这样做主要是出于安全和性能的考虑。
APB 早期的技术里，曾采用过 XML 来传输数据，但由于 XML 的解析和装配需要一定的时间，会影响运行的速度。
Q: 现有控件是用Javascript实现的吗？
A: PB 中的控件，如 DataWindow 、 Treeview 、 Tab 等都是用 ATL 技术实现的， Javascript 难以实现这么复杂的控件。还有如 Blob 的类型， JavaScript 也难以实现。
Q: 为什么要采用IE插件的技术？不要插件行吗？
A: 使用 ActiveX 插件是为了最大程度上，支持 PowerBuilder 的各种控件、对象和功能特性。例如 Datawindow 控件、 TreeView 控件、 Dragdrop 等。这些功能在一般的 Web 应用中很难实现。
APB 在迁移 Web 应用时，具有两种发布方式，一种是 AX 方式，也就是插件的方式，可以支持 PB 中各种复杂的控件和对象。另一种方式是 JS 方式，也就是纯 JavaScript 方式，这种方式只能支持有限的 PowerBuilder 特性。
Q: ActiveX插件有多大，会不会每次都下载？
A: Appeon 的插件有点类似于我们常见的 IE 的 Flash 插件。大约 1M 左右的 Cab 包。 IE 会自动下载，并且只是在头一次使用的时候去下载。多个 Appeon Web 应用会使用一个插件，不会去下载多个插件，除非其版本不一样。
Q: 为什么需要架构调整和性能优化？
A: 我们用 Powerbuilder 开发的应用一般是两层应用，也就是 C/S 架构应用。绝大部分代码都是在客户端实现的，用户界面和业务逻辑基本上是交织在一起。
APB 目前主要是实现语言的自动翻译工作，也就是 PowerScript 语言到 JavaScript 语言的翻译，还不能自动分离用户界面和业务逻辑相关的代码。
因此，翻译后的应用如果要运行在 Internet 上，或者低带宽网络环境下，一般还需要进行一些手工调整，将数据存取密集代码和业务逻辑代码转移到数据库服务器或者应用服务器上。这就是所谓的对 APB Web 应用的架构调整和性能优化。
需要说明的一点是，如果翻译后的应用运行在带宽很好的网络环境中，例如带宽 10/100M 的企业网里，可以不做或只做少量的架构调整和性能优化工作。

复制代码

1 public function integer of_count_ducks (string as_ducks) throws exception;
2 /* for testing of PowerPlume Ps2Js.exe
3 usage: f_count_ducks("黄鸭子,黑鸭子,白鸭子,黄鸭子,麻鸭子,灰鸭子,小黄鸭,唐老鸭,盐水鸭,南京鸭")
4
5 本过程包括所有PowerScript语法，是编译器开发的the quick brown fox jumps over a lazy dog。
6 */
7
8 call nonvisualobject::constructor
9 if super::classname() <> "n_count_ducks" then messagebox("提示", "final类不能被继承")
10
11 n_count_ducks nvo_test; nvo_test = create n_count_ducks
12
13 string ls_info = "门前大桥下，游过一群鸭，快来快来数一数，"
14
15 string errors_arr[7] = { "warn1:灰鸭子已废弃，请使用麻鸭子","warn2:小黄鸭的规范写法为黄鸭子","err3:唐老鸭已终止授权",&
16 "err4:不得使用死鸭","err5:南京鸭必须死", "err6:鸭子的数量应不小于八只", "err7:远程调用未知错误"}
17
18 string numbers_arr[1 to 8] = {'', '二', '', '四', '', '六', '七', '八'}
19
20 string ducks_arr[16, 2], as_ret
21
22 blob{255} data
23 integer color
24
25 int counter=0, index=0, li_begin=1, li_current=1
26 do
27 try
28 li_begin = li_current
29 data=blob(as_ducks, EncodingUTF8!)
30 //Remote Procedure Call
31 color = nvo_test.static trigger function of_get_instance().of_get_duck(data, li_current);
32 catch(exception e)
33 color = 7
34 finally
35 index ++
36 end try
37
38 choose case color
39 case -1, -2, -3, -4
40 ducks_arr[index, 1]=mid(as_ducks, li_begin, li_current - li_begin -1)
41 ducks_arr[index, 2]=""
42 case 9
43 goto hack ;// 被攻击暗号
44 case 1 to 2
45 ducks_arr[index, 1]=mid(as_ducks, li_begin, li_current - li_begin -1)
46 ducks_arr[index, 2]=errors_arr[color]
47 case 3 to 5
48 ducks_arr[index, 1]=""
49 ducks_arr[index, 2]=errors_arr[color]
50 continue
51 case 6
52 ducks_arr[index, 1]=""
53 ducks_arr[index, 2]=errors_arr[color]
54 exit //数量小于8
55 case is >= 7
56 ducks_arr[index, 1]=""
57 ducks_arr[index, 2]=errors_arr[color]
58 exit
59 case else
60 goto error
61 end choose
62 counter ++
63 loop while (counter < 8 and index < 16)
64
65 int i = 1, j = 1
66 int li_warns=0, li_errors=0
67 string ls_ducks = ""
68 do until (j > counter)
69 if (ducks_arr[i, 1]="") then
70 li_errors ++
71 elseif (ducks_arr[i, 2]="") then
72 ls_info += numbers_arr[j]
73 ls_ducks += ducks_arr[i, 1] + " "
74 j++
75 else
76 ls_info += numbers_arr[j]
77 ls_ducks += ducks_arr[i, 1] + "* "
78 j++
79 li_warns ++
80 end if
81 i ++
82 loop
83
84 ls_info += "：~r~n"+ls_ducks+"~r~n警告："+ string(li_warns) +"~t错误：" + string(li_errors) + "。~r~n"
85
86 for i = 1 to 16
87 if (ducks_arr[i, 2]<>"") then
88 ls_info += ducks_arr[i, 2]
89 ls_info += "；~r~n"
90 end if
91 next
92
93 date ld_begin, ld_today
94 time lt_begin, lt_now
95
96 ld_begin=date("2021-4-14") //求日期值的写法
97 lt_begin=19:18:01
98 ld_today = today()
99 lt_now = now()
100
101 longlong seconds
102 Seconds= daysafter(ld_begin, ld_today)*86400 + SecondsAfter(lt_begin, lt_now)
103 ls_info += "数鸭子代码已发布："+string(seconds)+"秒。"
104 messagebox("数鸭子过程包含所有PowerScript语法", ls_info)
105
106 destroy nvo_test
107 return counter
108
109 hack:
110 halt close
111
112 error:
113 destroy nvo_test
114 throw create exception
115
116 end function

复制代码

	前端PB+JSON	前端PB+BLOB	WEB
后端PBVM	PbNode/Pbgo	PbniServ，PowerServer	PbNode
后端无代码	GraphQL	SatRDA/VDN	无
PB转浏览器	PbXds	VDN	PbXds
PB转C#	PowerServer	PowerServer	PowerServer
其它后端方案	PbPdd	EXTPB.NET	SatWeb