void __fastcall TForm1::CppWebDocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
  Edit1->Text = CppWeb->LocationURL;
  IDispatch * Document;
  Document = CppWeb->Document;
  IHTMLElement* HTMLElement;
  IHTMLDocument2* pHTMLDocument;
  HRESULT hr;

  WideString HTML; // <- w_char* 스트링입니다.
  WideString Text;
  hr = Document->QueryInterface(IID_IHTMLDocument2,(void**)&pHTMLDocument );
  if ( hr == S_OK )
    {
      hr = pHTMLDocument->get_body(&HTMLElement);
      if ( hr == S_OK )
        {
          HTMLElement->get_innerHTML(&HTML);
          HTMLElement->get_innerText(&Text);
          HTMLElement->Release();
        }
      pHTMLDocument->Release();
    }
  Memo1->Lines->Clear();
  Memo1->Lines->Add(HTML);
//  Memo1->Lines->Add(Text);
}


나태효 님이 쓰신 글 :
: TCppWebBrower 컴퍼넌트를 이용해 간단히 만든 브라우져 옆에 메모장을 달았습니다..
: 여기에 지금 브라우져에 표시된 html파일의 소스를 표시 하려면 어떻게 해야 하는지요..?
: Memo1->Text = TCppWebBrowser1->????
:
: 도움 주시면 감사하겠습니다.