delphi services允许跨域访问
delphi services允许跨域访问
unit WebModuleUnit1;
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.SetCustomHeader('Access-Control-Allow-Origin', '*'); // 允许跨域访问 WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled); end;
- 上一篇 »PHP 服务器端处理跨域问题
- 下一篇 »PHP 设置响应头来解决跨域问题