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

韩冰

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

an;

8 \! _6 V3 J! a0 L: o" E" Y4 k3 z

var

Stream: TStringStream;

Adapter: TStreamAdapter;

8 ]! [6 E5 }; L; @: }: i

begin

: W, `2 w T( t. U# [4 [9 m

Stream := TStringStream.Create(Html);

, ]# a4 N# j M I! A$ d( f

try

1 n- W5 X/ U' d. Y; g, i* {* o

Adapter := TStreamAdapter.Create(Stream);

" p' b2 s& t9 r3 R$ R1 e

try

( S4 X. n; I2 |. w& n

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

! o/ q+ _: e0 A# N8 L$ q

Result := True;

finally

Adapter.Free;

8 w( j3 z7 f6 n, `, w+ m

end;

finally

Stream.Free;

end;

W8 z- z0 M' J+ F- O

end;

6 I; k. F& k; i* \6 C5 L

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

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

) o( o( D; _$ ~9 O

try

Adapter := TStreamAdapter.Create(Stream);

try

: ?2 Q- w6 u8 X9 \1 [7 a/ j9 G

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

: o5 M! I) r( y: T2 v' K+ k# k5 M

e));

& ^/ A v v9 b% h9 L

SetLength(Html, Stream.Size+1);

% w8 J% |% f" t& A( G

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

- L- Z2 {2 t ^' W: P1 W% B

Result := True;

. B0 J! D% b& ?$ ^: M4 r) U- w0 M + w6 l. Z+ n. W8 q8 X9 R; N

finally

' d: @" i. E' X( C/ b& L7 _

Adapter.Free;

end;

0 n: a9 F" X8 x" ?5 J* V: L

finally

Stream.Free;

" ]+ r( a# |# Z: P

end;

% X( W t/ u% l: p4 N( X6 C' L

end;