本文整理自网络,侵删。
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);beginResponse.ContentType := 'text/html;charset=GB2312'; //解决 Response 返回中文乱码问题 if FServerFunctionInvokerAction <> nil then FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;end;
相关阅读 >>
Delphi的datetostr strtodate格式灵活用法
Delphi twebbrowser:确定带有框架的页面何时完成
更多相关阅读请进入《Delphi》频道 >>