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

韩冰

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

an;

var

Stream: TStringStream;

Adapter: TStreamAdapter;

+ W$ P" V5 E( K" I k

begin

Stream := TStringStream.Create(Html);

6 O) x; g" [& h

try

! y$ }) q0 w. o) z

Adapter := TStreamAdapter.Create(Stream);

try

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

Result := True;

finally

5 }" n1 w. q# n, |: P" f

Adapter.Free;

" U* @' a6 g. L6 J

end;

finally

% b9 |" a' F/ Q0 b$ {( A

Stream.Free;

: \/ l: Y* ^2 ]- P! `. t

end;

end;

' F4 B% q; O( r3 ?" |" s& V5 o4 n; q

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

: e+ t/ d& i; _0 G5 v4 D

var

Stream: TMemoryStream;

- J5 w4 o1 M1 M' e. s, o

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

5 L5 M) P" F/ X4 m I

try

Adapter := TStreamAdapter.Create(Stream);

6 M; r- E: Y+ p& {+ Q1 T+ |

try

& |7 S5 E7 o/ }$ m% f8 g

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

e));

SetLength(Html, Stream.Size+1);

, `$ _* M; g# R! p

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

* W+ k/ o/ A# F, ]* s* c

Result := True;

9 B0 f9 h' c8 {7 t) D. Q

finally

Adapter.Free;

1 @, r* `) ]8 a8 `' ^- \

end;

finally

# L/ {# f2 a L6 a

Stream.Free;

- i1 ^/ y! q& q+ F

end;

end;