delphi services允许跨域访问
2021-06-15 07:03
标签: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.htmlprocedure 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
文章标题:delphi services允许跨域访问
文章链接:http://soscw.com/index.php/essay/94092.html