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

韩冰

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

. C5 y; E7 c: u+ H. H. c

an;

var

% x; ]% d& B# p% G

Stream: TStringStream;

Q/ l- i N y* m7 a' c) n! x; S1 G

Adapter: TStreamAdapter;

! I. [1 |( J: n' S, ~. ^' B) F7 M

begin

7 x4 @& a) @* Y" b! N. K

Stream := TStringStream.Create(Html);

- T; s w5 e5 h2 w T

try

6 k! q. |4 d$ s& n- _( @

Adapter := TStreamAdapter.Create(Stream);

try

0 @$ a3 l4 V0 ]! s* q. T! ]: \' i0 t

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

Result := True;

# o0 S: N% a, x8 l

finally

1 V* V! v$ [; { x" i

Adapter.Free;

end;

finally

Stream.Free;

6 _1 G: D5 C! |: g* L

end;

% V5 c b2 v) n$ X( }& o# r7 }2 m: I

end;

- s3 i6 C' K( {0 E* K

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

/ e1 R/ Q7 }- x2 d/ S

var

Stream: TMemoryStream;

! y, w( y7 ~* e: Q- R. ~

Adapter: TStreamAdapter;

begin

" r$ q r* h! M9 d

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

try

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

e));

SetLength(Html, Stream.Size+1);

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

Result := True;

( U2 n" X% {% E" ]; v0 T

finally

Adapter.Free;

" w2 R* w. Z' l0 o$ i0 `: i5 K

end;

; M$ [( l" O7 Y8 Q& { C

finally

& F6 o) I- T7 j7 M. s

Stream.Free;

end;

+ ~; T8 J& _) W% H& k

end;