最初に MyURL に移動します。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WebBrowser1->Navigate(MyURL);
}
OnDocumentCompleteイベントに取得コードを入れます。
void __fastcall TForm1::WebBrowser1DocumentComplete(TObject *Sender, LPDISPATCH pDisp,
Variant *URL)
{
Variant document = WebBrowser1->Document;
Variant body = document.OlePropertyGet("body");
Variant parentElement = body.OlePropertyGet("parentElement");
AnsiString html = parentElement.OlePropertyGet("outerHTML");
Memo1->Text = html;
}
または簡単に:
Memo1->Text = Variant(WebBrowser1->Document).OlePropertyGet("body").OlePropertyGet("parentElement").OlePropertyGet("outerHTML");
TWebBrowser を使用せずに、単純に http 要求を送信して応答テキストを取得できることに注意してください。