加载 HTML 源代码答案

【问题标题】：Load HTML source code加载 HTML 源代码
【发布时间】：2013-06-16 20:42:33
【问题描述】：

如何加载 HTML 源代码？我尝试了一些没有运气的功能。这个在许多网站上都对我有用，但不是全部：

function LoadWebPageToString(MyUrl: String): String;  //load HTML content from a webpage to a string
begin
  Result := 'Error';
  with TIdHTTP.Create do
  begin
    try
      Result := Get(MyUrl);
    finally
      Free;
    end;
  end;
end;

当它失败时，我得到这个错误：

HTTP/1.1 403 禁止

目标页面只是一个普通页面。它通过 HTTP 正常加载，不需要（认为也不支持）HTTPS。也许是关于饼干之类的？我不知道。

【问题讨论】：

尝试像这样设置 useragent 属性。 Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:21.0) Gecko/20100101 Firefox/21.0';
@RRUZ - 谢谢，这行得通。我没有收到错误 403。你能再告诉我一件事：知道如何从 Facebook 页面获取源代码吗？

标签： html delphi delphi-xe3

【解决方案1】：

HTTP/1.1 403 forbidden 的原因之一是服务器无法识别客户端的用户代理，因此请尝试像这样设置useragent 属性。

Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:21.0) Gecko/20100101 Firefox/21.0';

【讨论】：