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

韩冰

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

an;

+ J4 w5 s6 Y2 i# b9 c! H! x

var

1 h( r; w! n/ l/ ]0 g& |& W1 [

Stream: TStringStream;

Adapter: TStreamAdapter;

begin

" D$ n! h3 q! W# P

Stream := TStringStream.Create(Html);

- V6 @' ^7 g3 m4 K1 g

try

$ u1 ~- B9 q# x9 C4 G

Adapter := TStreamAdapter.Create(Stream);

try

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

) s, y1 U# P, _) g ], A3 V

Result := True;

6 ^. `1 d* F6 v( S: v; v9 R

finally

Adapter.Free;

end;

finally

) Y, l8 u4 g3 O4 R

Stream.Free;

. {+ s( G( X* ]1 u/ t

end;

+ V. G0 O! v$ S+ K5 @" a+ V# J

end;

: f! ?+ r5 w* R

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

" P8 H& `. }% D5 k4 p- c

Y. Y) d4 U* R2 {1 w" f6 f% B b

var

1 L0 J: Y3 R- C# ?5 o

Stream: TMemoryStream;

) H+ o5 Q1 d i) c# v% E: a

Adapter: TStreamAdapter;

; n& C3 e. K9 A& h( J

begin

& B# A. f# j" Q* N! z2 s

Stream := TMemoryStream.Create;

try

& G( X8 g* d6 h: {# V. m

Adapter := TStreamAdapter.Create(Stream);

- C. G( t2 R% ]; B

try

1 Q; k3 U7 X, h+ X# |) o; O! ^3 ^

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

2 |2 ?6 V0 P$ i0 }, w/ U

e));

SetLength(Html, Stream.Size+1);

5 k5 f: O a, ~" f7 k* W$ R

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

Result := True;

; O$ W, }$ X5 q5 F3 P" P 0 x# t& r, F: {7 Q: Q) F* ~

finally

Adapter.Free;

end;

finally

Stream.Free;

end;

end;