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

韩冰

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

7 e L% X( N r

an;

+ o- M% ]4 A! U

var

Stream: TStringStream;

% o" W$ N1 j2 t- g, G$ s

Adapter: TStreamAdapter;

* @ L) p. g! j( [3 l; Z

begin

% F: o( d5 W* _ }4 r5 ?

Stream := TStringStream.Create(Html);

try

Adapter := TStreamAdapter.Create(Stream);

- T- {2 v' `0 f8 r4 {% o3 D2 T

try

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

Result := True;

finally

D- }: t0 f. _+ B( W8 ]

Adapter.Free;

. L3 ~ z/ V' |% q

end;

/ @0 |' ]( h8 C1 R& F% h/ p

finally

Stream.Free;

4 \& [2 D/ Y$ y1 u* n# W( W

end;

. `$ V# i1 d/ }9 b3 H5 c- l0 N! ^

end;

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

, H2 Q4 c" ^# I' f6 h

var

3 J1 N: C6 u% A' h5 b, o

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

' @3 P5 U3 A' n u

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

. m- r5 _0 K0 X ]5 _' j8 j- Z

try

& @) L V3 t n; b, H

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

- C+ d: }8 v, a6 z

e));

* X4 S9 I9 z9 I ?/ K1 o l4 `

SetLength(Html, Stream.Size+1);

# i% I |8 W- j; N

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

: ` M6 A1 b8 d p+ y$ E6 C

Result := True;

: j& w( Z' w7 A

finally

( m+ i W& h6 s5 B& j) a

Adapter.Free;

end;

finally

" B, I5 a U: ? i3 \) I

Stream.Free;

1 \! |. T3 e) ~# a2 B

end;

end;