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

韩冰

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

an;

. C* @ I' k2 u- z1 O

var

z5 }+ `* ~+ w6 C+ h! o

Stream: TStringStream;

Adapter: TStreamAdapter;

+ t7 i" j+ Q0 p8 c# G/ h

begin

Stream := TStringStream.Create(Html);

$ |3 y8 I) L6 e l

try

7 b9 W2 g- k$ w, c

Adapter := TStreamAdapter.Create(Stream);

try

( Y. S2 s1 [4 p: w5 K2 M

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

0 \' K4 N# ` k/ @& j

Result := True;

finally

( `* R& R2 N* Z% |

Adapter.Free;

, f) G4 C6 l; W# s. V W. x

end;

finally

Stream.Free;

end;

) i# h0 s+ |! c# e

end;

0 S U: y; \$ F' U5 l* n3 Z+ j- q; i

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

5 O9 u% c: ~+ I7 [/ ]0 |" `2 D& K

var

1 S. A; Z: r, @! x7 F+ O7 L5 {+ j

Stream: TMemoryStream;

Adapter: TStreamAdapter;

: Q1 K; L# F: u7 D$ X( C4 @

begin

: F6 i; m; o; |9 Q o9 e

Stream := TMemoryStream.Create;

" O& ?. L% J$ w8 \) T& Y) R8 w, F0 u' h

try

Adapter := TStreamAdapter.Create(Stream);

7 T4 D- L, B$ f- S. o+ [% e

try

# j. E7 z$ g+ V$ k8 m) k q! B

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

e));

SetLength(Html, Stream.Size+1);

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

$ ^, A9 y1 Z/ W& y$ K2 }

Result := True;

1 a# E' j" p8 P1 }0 r

finally

Adapter.Free;

/ k/ X9 ?! X2 k* m1 n

end;

# v& u5 C& X* N( F/ o

finally

/ J3 d- x4 r& ~9 W0 p

Stream.Free;

end;

1 d; \3 [8 h% i7 Y

end;