delphi services允许跨域访问

2021-06-15 07:03

阅读:670

标签: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;

  

delphi services允许跨域访问

标签:set   ESS   send   pre   origin   class   cti   inf   var   

原文地址:https://www.cnblogs.com/hnxxcxg/p/10383614.html


评论


亲,登录后才可以留言!