用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控件，然后两个按钮，一个是加载网址，一个是获取返回数据，我的目的也只是获取到返回的那个信息而已，够用。。。

  1. //回调函数，获取chrome加载地址的返回值
    procedure CallbackGetText(const txt: ustring);
  2. var
  3.   source: ustring;
  4.   ss: TStrings;
  5. begin
  6.   source := txt;
  7.   source := StringReplace(source, '<', '&lt;', [rfReplaceAll]);
  8.   source := StringReplace(source, '>', '&gt;', [rfReplaceAll]);
  9.   Form3.Memo1.Text := source;
  10.   ss := TStringList.Create;
  11.   ss.Text := source;
  12.   ss.SaveToFile('source.txt');
  13. //  source := '<html><body>Text:<pre>' + source + '</pre></body></html>';
  14. //  Form3.Chromium1.Browser.MainFrame.LoadString(source, 'source://text');
  15. end;
  16.  
  17. //加载URL
    procedure TForm3.Button1Click(Sender: TObject);
  18. begin
  19.   Chromium1.Browser.MainFrame.LoadUrl('about:blank'); //第一次必须先加载空白页，才能浏览其他网页
  20.   Chromium1.Browser.MainFrame.LoadUrl(Edit1.Text );
  21.   Chromium1.Browser.MainFrame.GetTextProc(CallbackGetText);
  22. end;
  23.  
  24. //调用回调，获取返回信息
  25. procedure TForm3.Button2Click(Sender: TObject);
  26. begin
  27.   Chromium1.Browser.MainFrame.GetTextProc(CallbackGetText);
  28. 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. cocos2d-x 3.0 场景切换特效汇总(转)

    cocos2d-x 3.0中场景切换特效比较多,而且游戏开发中也经常需要用到这些特效,来使场景切换时不至于那么干巴,遂这里汇总一下,开发中使用. 场景切换用到导演类Directory,大多数用的都是替 ...

  2. 在Visual Studio调试器中显示Unreal的数据类型的值

    转自:https://blog.csdn.net/witton/article/details/5977766 在Unreal引擎中大量使用了自定义的数据类型如:FName,FString,TArra ...

  3. Python开发一个堡垒机

    项目实战:运维堡垒机开发 前景介绍 到目前为止,很多公司对堡垒机依然不太感冒,其实是没有充分认识到堡垒机在IT管理中的重要作用的,很多人觉得,堡垒机就是跳板机,其实这个认识是不全面的,跳板功能只是堡垒 ...

  4. c#二维码建立与识别

    QrCodeEncodingOptions options = new QrCodeEncodingOptions(); options.CharacterSet = "UTF-8" ...

  5. delphi Firemonkey ListView 使用参考

    delphi Firemonkey ListView 使用参考 Tokyo版本 http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Customizin ...

  6. firemonkey Grid自定义

    http://stackoverflow.com/questions/28893564/memory-leak-on-tstringgrids-ondrawcolumncell-event http: ...

  7. Firefox 被Snap.do 劫持

    Firefox IE 被劫持 windows的控制面板,卸载程序, 找任何跟「Snap.do」有关的软件,找到後先移除「Snap.Do Engine」再移除「Snap.Do」. 注册表里查找 Snap ...

  8. SQL优化的部分内容

    为什么要优化:      随着实际项目的启动,数据库经过一段时间的运行,最初的数据库设置,会与实际数据库运行性能会有一些差异,这时我们         就需要做一个优化调整.   数据库优化这个课题较 ...

  9. jQuery绑定事件的四種方式

    这篇文章主要介绍的是jQuery绑定事件的四种方式相关内容,下面我们就与大家一起分享. jQuery绑定事件的四种方式 jQuery提供了多种绑定事件的方式,每种方式各有其特点,明白了它们之间的异同点 ...

  10. Zookeeper 目录

    Zookeeper 目录 Zookeeper 致力于提供一个高性能.高可用,且具有严格的顺序访问控制能力(主要是写操作的严格顺序性)的分布式协调服务.以下是我整理的笔记. 一.分布式理论基础 1.1 ...