delphi CS转BS

通过satrda的免费浏览器插件，可以直接把CS程序转换成BS运行，在浏览器中输入配置地址后，插件会自动下载上传的应用，并加载到浏览器中。

运行效果如图：

设置方法

1.下载SATRDA

最新版本可以在QQ群：374683171

2.运行服务端

运行示例server目录下面的satserver.exe

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.浏览器中运行

在浏览器中输入http://127.0.0.1:5555/satrda

下载地址：QQ群：374683171