瀏覽代碼

* Convert to HTTP app

Michael Van Canneyt 2 年之前
父節點
當前提交
6708bdf621
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr

+ 2 - 1
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr

@@ -3,11 +3,12 @@ program extdemo;
 {$mode objfpc}{$H+}
 
 uses
-  fpCGI, wmext;
+  fphttpapp, wmext;
 
 {$R *.res}
 
 begin
+  Application.Port:=8080;
   Application.Title:='Ext.Direct demo application';
   Application.Initialize;
   Application.Run;