C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[41661] Re:Re:Re:죄송합니다만 ^^* 다시.. 질문 드립니당
멀더 [mulder] 998 읽음    2005-08-25 18:44
멀더입니다...
제가 해도 에러가 발생하는군요... 죄송합니다... (전에 사용했던 소스인것 같은데 ???)
Google형님의 도움으로 해결하였습니다...
아래의 함수를 이용하시면 될겁니다.

void __fastcall SetHtmlToBrowser(TCppWebBrowser* Browser, AnsiString sHTML)
{
    IPersistStreamInit* psi;
    IStream* pStream;
    HGLOBAL hHTMLText;

    int BufSize = sHTML.Length()+1;
    hHTMLText = GlobalAlloc (GPTR, BufSize);
    if ( hHTMLText ) {
      CopyMemory  (Pointer(hHTMLText), sHTML.c_str(), sHTML.Length());
      if (SUCCEEDED(CreateStreamOnHGlobal (hHTMLText, true, &pStream))) {
          if (SUCCEEDED(Browser->Document->QueryInterface(IID_IPersistStreamInit,
                                                                    (void**)&psi))){
              if (SUCCEEDED(psi->InitNew())) {
                psi->Load(pStream);
              }
              psi->Release ();
          }
          pStream->Release();
      }
      //GlobalFree( hHTMLText );
    }
}



박원병 님이 쓰신 글 :
: //---------------------------------------------------------------------------
: __fastcall TForm1::TForm1(TComponent* Owner)
:    : TForm(Owner)
: {
:    CppWebBrowser1->Navigate(WideString("http://www.daum.net"), 0, 0, 0, 0);
: }
: //---------------------------------------------------------------------------
:
:
:
: void __fastcall TForm1::SetHTMLSource(AnsiString sHTML, TCppWebBrowser *wb)
: {
:   TMemoryStream* stm = new TMemoryStream;
:   IPersistStreamInit* psi;
:   TStreamAdapter* sa;
:
:   stm->SetSize(sHTML.Length());
:   stm->Seek(0,0);
:   stm->Write(sHTML.c_str(), sHTML.Length());
:   stm->Seek(0,0);
:
:   sa = new TStreamAdapter (stm, soReference);
:
:   if (SUCCEEDED(wb->Document->QueryInterface(IID_IPersistStreamInit, (void**)&psi)))
:   {
:       psi->Load((IStream*) sa);
:       psi->Release ();
:   }
: }
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:    SetHTMLSource( "

asdfadf"",
:                CppWebBrowser1 );
: }
: //---------------------------------------------------------------------------
:
:
:
: 멀더님.. 죄송하지만.. 한번더 부탁 드립니다.
: 위와 같이 간단히 테스트 해보려고 했는데
: QueryInterface에서 memory access 관련 에러가 뜨네요.
: 도저히 감이 안잡힙니다. ㅠ.ㅠ) 바쁘신데 부탁 드립니다. (--)(__)

+ -

관련 글 리스트
41632 특수문자와 웹브라우저 관련 질문입니다. 박원병 857 2005/08/24
41636     Re:특수문자와 웹브라우저 관련 질문입니다. 멀더 950 2005/08/25
41649         Re:Re:죄송합니다만 ^^* 다시.. 질문 드립니당 박원병 854 2005/08/25
41661             Re:Re:Re:죄송합니다만 ^^* 다시.. 질문 드립니당 멀더 998 2005/08/25
41667                 Re:Re:Re:Re:정말감사합니다. 박원병 805 2005/08/26
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.