Przeglądaj źródła

* correct encoding for content

Michael VAN CANNEYT 2 lat temu
rodzic
commit
701d40c57d
1 zmienionych plików z 4 dodań i 0 usunięć
  1. 4 0
      packages/fcl-web/src/base/fpweb.pp

+ 4 - 0
packages/fcl-web/src/base/fpweb.pp

@@ -415,7 +415,11 @@ procedure TCustomFPWebModule.GetTemplateContent(ARequest: TRequest;
   
 begin
   TFPWebTemplate(FTemplate).Request:=ARequest;
+  {$IF SIZEOF(CHAR)=2}
+  AResponse.Content:=UTF8Encode(FTemplate.GetContent);
+  {$ELSE}
   AResponse.Content:=FTemplate.GetContent;
+  {$ENDIF}
 end;
 
 function TCustomFPWebModule.GetContent: String;