如何从 WebBrowser 组件获取源代码?
我想获取 WebBrowser 组件上事件页面的源代码并将其写入 Memo 组件。
谢谢。
最佳答案
您可以使用IPersistStreamInit
接口(interface)和 save方法将 Web 浏览器的内容存储在 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;
关于delphi - 如何从 TWebBrowser 获取 HTML 源代码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10091666/