Wie bekomme ich den HTML-Quellcode von TWebBrowser

Wie bekomme ich den source-code vom WebBrowser-Komponente?

Ich möchte Quelltext der aktiven Seite auf die WebBrowser-Komponente und schreibt Sie in eine Memo-Komponente.

Dank.

InformationsquelleAutor Leadri | 2012-04-10

  1. 18

    Können Sie die IPersistStreamInit - Schnittstelle und die speichern Methode zum speichern der Inhalt des Webbrowser in einen Stream. 

    Uses 
  ActiveX;

function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;
var
  LStream: TStringStream;
  Stream : IStream;
  LPersistStreamInit : IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then exit;
  LStream := TStringStream.Create('');
  try
    LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;
    Stream := TStreamAdapter.Create(LStream,soReference);
    LPersistStreamInit.Save(Stream,true);
    result := LStream.DataString;
  finally
    LStream.Free();
  end;
end;
    es funktioniert. ich danke Ihnen sehr.
    Wie können wir es schaffen den UMGEKEHRTEN Weg: SetWebBrowserHTML, so re-Injektion der zuvor extrahierten code zurück, WebBrowser (oder TEmbeddedWebBrowser). Ich Stelle mir folgende situation vor: Ein memo-Komponente wird der HTML-Quellcode mit GetWebBrowserHTML, dann kann der Benutzer einige änderungen an der source-code, dann die geänderte source-code ist durch reinjektion zurück in den Web-Browser. Dies wäre ein nettes HTML-editor mit Echtzeit-Vorschau im browser!
    Besser: LStream := TStringStream.Create('', TEncoding.UTF8);
    Sie wollte "reverse", alles, was Sie ändern müssen, ist LPersistStreamInit.Speichern LPersistStreamInit.Laden und initialisieren der TStringStream mit etwas (oder pass in eine andere stream).

    InformationsquelleAutor RRUZ

  2. 4

    Dass gut funktioniert auch:

    function GetHTML(w: TWebBrowser): String;
Var
  e: IHTMLElement;
begin
  Result := '';
  if Assigned(w.Document) then
  begin
     e := (w.Document as IHTMLDocument2).body;

     while e.parentElement <> nil do
     begin
       e := e.parentElement;
     end;

     Result := e.outerHTML;
  end;
end;
    Falsch. diese erhalten Sie die DOM-Darstellung der document element. Es wird nicht der HTML-Quellcode.
    Ja du hast Recht, ich benutze es nur zum analysieren einige Daten zur Verfügung, die auf html-Quelle, und mit DOM-Darstellung war ok.
    Ich werde upvote deine Antwort, Es ist auf jeden Fall nützlich. Auch ich benutze eine ähnliche Methode in unsere spider zu manipulieren/Parsen von HTML-Code aus einer fremden web-site.
    Ich musste bis diese Abstimmung, weil die Seite war ich versucht, um Quelle code hatte der Inhalt geändert von JavaScript, also @rruz Vorschlag hat nicht funktioniert, wie es wieder in der original HTML-Code statt der geändert. Danke.

    InformationsquelleAutor Mehmet Fide

  3. 3

    Diese wurde gestellt und beantwortet viele Male in der Embarcadero-Foren, mit vielen code-Beispiele veröffentlicht. Suchen in den Archiven.

    Das wesentliche ist, dass Sie Navigate() auf die gewünschte URL ein, und warten Sie, bis die OnDocumentComplete - Ereignis ausgelöst, dann QueryInterface() die Document Eigenschaft für die IPersistStreamInit - Schnittstelle und rufen die save() Methode. Erstellen Sie eine TStream - Objekt-Instanz, wie ein TMemoryStream, wickeln Sie es in ein TStreamAdapter - Objekt, und übergeben Sie dann den adapter an save(). Sie können dann laden Sie die TStream in die TMemo als nötig.

    InformationsquelleAutor Remy Lebeau

Schreibe einen Kommentar