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

韩冰

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

an;

/ H, B7 t. p) M, S M

var

3 \1 d5 x+ B) [

Stream: TStringStream;

Adapter: TStreamAdapter;

begin

2 m5 O- J4 w+ D

Stream := TStringStream.Create(Html);

try

- s5 ~* ~6 D3 v3 P% [2 t

Adapter := TStreamAdapter.Create(Stream);

6 \7 y( M4 ^7 N% S

try

* c/ R- c1 P7 @3 y0 J. k( n

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

3 y! k$ l2 S- @3 s; o

Result := True;

/ c/ i q- P6 R8 j b, s* F9 L

finally

Adapter.Free;

2 \" f; i" v, {

end;

" }5 ~3 @8 o% h( {# |! `( g

finally

Stream.Free;

6 v( n( F/ v1 {3 c. h* W

end;

! d( C _3 ^3 c+ B' q" \

end;

5 ?2 V/ ]% ^) u9 T& j' X& {

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

var

8 u: ]% s) f" k. Z7 X

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

, _& w$ l& m: h5 I& A9 u

try

Adapter := TStreamAdapter.Create(Stream);

/ ?* x9 Z2 k( Q) ^

try

" [; r1 u1 p5 F3 S

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

7 w; z* ^& H w: Y4 f

e));

SetLength(Html, Stream.Size+1);

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

. h0 s! @, [* W$ {0 D, _

Result := True;

9 `; g, f' l6 G8 l4 n

finally

& o- U) O k7 l( b& {9 E0 f

Adapter.Free;

1 D- ^/ m% H2 e1 U

end;

finally

# L& B1 h' a6 _! T6 g$ T

Stream.Free;

+ x5 ^4 D: K( ?" ~3 b- A

end;

: X% C0 k7 j! h

end;