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

韩冰

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

. c% Q# V3 _6 D1 r' W

an;

var

4 x: a' S ^# @4 K7 Z% x% n2 {

Stream: TStringStream;

4 g' e2 U6 j: `+ p# O7 M: u

Adapter: TStreamAdapter;

! c! G: a; w' b; e' |+ S7 Z+ h

begin

Stream := TStringStream.Create(Html);

try

Adapter := TStreamAdapter.Create(Stream);

% X1 C) ~+ T6 y8 z" _

try

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

, G4 x2 @9 ^- q. L* b0 J P

Result := True;

finally

Adapter.Free;

end;

7 |. N2 _0 Y' D2 c& H

finally

Stream.Free;

end;

end;

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

: s5 N, d3 f: z$ N

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

$ `. K$ M& I& G

Stream := TMemoryStream.Create;

% o+ l( L9 |; m$ t

try

Adapter := TStreamAdapter.Create(Stream);

try

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

5 L) L) w9 t% w, ]$ J

e));

! M, l7 u) s& M- s" @" A( a

SetLength(Html, Stream.Size+1);

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

! h$ n3 E/ w4 s2 V0 k# @) }+ c

Result := True;

e9 l8 k" I2 p$ K

finally

1 ]+ x' c7 [2 R' r% k6 W

Adapter.Free;

4 w9 U7 D3 Z1 K# Y5 k2 O j: s# r

end;

9 k$ W4 V! E" ~* j, s* `' L# m

finally

Stream.Free;

end;

end;