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

韩冰

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

an;

@4 T1 A& z; @! ?, g1 ?

var

- P9 c+ I9 ]& T+ X

Stream: TStringStream;

Adapter: TStreamAdapter;

begin

! [+ t! @; i( W

Stream := TStringStream.Create(Html);

try

0 Q( z) T( Y5 C6 j6 H J

Adapter := TStreamAdapter.Create(Stream);

try

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

Result := True;

. J( s0 A# D9 `# C4 F, F

finally

Adapter.Free;

* h* r3 j* Y9 R# q2 J+ Z

end;

- \, J! Z9 N4 B6 C0 z) c$ P

finally

0 r1 A8 ?3 j; c3 p+ @

Stream.Free;

end;

end;

M) u' C F- W7 j& w3 [0 n* ?

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

6 V* P! d$ k% H# i1 ]( l

var

; N, m" }! F$ X8 }* o# {

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

try

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

e));

$ i* P* b E y9 V7 g

SetLength(Html, Stream.Size+1);

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

Result := True;

0 @1 v, e3 |4 m- j1 e

finally

; K/ t9 T& q: N; n

Adapter.Free;

4 \6 V! v& _+ w+ \$ ~( B

end;

& V$ E: {- q; ^/ I

finally

' r: i) b. W, n* S/ [0 ^

Stream.Free;

3 D) ?$ C9 {$ Q0 f2 u5 h9 {/ O# O

end;

7 Q( \- z7 X0 K0 G6 L9 L+ E; f

end;