TCppWebBrowser 控件里怎么得到所浏览的源代码？

韩冰

function SetHtml3(const WebBrowser: TWebBrowser; const Html: string): Boole

an;

) w" @! Z- w3 X3 Z

var

% F4 U! Q T8 V5 t( W. f

Stream: TStringStream;

5 {3 G; x& [- T: W! B) v7 O

Adapter: TStreamAdapter;

begin

* J, U' u, J: J( `8 O

Stream := TStringStream.Create(Html);

try

/ J0 O x' j8 |7 K$ T( B7 o

Adapter := TStreamAdapter.Create(Stream);

5 M- s7 \/ E. R

try

$ ~& s0 Y. P( [4 |- M1 ]2 N

OleCheck((WebBrowser.Document as IPersistStreamInit).Load(Adapter));

" N0 ^. Y! j, A7 f, \; Z/ A# @

Result := True;

finally

" c+ n! A! r, l5 Q+ a, q

Adapter.Free;

end;

finally

x9 ~& ?5 b. E0 ]0 n

Stream.Free;

end;

t9 D5 l& v/ D* ?

end;

& r; \, L3 h3 g- g, [2 F$ V1 z

function GetHtml3(const WebBrowser: TWebBrowser; var Html: string): Boolean;

) G- R" u/ r$ i2 {* W

var

* e7 v1 h5 J# _! m/ R

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

( ^+ j Q* Z" n0 U

Stream := TMemoryStream.Create;

& ~. Q4 F, u+ R0 s- w4 v! @

try

Adapter := TStreamAdapter.Create(Stream);

: F* K3 R! d' Y/ o1 e7 R1 @

try

5 K9 v& w L0 u# f8 v3 w

OleCheck((WebBrowser.Document as IPersistStreamInit).Save(Adapter, Tru

- N1 B9 Q- W* ^. H1 R. g

e));

6 i+ {# U7 ^# ~

SetLength(Html, Stream.Size+1);

& r8 t3 _- n9 b* @; n8 h# B

StrLCopy(PChar(Html), Stream.Memory, Stream.Size);

" _ f3 H/ ^# g3 G) j' T

Result := True;

, K8 \8 i0 _8 i; y# h0 l ! f C8 f. }0 y6 j

finally

Adapter.Free;

end;

) D' i( ]+ j7 O2 ]+ K$ n. Y

finally

Stream.Free;

end;

end;