Bläddra i källkod

* Fix unicodestring

Michael VAN CANNEYT 2 år sedan
förälder
incheckning
56e2a0a0b9

+ 8 - 1
packages/fcl-web/examples/echo/fcgi/echo.lpr

@@ -3,12 +3,19 @@ program echo;
 {$mode objfpc}{$H+}
 
 uses
-  fpFCGI, wmecho;
+  {$ifdef unix}
+  fpwidestring, unicodeducet,
+  {$endif}
+  fpFCGI, custfcgi, wmecho;
 
 {$R *.res}
 
 begin
+  {$IFDEF UNIX}
+  SetActiveCollation('DUCET');
+  {$ENDIF}
   Application.Port:=2015;//Port the FCGI application is listening on
+  Application.PathInfoHandling:=pihLastScriptComponent; // Assume url is of form /scriptname/echo
   Application.Initialize;
   Application.Run;
 end.

BIN
packages/fcl-web/examples/echo/fcgi/echo.res