天天看點

delphi CS轉BS設定方法

通過satrda的免費浏覽器插件,可以直接把CS程式轉換成BS運作,在浏覽器中輸入配置位址後,插件會自動下載下傳上傳的應用,并加載到浏覽器中。

運作效果如圖:

delphi CS轉BS設定方法

設定方法

1.下載下傳SATRDA

最新版本可以在QQ群:374683171

2.運作服務端

運作示例server目錄下面的satserver.exe

3.應用程式加載方式

浏覽器加載應用程式有兩種方式,可以兩種同時使用,也可以隻使用其中一種。如果程式隻有一個主視窗,那麼使用第1種方式可以完成。如果是登入視窗然後運作主視窗,視窗之間有先後加載關系,使用第2種方式

1.自動加載視窗

在服務端的配置檔案中填寫視窗名稱和标題,視窗名稱和标題可以通過spy++查找視窗功能得到,如圖:

delphi CS轉BS設定方法

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程式,浏覽器可以自動檢測到檔案變化,檔案和服務端不一緻,可以下載下傳更新,并運作最新程式

delphi CS轉BS設定方法

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