html - 加载 HTML 源代码

Question

如何加载 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。也许是关于饼干之类的？我不知道。

Answer 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';