delphi XE webbroker 开发,解决 Response 返回中文乱码问题

procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

Response.ContentType := 'text/html;charset=GB2312'; //解决 Response 返回中文乱码问题

if FServerFunctionInvokerAction <> nil then

FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;

end;

推荐分享