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

韩冰

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

$ L, ]/ n" a9 u' L

an;

' c p+ v$ @ ?

var

Stream: TStringStream;

* X! q) u3 \7 m# D8 M5 V |; g

Adapter: TStreamAdapter;

7 s# U1 J/ [" X7 ]

begin

Stream := TStringStream.Create(Html);

try

Adapter := TStreamAdapter.Create(Stream);

3 C' m4 {7 B# f" N5 e7 f5 g! @

try

2 `& Y2 J* l. z% [. h! x* w7 ^ u

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

Result := True;

finally

Adapter.Free;

1 P% F. y4 g+ |- }

end;

finally

7 C5 Z( _( G% o* t- |9 ]7 N0 d

Stream.Free;

, h+ D5 f7 Y( p

end;

end;

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

4 T) o8 ^6 O/ P* e( c8 M

var

% r5 F7 D v( i7 i. N' q" h$ l

Stream: TMemoryStream;

Adapter: TStreamAdapter;

. |1 ~& Z6 I! N* {

begin

Stream := TMemoryStream.Create;

/ q, b4 K# v& A0 ^1 p6 j+ G

try

& ]0 l- }7 Q- k4 v, O0 v# x( N

Adapter := TStreamAdapter.Create(Stream);

7 H7 k& U- l* [

try

: j1 ]3 {) T2 N: {5 H' g

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

$ J) R# x/ s* L4 i

e));

- g; D$ H2 W( r! q3 {

SetLength(Html, Stream.Size+1);

4 R* @8 e% h7 M5 A9 A- L" ?

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

a6 p6 u+ ~ R# t7 `

Result := True;

: t: m6 y% {0 e0 X" g# S

finally

: E- s# ], }3 b. K4 c' c K

Adapter.Free;

6 \4 D; }0 j! t

end;

finally

Stream.Free;

1 E" o K2 x& x# Q- f, p

end;

end;