Jak mogę uzyskać kod źródłowy HTML z TWebBrowser

Question

Jak mogę uzyskać kod źródłowy ze składnika WebBrowser?

Chcę uzyskać kod źródłowy aktywnej strony w komponencie WebBrowser i zapisać go w komponencie Memo.

Dzięki.

Answer 1

Można użyć interfejsu IPersistStreamInit i metody save do przechowywania zawartości przeglądarki w strumieniu.

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; 

Answer 2

Zostało to zadane i wiele razy udzielane na forach Embarcadero, gdzie zamieszczono mnóstwo przykładów kodu. Przeszukaj archiwa.

Istotą jest to, że ty Navigate() do żądanego adresu URL i czekać na zdarzenie OnDocumentComplete na ogień, potem QueryInterface() właściwość Document dla interfejsu IPersistStreamInit i wywołać jego metodę save(). Utwórz instancję obiektu TStream, taką jak TMemoryStream, umieść ją w obiekcie TStreamAdapter, a następnie przekaż adapter do save(). Następnie można załadować TStream do TMemo w razie potrzeby.

Answer 3

To działa zbyt dobrze:

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;