Delphi:
uses MSHTML,OleCtrls, SHDocVw, StdCtrls,ActiveX;
function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
var ps: IPersistStreamInit; s: string; ss: TStringStream; sa: IStream;
begin
ps := WB.document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
如何给WebBrowser空件中浏览的网页中的ifram读入HTML代码和保存这区域内的代码到文件
http://topic.csdn.net/t/20040621/12/3109638.html
IPersistStreamInit这个接口好像不支持框架,所以读入不成功。看今后有什么别的方法。。。