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

韩冰

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

an;

var

Stream: TStringStream;

Adapter: TStreamAdapter;

7 K& H7 U) B- V1 s

begin

Stream := TStringStream.Create(Html);

) d% |7 d5 A4 p. e

try

Adapter := TStreamAdapter.Create(Stream);

try

# ^7 w- P. y% Z! W; y! n6 z

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

Result := True;

finally

Adapter.Free;

3 A1 @' ?* l7 H$ F$ i V) _

end;

finally

+ ~+ |* _" e/ i( ~

Stream.Free;

8 ~) a5 H8 c/ [7 {9 @# U7 f m4 R

end;

k8 h! g! A6 e* S" g& f! y( d

end;

7 j9 m* v$ g- {% F7 l5 Y

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

7 @3 A+ l4 o9 `5 i

# D2 F: S$ z' e: e8 z

var

9 s" k4 K. X2 e/ S6 T1 ~5 ]" U+ G

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

try

% M c! k: b5 u+ c2 b: j

Adapter := TStreamAdapter.Create(Stream);

try

Q# ~' K/ V0 I+ N( v% ~

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

e));

8 i4 a9 p, x. y8 u, c/ D

SetLength(Html, Stream.Size+1);

. P) J+ q- g5 s" t) q

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

8 U. ^; s3 P0 |+ C/ y

Result := True;

: J; _5 p- m1 V4 z$ W& O

finally

Adapter.Free;

end;

finally

Stream.Free;

end;

end;