本文整理自网络,侵删。
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 datamodule1 fdconnection1数据库连接
更多相关阅读请进入《Delphi》频道 >>