[Delphi]TMozillaBrowser

[pcw]

Ich würde gerne den Quelltext eines in einem TMozillaBrowser angezeigten Dokuments auslesen.

Nur funktioniert keine der mir bekannten Methoden, Quelltexte aus einem TWebBorwser auszulesen und google hat mir auch keine umsetzbaren Ergebnisse geliefert.

Hat hier vllt jemand eine Idee oder gleiches evtl schonmal gemacht?

 

[QUT-Clan]

Na normalerweise geht das doch über Rechtsklick -> Quelltext anzeigen, oder meinst du das nicht?!

 

[pcw]

Ne, ich würd das gern per Code machen und nicht für den User

im TWebBrowser würde man das ja so machen:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  s: string;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  s := '';
  ss := TStringStream.Create(s);
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
    if Result then ACode.Add(ss.Datastring);
  finally
    ss.Free;
  end;
end;

aber bei "MozillaBrowser.Document as IPersistStreamInit;" gibt's ne Fehlermeldung.
Und wenn ich versuch, das MozillaBrowser.Document als IDispatch auszulesen und damit zu arbeiten, bekomm ich im laufenden Programm immer den Fehler "Schnittstelle wird nicht unterstützt".

 

[Ste_Ett]

Du musst eine zusätzliche ActiveX-Komponente installieren, dann geht das.

Link

 

[pcw]

Auf die Möglichkeit bin ic hauch shon gestoßen.

Aber wenn ich diese "Microsoft HTML Object Library" für das Projekt importiere und einbinde, gibt Delphi mir dauernd zigtausend warnungen (redefinierte Bezeichner) und 3 Fehler beim Kompilieren von MSHTML_TLB zurück.

Komischerweise stimmen die genannten Zeilen kein bisschen mit der Fehlermeldung überein.