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

韩冰

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

. J) k6 M* ^7 e8 t3 f7 B8 F x

an;

var

Stream: TStringStream;

Adapter: TStreamAdapter;

) H* ~( ^) _5 h! y j* E* h

begin

Stream := TStringStream.Create(Html);

' S, b5 {8 r- [: j3 C: z

try

Adapter := TStreamAdapter.Create(Stream);

try

' @" U' c; t# \9 ?4 y( ]

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

Result := True;

finally

9 U' K0 f: B: B) v- q

Adapter.Free;

: c- G( e5 L( Q

end;

finally

Stream.Free;

0 S) c4 {+ R" w" d

end;

end;

( y3 a _( V8 K5 P& A9 Q

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

var

Stream: TMemoryStream;

7 u4 o: ^/ v) O

Adapter: TStreamAdapter;

( ^2 \" ^9 {; R p+ J7 H

begin

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

$ ~$ z# Q' K x% V4 S( Q+ K4 O

try

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

' k) r f! S# l, p

e));

+ j& J" e: m! |( v+ e2 h

SetLength(Html, Stream.Size+1);

i+ p( e x6 h: s

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

% ^' r+ {' w2 g' S9 }1 j8 w

Result := True;

finally

5 v d. q/ i9 ?6 Q$ c

Adapter.Free;

! ]6 v0 F( N2 h* X7 P K0 E2 I

end;

finally

8 g3 Z% t! ]. a. q5 S5 p2 L

Stream.Free;

* q" n3 z9 B7 }+ A

end;

end;