Jak pobrać źródło strony z komponentu CppWebBrowsers

[kurczez]

Tak jak w temacie, dziękuje za odpowiedzi.

[Cyfrowy Baron]

A możesz precyzyjniej...

Co rozumiesz przez źródło strony?!

---

Szukałeś odpowiedzi na tym forum?

viewtopic.php?f=16&t=527&start=0&hilit=%C5%9Bci%C4%85ganie
viewtopic.php?f=16&t=445&start=0&hilit=%C5%9Bci%C4%85ganie

[Cyfrowy Baron]

Trochę mi to zajęło, ale już wiem o co prawdopodobnie pytasz. Chcesz zapisać stronę wyświetlaną w kontrolce typu TWebBrowser do pliku.

Proponuję kod z wywołaniem komendy Zapisz jako:

Kod dla C++Builder od 2007 do 2010.

Kod: Zaznacz cały


  OleVariant t;
 WebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID::OLECMDID_SAVEAS,
            Shdocvw_tlb::OLECMDEXECOPT::OLECMDEXECOPT_DODEFAULT,
            NULL, t);
 

Powyższy kod spowoduje wywołanie okna dialogowego w którym będziesz mógł wybrać lokalizację strony, oraz sposób w jaki ma być zapisana. Do wyboru jest kompletna strona sieci Web, czyli z wszystkimi towarzyszącymi jej plikami, dostępne jest archiwum sieci web, czyli pojedynczy plik mht, pojedyncza strona sieci web, czyli bez towarzyszących jej plików, oraz plik tekstowe jak wcześniej.

[kurczez]

Cyfrowy Baron dzięki za odpowiedź, ale najwidoczniej źle sprecyzowałem pytanie.
Chciałbym źródło strony [kod html] wczytanej do CppWebBrowsers wyświetlić np. w TMemo.

W delphi w WebBrowsers można zrobić to tak:

Kod: Zaznacz cały

Memo1.Text := WebBrowser1.OleObject.Document.documentElement.innerHTML;

[Cyfrowy Baron]

To akurat można zrobić na wiele sposobów. Najprostszy to wyświetlenie podglądu strony patrz serwis Cyfrowy Baron dział: porady sieć, internet Wywołanie okna podglądu dla kontrolki TCppWebBrowser.

Kod: Zaznacz cały


 CppWebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID::OLECMDID_PRINTPREVIEW,Shdocvw_tlb::OLECMDEXECOPT::OLECMDEXECOPT_DODEFAULT);
 

Ten kod z Delphi nie zadziała w C++ Builder, gdyż kontrolka TWebBrowser w C++ nie ma interfejsu documentElement. Wiem jak zapisać stronę do pliku, ale nad przepisaniem jej zawartości do Memo muszę jeszcze popracować. Póki co mam z tym jeszcze problem, jak go rozwiąże dam odpowiedź.

[kurczez]

U mnie podczas kompilacji Twojego kodu wyświetlają się 2 błędy:

[C++ Error] Unit4.cpp(71): E2090 Qualifier 'OLECMDID' is not a class or namespace name
[C++ Error] Unit4.cpp(71): E2121 Function call missing )

Ale i tak muszę to wyciągnąć do TMemo, samo zobaczenie kodu mi nic nie daje.
Kiedyś to jakoś zrobiłem, ale nie mogę sobie przypomnieć a google mało o tym mówi :/

[Cyfrowy Baron]

Używasz Turbo C++ dlatego u Ciebie może być trochę inaczej. Spróbuj tak:

Kod: Zaznacz cały


 CppWebBrowser1->ExecWB(Shdocvw_tlb::OLECMDID_PRINTPREVIEW,Shdocvw_tlb::OLECMDEXECOPT_DODEFAULT);
 

lub tak:

Kod: Zaznacz cały


 CppWebBrowser1->ExecWB(Shdocvw::OLECMDID_PRINTPREVIEW,Shdocvw::OLECMDEXECOPT_DODEFAULT);
 

Co do Memo to jest na to trochę inny sposób nie oparty na kontrolce TWebBrowser, opisałem to w serwisie Cyfrowy Baron w dziale: porady sieć, internet

Wyciąganie adresów URL ze stron internetowych - wystarczy pominąć kod odpowiedzialny za wyciąganie adresów URL i masz cała stronę w zmiennej typu String.
Wyświetlanie plików graficznych bezpośrednio z Internetu - na końcu porady jest podany sposób wczytywania strony do Memo.

---

Co się tyczy wczytywania strony do obiektu typu TMemo bezpośrednio z kontrolki typu TWebBrowser lub TCppWebBrowser, to już sobie z tym poradziłem. Wcześniej popełniałem drobny, acz brzemienny w skutkach błąd:

Kod: Zaznacz cały


 TMemoryStream *stm = new TMemoryStream();

 IPersistStreamInit *psi;

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

 if(SUCCEEDED(WebBrowser1->Document->QueryInterface(IID_IPersistStreamInit,
              (void **)&psi)))
 {
  psi->Save(*sa, false);
  stm->Position = 0;

  Memo1->Lines->LoadFromStream(stm);
 }
 delete stm;