本文整理自网络,侵删。
IdHTTPServer允许跨域访问
procedure TMain.idHttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Origin:*');
AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Headers:*');
AResponseInfo.CustomHeaders.Add('Access-Control-Allow-Method:*');
end;
相关阅读 >>
Delphi 调试ios时出现 please specify exact device preset uuid
Delphi中strtodatetime函数tformatsettings参数的使用
Delphi xe5 android 开发实现手机打电话和发短信
更多相关阅读请进入《Delphi》频道 >>