浏览代码

* correct encoding for content

Michael VAN CANNEYT 2 年之前
父节点
当前提交
701d40c57d
共有 1 个文件被更改,包括 4 次插入0 次删除
  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
 begin
   TFPWebTemplate(FTemplate).Request:=ARequest;
   TFPWebTemplate(FTemplate).Request:=ARequest;
+  {$IF SIZEOF(CHAR)=2}
+  AResponse.Content:=UTF8Encode(FTemplate.GetContent);
+  {$ELSE}
   AResponse.Content:=FTemplate.GetContent;
   AResponse.Content:=FTemplate.GetContent;
+  {$ENDIF}
 end;
 end;
 
 
 function TCustomFPWebModule.GetContent: String;
 function TCustomFPWebModule.GetContent: String;