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

韩冰

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

an;

var

$ d$ _% S A; P7 E: p1 `

Stream: TStringStream;

# M0 R+ O, [% h$ J3 q

Adapter: TStreamAdapter;

" @0 S- }' y# Z2 Q( K1 m8 R

begin

" e$ d4 z0 u/ R" V

Stream := TStringStream.Create(Html);

* a+ \7 d- [8 `) t! X4 w9 Q

try

, } L8 V5 p/ V* ?3 ~$ @- r/ L

Adapter := TStreamAdapter.Create(Stream);

try

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

8 Z" ?$ @. a) Y- l2 x

Result := True;

/ X2 b9 r: @( j$ |' P7 J7 l

finally

Adapter.Free;

0 b- M: j0 ~# N' U* \% h* x# g

end;

finally

Stream.Free;

end;

d% F2 M4 P# r- t, ]

end;

q. u6 U$ c) i; o0 K

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

var

6 p1 O. X" E) ^1 n4 ^- h

Stream: TMemoryStream;

Adapter: TStreamAdapter;

) [' \2 L1 ^* O3 y* N

begin

1 |: W/ \+ u+ b9 @! G

Stream := TMemoryStream.Create;

/ P# a$ q/ D, a. x1 j

try

& h" K2 y+ C6 }1 O

Adapter := TStreamAdapter.Create(Stream);

# S" x1 u2 `( W) D a8 p

try

1 i$ x( i2 i' K) b

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

e));

SetLength(Html, Stream.Size+1);

$ H: P m4 S5 q7 u2 o0 u* `

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

4 m) P6 h/ W- G5 [, p- @

Result := True;

8 a/ s( ?" t/ l8 Q0 Z7 T& p2 ` % t; ]6 h! I7 j, P

finally

Adapter.Free;

end;

finally

1 @2 s6 k1 S5 B1 E# s* D! ]

Stream.Free;

end;

end;