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

韩冰

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

4 {3 x+ Y4 A' Y9 a3 H1 n

an;

" g7 ^, t. u) c7 s* r! \

var

Stream: TStringStream;

+ P1 y2 ]7 U8 t4 }, v

Adapter: TStreamAdapter;

. R% b/ ^; b: V2 m: w. t' a

begin

Stream := TStringStream.Create(Html);

try

, ?8 ?' y" W4 W

Adapter := TStreamAdapter.Create(Stream);

) O4 ^/ k4 U3 z: D, I3 B; E M, z7 t

try

) V$ J6 t( w x

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

Result := True;

0 t$ ?' ?% R3 H/ Z, G) w

finally

Adapter.Free;

end;

finally

Stream.Free;

end;

end;

4 B% I7 @9 j. w/ k9 \

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

var

Stream: TMemoryStream;

+ g3 t$ J! ^& g ~( m* Y3 e+ r

Adapter: TStreamAdapter;

begin

; r+ k4 S( G A/ H( v1 b& S& L

Stream := TMemoryStream.Create;

7 ~+ A4 ]! X. `+ t5 ?, V

try

1 g& w" e1 K. D6 R

Adapter := TStreamAdapter.Create(Stream);

* k( A2 H9 B9 u

try

" L1 L+ \/ m4 C* E$ h

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

e));

SetLength(Html, Stream.Size+1);

# H+ d/ M. I# J; {% y3 q

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

Result := True;

finally

9 L3 z" L5 Z' |" Z

Adapter.Free;

end;

finally

# k0 e' q9 ?5 ~: d. U

Stream.Free;

: j# Z9 W! F. U6 E* f2 _- b

end;

end;