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

韩冰

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

$ {3 r% {1 S# a9 D, L; s7 ?" b# o: p

an;

var

Stream: TStringStream;

2 T1 b8 T' ~- p5 X: u

Adapter: TStreamAdapter;

/ {3 s: u3 `. v* R \6 [

begin

Stream := TStringStream.Create(Html);

try

Adapter := TStreamAdapter.Create(Stream);

try

/ l! a& N! W! u j

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

Result := True;

finally

Adapter.Free;

end;

+ J: K$ J( V; H2 i

finally

5 G, x* T+ w( \& R/ }

Stream.Free;

7 x5 I4 }. `7 u3 _; W- ?

end;

9 a3 V$ N3 e& S( L( a3 g2 A8 y. z/ y

end;

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

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

% f1 _) X5 ^, i8 }2 f4 e, {6 z

begin

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

try

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

e));

SetLength(Html, Stream.Size+1);

" C. c: d; M ]) C

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

0 @8 O' `" B6 z8 A- C* I

Result := True;

finally

Adapter.Free;

G- X" `8 V. K. O4 U/ e

end;

1 L/ k. U; j: p$ l; v

finally

0 t3 H. o |" X+ S- M

Stream.Free;

end;

end;