[Delphi] Webbrowser html 가져오기

 

방법1) WB.OleObject.Document.documentElement.outerHTML;

 

방법2) 

  function GetHTML: String;
  Var
    E: IHTMLElement;
  begin
    result := '';
    if Assigned(WB.Document) then
    begin
      E := (WB.Document as IHTMLDocument2).body;

      while E.parentElement <> nil do
      begin
        E := E.parentElement;
      end;

      result := E.outerHTML;
    end;
  end;