Push-Text aus WebBrowser auslesen

[r29d43]

Zitat von Sir Rufo:

Und weil du die nicht gelesen hast, musst du dich daran nicht halten?

Bei so einer absoluten Minimalanwendung wie meiner, die obendrein nur selten läuft, kann man das wohl getrost ignorieren. Das auf sowas mit auszudehnen wäre doch wirklich nur die aller dämlichste Aufplusterei derenseits ..die ich denen einfach mal nicht unterstelle!

Zitat:

PS: Auf die Idee, den Rechner schon um 08:45 automatisch zu starten oder einfach früher am Rechner zu sein und selber einschalten bist du schon gekommen?

lohnt nicht, bei den +/- 2 Trades pro Quartal.

[r29d43]

Vielleicht noch eine minimale Ergänzung für Leute die diese Frage auch mal haben werden.


Dieser jeweils neue aktualisierte HTML-(Push)Text ist im document.body.innerHTML zu finden:

Delphi-Quellcode:

function TPlatowBuyHelperForm.GetBrowserHtml2(const webBrowser: TWebBrowser): String;
// by 'http://www.cryer.co.uk/brian/delphi/twebbrowser/get_HTML.htm'
var document : IHTMLDocument2;
begin
  document := webBrowser.Document as IHTMLDocument2;
  result := document.body.innerHTML;
end;

Er ist NICHT zu finden mittels dieser Funktion, die zwecks HTML-Text-Sichtung bestimmt auch einige benutzen:

Delphi-Quellcode:

function TPlatowBuyHelperForm.GetBrowserHtml(const webBrowser: TWebBrowser): String;
// by 'http://www.cryer.co.uk/brian/delphi/twebbrowser/get_HTML.htm'
var
  strStream: TStringStream;
  adapter: IStream;
  browserStream: IPersistStreamInit;
begin
  strStream := TStringStream.Create('');
  try
    browserStream := webBrowser.Document as IPersistStreamInit;
    adapter := TStreamAdapter.Create(strStream,soReference);
    browserStream.Save(adapter,true);
    result := strStream.DataString;
  finally
    strStream.Free();
  end;
end;