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;
 

相关阅读 >>

Delphi webbrowser控件属性

Delphi10.3模拟读取百度网页，并读取相关头部信息

Delphi idftp 使用被动连接

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi datasanp的控制老大-dsserver

Delphi twebbrowser流程讲解及如何判断下载网页成功

Delphi的rtti实现数据集的简单对象化

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi rgbtohsb

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi services允许跨域访问