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;