CYFROWY BARON • PROGRAMOWANIE

Witam.

Mam taki problem - w TMemo mam wprowadzony kod HTML. Za pomocą CppWebBrowser wyświetlam zawartość tego kodu HTML. Problem pojawia się w tym momencie, kiedy klikam ponownie na przycisk wywołujący poniższą funkcję.
Pojawia się biały ekran i... nic więcej. Gdzie jest popełniony błąd ?

KOD cpp: � UKRYJ �

void __fastcall TOkno_glowne::Button1Click(TObject *Sender) 

{

CppWebBrowser1->Navigate(WideString("about :blank")); // wypełnienie kontrolki pustą stroną.

 TMemoryStream *stm = new TMemoryStream();

 Memo8->Lines->SaveToStream(stm);

 IPersistStreamInit *psi;

 stm->Seek(0, 0);

 TStreamAdapter *sa = new TStreamAdapter(stm, soReference);

 if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IPersistStreamInit, (void **)&psi)))

  psi->Load(*sa);

 delete stm;

}

//---------------------------------------------------------------------------

Wypełnij kontrolkę pustą stroną tylko na starcie programu. Nie musisz jej wypełniać ponownie przy zmianie zawartości. Poza tym usuwasz obiekt stm, ale obiektu sa nie usuwasz, a przecież po wypełnieniu kontrolki nie jest już potrzebny.

Przeprowadziłem testy i winne jest oczywiście to, że wielokrotnie wywołujesz pustą stronę przed wczytaniem zasobów ("about:blanc"). Możesz oczywiście robić to tak jak robiłeś, ale przed załadowaniem strony z zasobów - tutaj z pamięci - musisz zatrzymać ładowanie, czyli po wczytaniu pustej strony musisz wywołać funkcję Stop():

KOD cpp: � UKRYJ �

 WebBrowser1->Navigate( L"about :blank" );

 WebBrowser1->Stop();

 TMemoryStream *stm = new TMemoryStream();

...

Przy okazji podam jeszcze kod na ładowanie strony z zasobów - tutaj z pamięci - dla środowiska XE2, gdyż kontrolka uległa nieznacznej zmianie i robi się to nieco inaczej. Poza tym ten sposób powinien też zadziałać w starszych wersjach.

KOD cpp: � UKRYJ �

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

  WebBrowser1->Navigate( L"about :blank" ); // wypełnienie kontrolki pustą stroną.

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

 TMemoryStream *stm = new TMemoryStream();

 Memo1->Lines->SaveToStream(stm);

 IPersistStreamInit *psi;

 WebBrowser1->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi);

 stm->Seek(0, 0);

 _di_IStream sa(*(new TStreamAdapter(stm, soReference)));

 if(SUCCEEDED(WebBrowser1->Document->QueryInterface(IID_IPersistStreamInit, (void **)&psi)))

 {

  if( SUCCEEDED( psi->InitNew() ) )

  {

   psi->Load(sa);

  }

  psi->Release();

 }

 delete stm;

}

No - nareszcie mam chwilkę czasu :/

Serdecznie dziękuję za odpowiedź.
Rzeczywiście ładowanie pustej strony jest zdecydowanie niepotrzebne.

CYFROWY BARON • PROGRAMOWANIE

CppWebBrowser1 - problem z ponownym wyświetleniem zawartości

CppWebBrowser1 - problem z ponownym wyświetleniem zawartości

Re: CppWebBrowser1 - problem z ponownym wyświetleniem zawartości

Re: CppWebBrowser1 - problem z ponownym wyświetleniem zawartości

Re: CppWebBrowser1 - problem z ponownym wyświetleniem zawartości