CppWebBrowser Seitenquelltext anzeigen

[Rich2402]

Ich bediene mich zu diesem Zweck dem Snippet auf B&M RAD Pages.

Wenn ich bei einem Button-Click den Quelltext anzeigen will funktioniert das nnicht so ganz:

CppWebBrowser1->Navigate(WideString("http://www.c-plusplus.net"));
  ExtractHtmlCodeOfCurrentPage(Form1->CppWebBrowser1,Form1->RichEdit1->Lines,true);

Beim Klicken des Buttons passiert beim ersten Mal nichts, beim zweiten mal wird der Quelltext dann angezeigt...

Wie schaffe ich es, dass es beim erste Klick angezeigt wird?

PS: Es hilft auch nichts, die ButtonClick-Methode zweimal aufzurufen...

Danke

[DerAltenburger]

Hilft das?

http://www.bytesandmore.de/rad/index.htm?http://www.bytesandmore.de/rad/cpp/snipp/sc08005.php

[Rich2402]

in wiefern?

Sprich bisher noch nicht

[DerAltenburger]

Hast Du Dir die Methoden mal angesehen?

... Status ...

[Rich2402]

meinst du Ihmsens hier?

void __fastcall TfrmMain::CppWebBrowserCommandStateChange(TObject *Sender,
      long Command, TOLEBOOL Enable)
{
  switch (Command)
  {
    case CSC_NAVIGATEBACK:
      ToolButtonBack->Enabled = Enable;
      break;
    case CSC_NAVIGATEFORWARD:
      ToolButtonForward->Enabled = Enable;
      break;
    case CSC_UPDATECOMMANDS:
      ToolButtonStop->Enabled =CppWebBrowser->Busy;
      break;
  }
}

???

Wenn ja wie soll ich die verwenden?

Danke

[DerAltenburger]

Du machst ne Methode
- OnCommandStateChange(...)
- die kannst Du dem CppWebBrowser zuweisen
- die wird gerufen VOM CppWebBrowser!

In der Methode setzt Du ein Flag, wenn Seite fertig.

Im Hauptprogramm wartest Du auf das Flag, danach kannst Du den Quelltext holen.

Bei Dir scheint die Seite noch nicht geladeb zu sein, wenn Du die lesen willst

[Rich2402]

Danke, aber woran merk ich, das Seite fertig? Command?

[DerAltenburger]

Wird die Methode gerufen?
Wann wird die gerufen?
welchen Inhalt hat dabei Command?

Schau auch mal genau bei OnProgressChange.....