#pragma link "SHDocVw_OCX" 를 #include 위에 쓰시면 됩니다.

성공 하시길.. ^^;


gongnim 님이 쓰신 글 :
: 근데 필요한 헤더파일이 없는거 같은데요.
: 헤더도 올려주시면 감사하겠습니다.
: 그리고, 답변해주셔서 감사합니다.
:
: 유영인 [Chris] 님이 쓰신 글 :
: : 원래는 HTML Direct Link를 위한 소스이지만, 아래쯤에 gongnim님이 원하시는 부분이 있는것 같아보이네요.
: :
: :
: : #include "SHDocVw_OCX.h"
: :
: : class webBrowser
: : {
: :    IHTMLDocument2Ptr docPtr;
: :
: :    TCppWebBrowser *wb;
: :
: :    bool complete;
: :
: :    public:
: :       __fastcall webBrowser( TCppWebBrowser *p );
: :
: :       void __fastcall DocComplete( LPDISPATCH lpDisp, TVariant *URL );
: :       void __fastcall Navigate( BSTR url ) { wb->Navigate( url ); }
: :       void __fastcall BeforeNavigate() { docPtr.Reset(); }
: :       bool __fastcall isComplete() { return complete; }
: :
: :       IHTMLElementPtr __fastcall
: :          GetHTMLElement( IHTMLFormElementPtr const &formElements, LPCSTR
: : );
: :       IHTMLInputElementPtr __fastcall
: :          GetInputElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR );
: :       IHTMLSelectElementPtr __fastcall
: :          GetSelectElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR );
: :       IHTMLTextAreaElementPtr __fastcall
: :          GetTextElement( IHTMLFormElementPtr const &formElements, LPCSTR
: : );
: :       IHTMLFormElementPtr __fastcall GetFormElement();
: :       HTMLInputFileElementPtr __fastcall
: :          GetFileElement( IHTMLFormElementPtr const &formElements, LPCSTR
: : );
: : };
: : 
: :
: : // file wbProxy.cpp
: : #include <vcl.h>
: : #include "mshtml_tlb.h"
: : #pragma hdrstop
: :
: : #include "wbProxy.h"
: :
: : __fastcall webBrowser::webBrowser( TCppWebBrowser *p ) : wb( p ),
: : complete( false )
: : {
: : }
: :
: :
: : void __fastcall webBrowser::DocComplete( LPDISPATCH lpDisp, TVariant
: : *URL )
: : {
: :    IUnknownPtr unkDisp = IWebBrowser2Ptr( wb->ControlInterface, true );
: :    IUnknownPtr unkDoc = lpDisp;// wb->Document;
: :    if ( unkDisp == true && (IUnknown*)unkDisp == unkDoc ) {// entire
: : document finished
: :       complete = true;
: :       IDispatchPtr disp( wb->ControlInterface->get_Document(), false );
: :       docPtr = disp;
: :    } else
: :       complete = false;
: : }
: :
: :
: : IHTMLElementPtr __fastcall
: :    webBrowser::GetHTMLElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR name )
: : {
: :    if ( formElements ) {
: :       // get the item from the collection
: :       IDispatchPtr disp;
: :       formElements->item( name, TNoParam(), &disp );
: :       if ( disp ) {
: :          // get the input element
: :          IHTMLElementPtr inputElem = disp;
: :          return inputElem;
: :       }
: :    }
: :    return IHTMLElementPtr();
: : }
: :
: : IHTMLInputElementPtr __fastcall
: :    webBrowser::GetInputElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR name )
: : {
: :    if ( formElements ) {
: :       // get the item from the collection
: :       IDispatchPtr disp;
: :       formElements->item( name, TNoParam(), &disp );
: :       if ( disp ) {
: :          // get the input element
: :          IHTMLInputElementPtr inputElem = disp;
: :          return inputElem;
: :       }
: :    }
: :    return IHTMLInputElementPtr();
: : }
: :
: : IHTMLSelectElementPtr __fastcall
: :    webBrowser::GetSelectElement( IHTMLFormElementPtr const
: : &formElements, LPCSTR name )
: : {
: :    if ( formElements ) {
: :       // get the item from the collection
: :       IDispatchPtr disp;
: :       formElements->item( name, TNoParam(), &disp );
: :       if ( disp ) {
: :          // get the input element
: :          IHTMLSelectElementPtr inputElem = disp;
: :          return inputElem;
: :       }
: :    }
: :    return IHTMLSelectElementPtr();
: : }
: :
: : IHTMLTextAreaElementPtr __fastcall
: :    webBrowser::GetTextElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR name )
: : {
: :    if ( formElements ) {
: :       // get the item from the collection
: :       IDispatchPtr disp;
: :       formElements->item( name, TNoParam(), &disp );
: :       if ( disp ) {
: :          // get the input element
: :          IHTMLTextAreaElementPtr inputElem = disp;
: :          return inputElem;
: :       }
: :    }
: :    return IHTMLTextAreaElementPtr();
: : }
: :
: : HTMLInputFileElementPtr __fastcall
: :    webBrowser::GetFileElement( IHTMLFormElementPtr const &formElements,
: : LPCSTR name )
: : {
: :    if ( formElements ) {
: :       // get the item from the collection
: :       IDispatchPtr disp;
: :       formElements->item( name, TNoParam(), &disp );
: :       if ( disp ) {
: :          // get the input element
: :          HTMLInputFileElementPtr inputElem = disp;
: :          return inputElem;
: :       }
: :    }
: :    return HTMLInputFileElementPtr();
: : }
: :
: : IHTMLFormElementPtr __fastcall webBrowser::GetFormElement()
: : {
: :    // get the forms collection
: :    if ( docPtr ) {
: :       IHTMLElementCollectionPtr elemColl = docPtr->get_forms();
: :       if ( elemColl ) {
: :          // get the first form in the collection
: :          IDispatchPtr formColl;
: :          elemColl->item( TNoParam(), 0, &formColl );
: :          if ( formColl ) {
: :             // get the collection of all input elements
: :             IHTMLFormElementPtr formElements = formColl;
: :             return formElements;
: :          }
: :        }
: :    }
: :    return IHTMLFormElementPtr();
: : }
: :
: : // here is a function that is the event handler
: : void __fastcall TRobot::browserDocumentComplete(TObject *Sender,
: :       LPDISPATCH pDisp, TVariant *URL)
: : {
: :    // can touch the document ?
: :    wb.DocComplete( pDisp, URL );
: :    if ( wb.isComplete() ) {
: :       StartBtn->Enabled= true;
: :
: :       for ( int i = 0; i < Speed->Position; i++ ) {
: :          Application->ProcessMessages();
: :          Sleep( 500 );
: :       }
: :       switch ( curPage ) {
: :       case none:
: :          curPage = frontPage;
: :          SubmitFrontPage();
: :          break;
: :       case frontPage:
: :          curPage = toPage;
: :          SubmitToPage();
: :          break;
: :       case toPage:
: :          curPage = coverPage;
: :          SubmitCoverPage();
: :          break;
: :       case coverPage:
: :          curPage = docsPage;
: :          SubmitDocsPage();
: :          break;
: :       case docsPage:
: :          curPage = submitPage;
: :          SubmitSubmitPage();
: :          break;
: :       case submitPage:
: :          curPage = none;
: :          Rewind();
: :          break;
: :       }
: :    }
: : }
: :
: : void __fastcall TRobot::SubmitToPage()
: : {
: :    try {
: :       // obtain and set "f_tofaxnum"
: :       IHTMLFormElementPtr formElement = wb.GetFormElement();
: :
: :       if ( formElement ) {
: :          IHTMLInputElementPtr element = wb.GetInputElement( formElement,
: : "f_tofaxnum" );
: :          if ( element ) {
: :             element->set_value( WideString( faxNo->Text ) );
: :          }
: :          element = wb.GetInputElement( formElement, "f_toname" );
: :          if ( element ) {
: :             element->set_value( WideString( "Robot" ) );
: :          }
: :          element = wb.GetInputElement( formElement, "f_tocompany" );
: :          if ( element ) {
: :             element->set_value( WideString( "Robot Company" ) );
: :          }
: :          IHTMLSelectElementPtr selEl = wb.GetSelectElement( formElement,
: : "f_quality" );
: :          if ( selEl ) {
: :             selEl->set_selectedIndex( 1 );
: :          }
: :          formElement->submit();
: :       }
: :    }
: :    catch( ... ) {
: :       ShowMessage( "Error. Please, restart" );
: :    }
: : }
: :
: :
: : gongnim 님이 쓰신 글 :
: : : Programming Internet Explorer 5 책이 절판이 되버려서 책을 살수가 없네요. TT
: : : 그래서, 패패루님께 or 다른 님들께 요청합니다.
: : : 어떻게 하면 Explorer의 엘리먼트를 구할 수 있는지, 참고자료나 샘플이 있으면 구해주세요.
: : : 혼자서 맨땅에 헤딩할려니 답답하군요.
: : : 그럼이만....
: : :
: : :         --- Change World ---