delphi services允许跨域访问
2021-06-15 07:03
阅读：671
标签：set ESS send pre origin class cti inf var delphi services允许跨域访问 unit WebModuleUnit1; delphi services允许跨域访问 标签：set ESS send pre origin class cti inf var 原文地址：https://www.cnblogs.com/hnxxcxg/p/10383614.html
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;
下一篇：win7安装node.js
评论
亲，登录后才可以留言！