Browse Source

* Convert to HTTP app

Michael Van Canneyt 2 years ago
parent
commit
5ec1ab2164
1 changed files with 2 additions and 1 deletions
  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;