如何在delphi中使用TIdHttp连接到特殊链接？答案

【问题标题】：How to connect to speacial links using TIdHttp in delphi?如何在delphi中使用TIdHttp连接到特殊链接？
【发布时间】：2020-01-21 19:38:22
【问题描述】：

浏览器示例

我有以下链接，可以使用 url 中的用户名和密码连接到我的 IP 摄像机。

http://admin:password@192.168.1.13/ISAPI/Streaming/channels/102/picture

如果我在 Internet Explorer 中打开此链接，它会显示以下消息并且无法打开该链接。

Windows can not locate <link>. Check your spelling and try again

当我在 Firefox 的 Chrome 中打开相同的链接时，它可以正常工作并显示所需的 jpg 图片。

德尔福

在delphi中，我使用TIdHttp从这个链接获取图片。

var
  Ms: TMemoryStream;
  PictureUrl: string;
begin
  try
    PictureUrl := 'http://admin:password@192.168.1.13/ISAPI/Streaming/channels/102/picture';
    IdHTTP1.get(PictureUrl, MS);
    Ms.Seek(0,soFromBeginning);
    MS.SaveToFile('C:\Users\karat\Documents\hikivision1.jpg');
  finally
    FreeAndNil(MS);
  end;
end;

该代码与另一个 jpg 图片链接一起工作，问题是该代码获得了一个 178 字节的 MemoryStream，这意味着该图片没有被加载。

我在表单中输入了TWebBrowser，我发现它给了我与 Internet Explorer 浏览器相同的错误，浏览器不支持加载这种类型的 url。

翻译：无法访问此页面。检查您的链接是否正确。

解决方案？

我假设如果我找到TIdHttp 像 Chrome 和 Firefox 一样的方式，它将正确加载所需的图片。有什么方法可以做到这一点或其他可能的解决方案？

【问题讨论】：

你说你正在接收 178 个字节，这些字节实际上是什么样的？请显示实际字节。我猜可能是错误的 HTML 页面而不是 JPG 图像，对吧？如果是这样，HTML 说明了什么？它可能为 URL 失败的原因提供了线索。
是的，没错。这就是我上传html错误图片的原因。这个白屏就是 HTML 错误。
该屏幕截图不是 Web 服务器提供给您的客户端的 HTML 页面。这是 IE 本身内置的错误页面，当它无法访问 URL 时会显示该页面。 Web 服务器实际上提供了什么？使用TIdHTTP.Get() 时，您的TMemoryStream 实际接收的字节是多少？

标签： http delphi

【解决方案1】：

Internet Explorer does not support user names and passwords in Web site addresses (HTTP or HTTPS URLs)。 Delphi 在 VCL 中的TWebBrowser 组件只是 IE 的一个包装器。

您显示的代码在调用TIdHTTP.Get() 之前没有创建TMemoryStream 对象。这只是一个错字，还是您的真实代码实际上忘记了这样做？

虽然 Indy 确实从 URL 解析用户名/密码，并且确实支持密码中的 @ 字符，但由于您已经提前知道值是什么，那么您应该将它们放在 UserName/Password 属性中TIdHTTP.Request 的显式而不是在 URL 中，例如：

var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    IdHTTP1.Request.UserName := 'admin';
    IdHTTP1.Request.Password := 'poi@0413477';
    IdHTTP1.Get('http://192.168.1.13/ISAPI/Streaming/channels/102/picture', MS);
    MS.Position := 0;
    MS.SaveToFile('C:\Users\karat\Documents\hikivision1.jpg');
  finally
    MS.Free;
  end;
end;

如果这仍然不起作用，则可能是相关 Web 服务器对 UserAgent 敏感，为不同的 Web 浏览器提供不同的内容。一些 Web 服务器不喜欢 Indy 的 User-Agent 请求标头的默认值（'Mozilla/3.0 (compatible; Indy Library)'，可以通过 IdHTTPHeaderInfo 单元中的 GIdDefaultUserAgent 变量全局更改），因此尝试更改 UserAgent 以模仿您选择的真实网络浏览器，例如 Chrome 或 FireFox，例如：

var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    IdHTTP1.Request.UserName := 'admin';
    IdHTTP1.Request.Password := 'poi@0413477';
    IdHTTP1.Request.UserAgent := ...; // ie: 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:72.0) Gecko/20100101 Firefox/72.0'
    IdHTTP1.Get('http://192.168.1.13/ISAPI/Streaming/channels/102/picture', MS);
    MS.Position := 0;
    MS.SaveToFile('C:\Users\karat\Documents\hikivision1.jpg');
  finally
    MS.Free;
  end;
end;

【讨论】：