通过satrda的免费浏览器插件,可以直接把CS程序转换成BS运行,在浏览器中输入配置地址后,插件会自动下载上传的应用,并加载到浏览器中。
运行效果如图:
设置方法
1.下载SATRDA
2.运行服务端
3.应用程序加载方式
浏览器加载应用程序有两种方式,可以两种同时使用,也可以只使用其中一种。如果程序只有一个主窗口,那么使用第1种方式可以完成。如果是登录窗口然后运行主窗口,窗口之间有先后加载关系,使用第2种方式
1.自动加载窗口
在服务端的配置文件中填写窗口名称和标题,窗口名称和标题可以通过spy++查找窗口功能得到,如图:
WindowClass对应类
WindowName对应标题
最后配置文件为
"WindowClass": "FNWND390",
"WindowName": "Untitled",
即可以自动加载,其中WindowClass可以留空
2.程序加载窗口
浏览器插件会把相应的参数通过命令方式传到CS程序中,在CS程序中解析命令得到相应的浏览器参数,调用api就可以把程序附加到浏览器中,代码如下:
在主窗口FormCreate事件中
procedure TForm2.FormCreate(Sender: TObject);
var
server : string;
db:string;
begin
if ParamCount > 0 then
begin
parseCommand(ParamStr(1));
SatWebApp_Attach(hWebApp,Handle,0);
end;
具体可以参考delphi的示例,修改完成后可以打包程序。
4.升级工具上传程序
通过升级工具上传自己的CS程序,浏览器可以自动检测到文件变化,文件和服务端不一致,可以下载更新,并运行最新程序
1.把应用程序放到指定的文件夹,双击红框1位置,弹出框选择该文件夹,升级工具会检测该文件夹下的所有文件,并显示在列表中。
2.双击红框2位置,选择升级包输出的文件夹
3.填写上传地址,格式为http://ip:port,ip为服务器ip或者域名,port为服务器端口号
4.应用程序名,最好以英文命名。假设应用名称为 test 最后上传的升级包会到服务器public/appupdate/test目录下面。
5.填写版本号,主程序检查更新时会得到版本号,程序可以自己判断是否进行更新。
6.双击列表的某项可以改变其属性,控制升级过程。除以下三个列表项,其它不需要修改。(运行项非常重要,至少选中一个可以运行的文件,否则升级后程序无法运行)
7.点击开始生成,生成安装包。安装包会输出到指定的输出目录中
8.点击开始上传,会上传安装包到服务端目录。 public/appupdate/应用名称
5.浏览器中运行