TCppWebBrowser 控件里怎么得到所浏览的源代码？
<P>function SetHtml3(const WebBrowser: TWebBrowser; const Html: string): Boole </P><P>an; </P>
<P>var </P>
<P> Stream: TStringStream; </P>
<P> Adapter: TStreamAdapter; </P>
<P>begin </P>
<P> Stream := TStringStream.Create(Html); </P>
<P> try </P>
<P> Adapter := TStreamAdapter.Create(Stream); </P>
<P> try </P>
<P> OleCheck((WebBrowser.Document as IPersistStreamInit).Load(Adapter)); </P>
<P> Result := True; </P>
<P> finally </P>
<P> Adapter.Free; </P>
<P> end; </P>
<P> finally </P>
<P> Stream.Free; </P>
<P> end; </P>
<P>end; </P>
<P>function GetHtml3(const WebBrowser: TWebBrowser; var Html: string): Boolean; </P>
<P> </P>
<P>var </P>
<P> Stream: TMemoryStream; </P>
<P> Adapter: TStreamAdapter; </P>
<P>begin </P>
<P> Stream := TMemoryStream.Create; </P>
<P> try </P>
<P> Adapter := TStreamAdapter.Create(Stream); </P>
<P> try </P>
<P> OleCheck((WebBrowser.Document as IPersistStreamInit).Save(Adapter, Tru </P>
<P>e)); </P>
<P> SetLength(Html, Stream.Size+1); </P>
<P> StrLCopy(PChar(Html), Stream.Memory, Stream.Size); </P>
<P> Result := True; </P>
<P> finally </P>
<P> Adapter.Free; </P>
<P> end; </P>
<P> finally </P>
<P> Stream.Free; </P>
<P> end; </P>
<P>end; </P>
页:
[1]