delphi services允许跨域访问

最新推荐文章于 2025-05-25 13:59:49 发布

weixin_30763455

最新推荐文章于 2025-05-25 13:59:49 发布

阅读量303

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/p/10383614.html

本文介绍了一种在Delphi中实现跨域访问的方法，通过设置WebModule的默认处理程序来允许所有源的请求，使用SetCustomHeader函数添加'Access-Control-Allow-Origin'头部，值为'*'，从而实现跨域访问。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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