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

韩冰

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

an;

var

Stream: TStringStream;

p$ v+ z/ ?" M5 D) B% y: A5 @: K7 V

Adapter: TStreamAdapter;

begin

/ Y I! G4 W. p V1 n# @

Stream := TStringStream.Create(Html);

try

Adapter := TStreamAdapter.Create(Stream);

try

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

Result := True;

4 R: T% F- x3 F3 A

finally

% B) o9 \: i& `

Adapter.Free;

( @: H2 ]$ S- ^7 v& G

end;

finally

* @# j, q1 N& y P; i

Stream.Free;

, ^; `5 Y- z/ Z' o l

end;

6 P: B) h( @8 q3 w8 S* O

end;

1 S1 ^, L0 u: J" h2 a2 q3 g( B# @

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

0 t0 [! M( f l7 @8 b

var

, x4 t! {2 d! A- Y- O6 G( K5 K

Stream: TMemoryStream;

- N' W% r, x Z+ M, g

Adapter: TStreamAdapter;

8 l/ Z0 h) n- |0 m5 z7 j

begin

7 w$ u% G* N9 l( N7 l) Q r

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

* \9 |( W' c, t% O- R( Y. X! n

try

, B9 _+ d$ ~" R, |9 G" \

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

e));

SetLength(Html, Stream.Size+1);

6 e! q+ V4 ^6 s6 c9 X

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

Result := True;

i/ W4 p' O8 z! h * `0 g" `8 j) |1 L, M

finally

$ [; s5 i$ b# i9 ]9 S7 m5 g

Adapter.Free;

end;

9 L0 ^% _; C Y, C$ M' v9 F6 u1 y

finally

+ G: F3 j, T2 H

Stream.Free;

! K' V7 p% ^" s" E

end;

; t/ ]0 z \- s" F0 G

end;