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;