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与进程、窗口句柄、文件属性、程序运行状态

Delphi datasnap 获取客户端ip

Delphi创建证书密钥库文件

Delphi messagebox 和 messagedlg用法

Delphi中最小化其他程序及所有程序窗口最小化

Delphi如何检测form的移动和调整尺寸事件

Delphi 调用api打开文件 使用系统默认打开方式进行打开

Delphi api: setwindowpos改变窗口的位置与状态

Delphi 使用fastscript调试脚本

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

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

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