मैं TWebBrowser से HTML स्रोत कोड कैसे प्राप्त कर सकता हूं

Question

मैं WebBrowser घटक से स्रोत कोड कैसे प्राप्त कर सकता हूं?

मैं वेबब्रोसर घटक पर सक्रिय पृष्ठ का स्रोत कोड प्राप्त करना चाहता हूं और इसे मेमो घटक में लिखना चाहता हूं।

धन्यवाद।

Answer 1

आप स्ट्रीम में वेबब्रोसर की सामग्री को संग्रहीत करने के लिए IPersistStreamInit इंटरफ़ेस और save विधि का उपयोग कर सकते हैं।

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

यह पूछा गया है और एम्बरकेडेरो मंचों में कई बार जवाब दिया गया है, जिसमें बहुत सारे कोड उदाहरण पोस्ट किए गए हैं। अभिलेखागार खोजें।

यह का सार यह है कि आप Navigate() इच्छित URL और OnDocumentComplete घटना IPersistStreamInit इंटरफेस के लिए आग के लिए है, तो QueryInterface()Document संपत्ति और उसके save() विधि कॉल प्रतीक्षा करें। TStream ऑब्जेक्ट उदाहरण बनाएं, जैसे कि TMemoryStream, इसे TStreamAdapter ऑब्जेक्ट में लपेटें, और फिर एडाप्टर को save() पर पास करें। इसके बाद आप को TMemo में आवश्यकतानुसार लोड कर सकते हैं।

Answer 3

कि अच्छी तरह से भी काम करता है:

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;