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

韩冰

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

/ a: ~4 T( P9 B3 z& y1 C3 \

an;

) @2 i6 p0 \3 G. }

var

& J) l3 P' o- M3 \3 i* E0 z

Stream: TStringStream;

Adapter: TStreamAdapter;

5 T- h: D7 w, m/ V/ p4 ?& p

begin

Stream := TStringStream.Create(Html);

1 D: \$ E7 g" @! @0 [) u D6 p* Q0 u

try

6 G4 Q, q- y0 f x0 O8 b

Adapter := TStreamAdapter.Create(Stream);

try

& e5 b, m" @+ |+ x: D

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

Result := True;

finally

# D t' i7 Z' G& G

Adapter.Free;

4 ^1 ]9 ^) l0 O. T6 H

end;

finally

& `" u' Q# L/ ^* `; b

Stream.Free;

5 t4 [2 C$ c0 }- `

end;

) i( D6 v- A* \9 @1 Z& j

end;

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

7 y! A7 \: G1 r/ i: c+ c

5 h5 L8 X0 p) I0 A% ^5 A0 D

var

- b4 a, {3 Z. [+ Y0 _* Q

Stream: TMemoryStream;

Adapter: TStreamAdapter;

6 f& V) x4 S7 A( N* F4 P

begin

; _. l* {3 j4 i0 _( U2 g

Stream := TMemoryStream.Create;

% U* j: V) z" V5 Y1 d9 a `! q

try

& z7 }( Z' b( Z: F

Adapter := TStreamAdapter.Create(Stream);

) a5 l# p. v1 ~5 T- w5 w: ?

try

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

e));

t) {: N0 B; Q' @/ B/ H) @: M

SetLength(Html, Stream.Size+1);

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

Result := True;

' N9 Z- `) s0 p/ v' O# C# Y/ X

finally

u& W0 q* j+ J0 C5 D

Adapter.Free;

end;

finally

Stream.Free;

% f8 U! s6 c: K

end;

- x, }& C' u0 ~; z

end;