通過satrda的免費浏覽器插件,可以直接把CS程式轉換成BS運作,在浏覽器中輸入配置位址後,插件會自動下載下傳上傳的應用,并加載到浏覽器中。
運作效果如圖:
![](https://img.laitimes.com/img/9ZDMuAjOiMmIsIjOiQnIsIiNwAzM0ATN1EjNwcDM3EDMy8CX0Vmbu4GZzNmLn9Gbi1yZtl2Lc9CX6MHc0RHaiojIsJye.jpg)
設定方法
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