Text aus geladener Webseite aus TWebbrowser in Memo (nicht Quelltext!)

[markusagb]

Lustig, Fragen auf ne Frage zu bekommen...

Der Quelltext beinhaltet nicht die Information die im TWebbrowser angezeigt wird, evtl. dynamische Daten die geladen werden. Deshalb ja das Auslesen aus dem angezeigten Text.

Es geht um den Inhalt der Seite den wir automatisiert auslesen und in unser System einlesen wollen, derzeit bekommen wir das von unserem Anbieter per Mail das wir manuell einpflegen müssen. Leider hat unser Anbieter keine Api und auch sonst keine Ahnung...

Danke an alle die konstruktive Beiträge posten, ich denke ich habe es verständlich ausgedrückt. Profis dürften verstehen was ich benötige.

[HolgerX]

Hmm...

Text aus Webbrowser...

https://www.delphipraxis.net/3547-te...-auslesen.html

Klappt dass nicht?

[markusagb]

Hallo lieber Holger,
das hatte ich als erstes versucht, aber da steht es auch nicht drin
"aText := Browser.OleObject.Document.Body.InnerText"
Ich glaube diese Funktion baut nur den Quellcode um...
Scheint schwieriger zu werden als gedacht...

[Delphi.Narium]

Zwischenablage nutzen, ungetestet ungefähr sowas:

Delphi-Quellcode:

procedure WebbrowserTextKopieren(Sender: TObject);
Var
  i : Integer;
begin
  Webbrowser.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_DODEFAULT);
  Webbrowser.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
  Webbrowser.ExecWB(OLECMDID_CLEARSELECTION,OLECMDEXECOPT_DODEFAULT);
  Memo.PasteFromClipboard;
  // Hier dann im Memo die tatsächlich benötigte Textpassage
  // zwischen Wetter und Morgen suchen.
  i := Pos('Wetter',Memo.Text);
  if i > 0 then Memo.Text := Copy(Memo.Text,i + 6,Length(Memo.Text));
  i := Pos('Morgen',Memo.Text);
  if i > 0 then Memo.Text := Copy(Memo.Text,1,i - 1);
end;

[markusagb]

Danke, das sieht gut aus, ich teste es gleich mal!
Super!!

[markusagb]

Also, selbst damit müsste er ja "alles" ins clipboard holen, tut er aber nicht:

Webbrowser6.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOP T_DODEFAULT);
Webbrowser6.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DOD EFAULT);
Webbrowser6.ExecWB(OLECMDID_CLEARSELECTION,OLECMDE XECOPT_DODEFAULT);
Memo1.PasteFromClipboard;


Ich habe dann ergänzt:

initialization
OleInitialize(nil);

finalization
OleUninitialize;

Kann manuell aus dem clipboard raus kopieren, aber nicht mit dem code

Habe nun dem Webbrowser den Fokus gegeben mit Webbrowser6.OleObject.Document.body.focus aber das Memo ist leer mit ca. 20 Zeilen...

[DeddyH]

Wie sieht es denn aus, wenn Du die Seite „ganz normal“ in Deinem Standardbrowser aufrufst und Dir den Seitenquelltext anzeigen lässt?