delphi - 如何使用 TIdHTTP 中的字符串创建 IHTMLDocument2？

Question

我使用 IdHTTP.Get 下载 URL，我需要搜索 HTML 标记并提取一些数据。

如何将 IdHTTP.Get 返回的字符串转换为 IHTMLDocument2？

Answer 1

试试这个:

uses
  ... Variants, MSHTML, ActiveX;

var Cache: string;
    V: OleVariant;
    Doc: IHTMLDocument2;
begin
  ...

  Cache := IdHTTP.Get(url);
  Doc := coHTMLDocument.Create as IHTMLDocument2; // create IHTMLDocument2 instance
  V := VarArrayCreate([0,0], varVariant);
  V[0] := Cache;
  Doc.Write(PSafeArray(TVarData(v).VArray)); // write data from IdHTTP

  // Work with Doc
end;