TWebBrowserで表示したフレームありHPの全HTMLを取得するには？

解決

---

こんにちは。

TWebBrowserに表示されたHTMLを DocumentElement.outerHTML で
取り出すことは出来たのですが、フレームありのHPからは
すべて取り出すことが出来ません。

どなたかご教授お願いします。

編集    削除

---

これがそのまんまなのでは

How To save all TWebbrowser Frame Sources? 

http://www.swissdelphicenter.ch/en/printcode.php?id=2054

編集    削除

---

お返事ありがとうございます。
早速試してみます。

編集    削除

---

現在試しているのですが、
OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
の部分で、
"変数実パラメータと変数仮パラメータとは同一の型でなければなりません"
というエラーが出てしまいます。

なぜかわかりますか？
環境はdelphi6 personal + winxp home です。
ほかに何かあればおっしゃってください。

編集    削除

---

別のTWebBrowserを用意しておき
htmlソースから<FRAME SRC="〜〜〜">
の部分の〜〜〜を取り出して、
そこに新しくページを表示してから
もう一度HTMLソースを取得してはどうでしょうか？

編集    削除

---

やってみました．私のところでは実行できますね．
WindowsXP(SP1)+Delphi6 Personal(UP2)です．
ただし，コードを一部以下のようにしました．
(変更部分のみ)

      begin
        AStream.Seek(0, 0);
        sl := TStringList.Create;
        sl.LoadFromStream(AStream);
        Memo1.Lines:=sl;
        sl.Free;
      end;

TWebBrowserを使用するためのタイプライブラリの取込みは以下のページ
の手順で行いました．

http://homepage2.nifty.com/Mr_XRAY/Delphi/plWord/B_UseD6Personal.htm

編集    削除

---

生兵法マスターさん、Mr.XRAYさん、ありがとうございます。
早速試してみたところお二人の方法共に成功しました。

解決後、どうしてもこの問題が気になっていて
調べていたのですが、uses節にActiveXやMSHTML_TLBなどを
書き込む順番が関係あるようです。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。