用delphi的idhttp Get一个url如下：
　　http://117.135.237.4:9090/agent/api/treatmentModeUpdate?userName=VDAwMIMQ==&userPwd=VDAjIxMQ==&centerNo=NTIyMj2&hospCode=Nz3MA==&Year=MjAxOA==

用浏览器打开这个地址，服务器会返回以下json字样：

　　{"Message":"ob7FqbrPvdO/2szhyr6hvzrK/b7dv+LE2rK/yv2+3dPQs+XNu6Osx+vBqs+1vqfG5srbuvPIy9Sx"}

这个地址外网也可以打开，但是用delphi自带的Idhttp.get永远都会提示403，不管是D7，XE2，D10都试过了，都是403。

　　用IE打开此URL也照样会提示403，这样，我就放心了，毕竟不是我自己的问题，连微软也是一样，http也是用的微软的IE内核，这我也改不了的（可能有大神可以改，我能力还不够）      对接方只说了句：不兼容IE，用360浏览器（此时我内伤多少个CNM崩腾而过。。。。。连IE都不支持，什么LJ软件）

那也没啥办法，毕竟是跟人家对接，人家说了算，毕竟其他开发工具可以获取到错误信息，后来各种改HTTP的IdHTTP1.Request.UserAgent 属性，改源码,还是不行，用webbrowser1也不行，毕竟也是用的IE内核。

然后安装了dcef3控件（具体下载地址搜索dcef3下载就有，这里推荐个地址：https://blog.csdn.net/risesoft2012/article/details/53333583安装方法，使用方法说的很详细了），用了Chrome浏览器控件，发现是可以返回错误信息的，那么至少还是有点希望了

直接贴代码，控件自带的demo都很全，先放个Chromium1控件，然后两个按钮，一个是加载网址，一个是获取返回数据，我的目的也只是获取到返回的那个信息而已，够用。。。

//回调函数，获取chrome加载地址的返回值
procedure CallbackGetText(const txt: ustring);

var

  source: ustring;

  ss: TStrings;

begin

  source := txt;

  source := StringReplace(source, '<', '&lt;', [rfReplaceAll]);

  source := StringReplace(source, '>', '&gt;', [rfReplaceAll]);

  Form3.Memo1.Text := source;

  ss := TStringList.Create;

  ss.Text := source;

  ss.SaveToFile('source.txt');

//  source := '<html><body>Text:<pre>' + source + '</pre></body></html>';

//  Form3.Chromium1.Browser.MainFrame.LoadString(source, 'source://text');

end;

//加载URL
procedure TForm3.Button1Click(Sender: TObject);

begin

  Chromium1.Browser.MainFrame.LoadUrl('about:blank'); //第一次必须先加载空白页，才能浏览其他网页

  Chromium1.Browser.MainFrame.LoadUrl(Edit1.Text );

  Chromium1.Browser.MainFrame.GetTextProc(CallbackGetText);

end;

//调用回调，获取返回信息

procedure TForm3.Button2Click(Sender: TObject);

begin

  Chromium1.Browser.MainFrame.GetTextProc(CallbackGetText);

end;

正常的地址用idhttp.get()是完全可以实现的，没必要这么折腾，这是没办法了，我想应该还有其他的办法，或按照其他http控件，只要不是IE内核的控件都行，希望有大神知道其他方法的也可以留个言。

delphi http 403 获取不到服务器返回的错误消息 用浏览器打开url可以返回的更多相关文章

  1. 浏览器输入URL到返回页面的全过程

    [问题描述] 在浏览器输入www.baidu.com,然后,浏览器显示相应的百度页面,这个过程究竟发生了什么呢? [第一步,解析域名,找到主机] 正常情况下,浏览器会缓存DNS一段时间,一般2分钟到3 ...

  2. HTTP工作过程（浏览器输入URL到返回HTML页面都经历了什么）

    超文本传送协议(HyperText Transport Protocol,HTTP)是互联网上应用最为广泛的一种网络协议,它工作在应用层,使用TCP的80号端口提供服务.并且HTTP是工作在客户/服务 ...

  3. HTTP请求中带有特殊字符"|"，返回400错误

    Java平台,服务器是Tomcat8,前端ajax访问服务器时,F12返回400错误,经分析,URL地址中get传参值里面含有“|“, Invalid character found and RFC ...

  4. 获取小众ftp服务器指定目录内容列表

    今天获取小众ftp服务器指定目录内容列表时费劲急了. ///parama url="ftp://x.x.x.x/dir_name" public string GetFTPDir( ...

  5. 正向代理 forward proxy、反向代理 reverse proxy、透明代理 transparent proxy nginx反向代理原理和配置讲解 防止外部客户机获取内部内容服务器的重定向 URL 缓存命中

    [大型网站技术实践]初级篇:借助Nginx搭建反向代理服务器 - Edison Chou - 博客园http://www.cnblogs.com/edisonchou/p/4126742.html 图 ...

  6. 微信小程序授权 获取用户的openid和session_key【后端使用java语言编写】，我写的是get方式，目的是测试能否获取到微信服务器中的数据，后期我会写上post请求方式。

    在这里给大家分享下我的心得,1.写代码前一定要对整个流程有个了解.我就是因为在先不了解整个过程中去ctrl+c+v他人的博客代码,花费很多无用的时间去处理还不知道能不能跑的起来的代码. 2.本人比较喜 ...

  7. Delphi 版本信息获取函数 GetFileVersionInfo、GetFileVersionInfoSize、VerFindFile、VerInstallFile和VerQueryValue

    一.版本信息获取函数简介和作用 获取文件版本信息的作用: 1. 避免在新版本的组件上安装旧版本的相同组件: 2. 在多语言系统环境中,操作系统根据文件版本信息里提供的语言信息在启动程序时决定使用的正确 ...

  8. Java Web项目获取客户端和服务器的IP地址

    在JSP里,获取客户端的IP地址的方法是:request.getRemoteAddr(),这种方法在大部分情况下都是有效的.但是在通过了Apache,Squid等反向代理软件就不能获取到客户端的真实I ...

  9. vs2015启动网站调试提示 HTTP 错误 403.14 - Forbidden Web 服务器被配置为不列出此目录的内容。 解决方法

    今天安装了vs2015 下载一个项目进行试用,启动调试的时候提示 HTTP 错误 403.14 - Forbidden Web 服务器被配置为不列出此目录的内容. 最可能的原因: 没有为请求的 URL ...

随机推荐

  1. vim自定义配置之自动括号

    BundlenInstall安装auto-pairs vimConfig/plugin/auto-pairs-setting.vim let g:autopairsflymode=

  2. H5页面获取openid，完成支付公众号(未关注公众号)支付

    一.页面授权 // 进入页面获取权限code function initAuthorizeCode() { var appid = $("#appid").val();//公众号a ...

  3. [转]Aspose.Words.dll 将 Word 转换成 html

    用于网站上,上传 Word 文档后显示文档内容(可看作在线阅读).代码适用于 .net 2.0 或以上版本 (使用的未注册 Aspose.Words.dll 并尝试消除试用标志) 下载地址 strin ...

  4. Java HashMap 遍历方式探讨

    JDK8之前,可以使用keySet或者entrySet来遍历HashMap,JDK8中引入了map.foreach来进行遍历. keySet其实是遍历了2次,一次是转为Iterator对象,另一次是从 ...

  5. 实现PPT在线预览，PPT转图片方案

    一.PPT转图片可行方案探索历程 PPT转图片方案 方案具体步骤及分析 已放弃方案 poi(失真度太高):Aspose直接转图片(收费,效果较好,备选):微软Office Online(需要基于Win ...

  6. PHP 成长规划

    PHP程序员的技术成长规划 作者:黑夜路人(2014/10/15) 转:http://blog.csdn.net/heiyeshuwu/article/details/40098043 按照了解的很多 ...

  7. VS2013默认打开HTML文件没有设计视图

    打开VS菜单->工具->选项->文本编辑器->文件扩展名,右侧输入html,再下拉列表选HTML(Web窗体)编辑器,点添加,确定. 第二条是彻底解决VS2013不能编辑HTM ...

  8. 常见反编译产生错误 k__BackingField 解决办法

    常见反编译产生错误 k__BackingField 解决办法     无聊反编译小蚂蚁出现上千的错同样的错       private bool <EnableRuntimeHandler> ...

  9. LUA表 pairs, ipairs输出顺序问题

    t = { [] = , [] = , [] = , [] = , [] = , [] = , [] = , [] = , [] = -, } t1 = { , , , , } table.sort( ...

  10. js中创建table表格

    <!DOCTYPE html><html lang="en"><head> <meta charset="UTF-8" ...