标签：set ESS send pre origin class cti inf var
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;
标签：set ESS send pre origin class cti inf var
原文地址：https://www.cnblogs.com/hnxxcxg/p/10383614.html
