Tôi làm cách nào để lấy mã nguồn HTML từ TWebBrowser

Question

Tôi làm cách nào để lấy mã nguồn từ thành phần WebBrowser?

Tôi muốn lấy mã nguồn của trang hoạt động trên thành phần WebBrowser và ghi nó vào một thành phần Ghi nhớ.

Cảm ơn.

Answer 1

Bạn có thể sử dụng Giao diện IPersistStreamInit và phương thức save để lưu trữ nội dung của Trình duyệt web trong Luồng.

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

Điều này đã được hỏi và trả lời nhiều lần trong các diễn đàn Embarcadero, với nhiều ví dụ mã được đăng. Tìm kiếm lưu trữ.

Các ý chính của nó là bạn Navigate() đến URL mong muốn và chờ đợi cho sự kiện OnDocumentComplete để bắn, sau đó QueryInterface() các Document thuộc tính cho giao diện IPersistStreamInit và gọi phương thức save() của nó. Tạo một đối tượng TStream đối tượng, chẳng hạn như TMemoryStream, bọc nó trong đối tượng TStreamAdapter và sau đó chuyển bộ điều hợp tới save(). Sau đó, bạn có thể tải TStream vào số TMemo khi cần.

Answer 3

Đó hoạt động tốt quá:

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;