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

韩冰

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

4 H' l3 W2 E( a0 C

an;

var

0 X% B4 r- r5 ]' r

Stream: TStringStream;

Adapter: TStreamAdapter;

5 | a2 l( _4 K# A! u p# |" F

begin

2 e, v" _9 s" F6 ?* |0 n" a# B) T6 T

Stream := TStringStream.Create(Html);

try

3 N" N# \; t1 M. o

Adapter := TStreamAdapter.Create(Stream);

try

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

Result := True;

6 M3 x0 _- M! U8 {' Q: K( A$ i1 z

finally

& O5 I% ~+ {2 l

Adapter.Free;

' R' U1 x7 `. V, R/ }

end;

, r" V0 o# P" N* I9 l6 H

finally

Stream.Free;

end;

end;

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

) Q! n3 ?; h9 Z( [# z/ m* K

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

2 X. ^) h6 i \0 f, Y

begin

; N J! Q1 }3 _6 E) x6 H/ ?# \

Stream := TMemoryStream.Create;

3 f$ X$ G1 B+ g, h, f' x+ B8 T. G, {

try

3 i: M# A+ z! Q1 a, Q ?. J* t

Adapter := TStreamAdapter.Create(Stream);

8 ~7 A8 ?. r# M5 C+ I: x8 W

try

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

, o, W8 Q! [4 K8 b& Y4 M' b

e));

SetLength(Html, Stream.Size+1);

- @0 _" H8 v6 m9 z7 p

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

# g6 _! Q; c" w$ y

Result := True;

finally

Adapter.Free;

end;

: ?; g0 I7 B" v' D0 s: Q

finally

4 ^ ^0 t M$ l- E/ |0 K

Stream.Free;

$ r/ R9 l5 q' V

end;

end;