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

韩冰

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

an;

var

3 x9 x6 I1 r+ _/ v$ I* a

Stream: TStringStream;

Adapter: TStreamAdapter;

8 I* c7 @1 s- c

begin

Stream := TStringStream.Create(Html);

5 X8 }: m4 I: `6 i! g: s( d1 _

try

2 r% n8 c: o/ F" L2 Z

Adapter := TStreamAdapter.Create(Stream);

try

# v* V7 ]- S3 f) _3 @- R

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

* o% s9 C5 J6 V; T4 U

Result := True;

finally

Adapter.Free;

$ u7 H8 b# C- m

end;

: W6 q7 {0 a* G$ b* v) J1 a* ]

finally

Stream.Free;

end;

end;

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

% s# U, w8 }) S/ O

var

Stream: TMemoryStream;

: h/ F" Y( u* D2 g" E! O

Adapter: TStreamAdapter;

7 w5 _* T3 n8 l9 Q; g

begin

( b0 I- C* {+ k2 x% g. `) }$ u

Stream := TMemoryStream.Create;

try

' E' r8 z) H ~+ R3 {0 R

Adapter := TStreamAdapter.Create(Stream);

5 Z* E5 ~3 ?' I1 ?$ x) D9 ]! L

try

) {% ^6 i/ V' }% d

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

e));

+ k9 @1 R5 e8 l( u1 ?

SetLength(Html, Stream.Size+1);

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

Result := True;

7 B1 g# L' p. ~( }% x

finally

Adapter.Free;

end;

finally

/ E2 d' i N' `% b, d$ H4 b5 u/ O8 Z

Stream.Free;

end;

end;