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;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/10383614.html