TWebBrowserで表示されているソースコードを得る

RSS

トップ

ソフトウェア

その他

掲示板

リンク

連絡

TWebBrowserで表示されているソースコードを得る

これを利用すると現在表示されているページのソースをStringに落とすことができます。MSHTML編集プラットフォームのTipsと併用すると便利です。

まずusesにSHDocVw_TLB, MSHTML_TLBを追加し、以下の関数を定義してください。

function TForm1.GetSource: String;
var
  Doc: IHTMLDocument2;
  Persist: IPersistStream;
  Mem: TStringStream;
begin
  if WebBrowser1.Document = nil then
    Exit;
  Mem := TStringStream.Create('');
  try
    Doc := WebBrowser1.Document as IHTMLDocument2;
    if Doc = nil then
      Exit;
    Persist := Doc as IPersistStreamInit;
    Persist.Save(TStreamAdapter.Create(Mem), True);
    Result := Mem.DataString;
  finally
    Mem.Free;
  end;
end;

使い方は見たままなので略で。

ちなみに、Persist.Saveの所でLoadを呼び出すと、ブラウザにソースをセットすることができます。ただし、相対パスなリンクがうまく動作しなかったりと問題も多いので、あまりおすすめはしません。