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

韩冰

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

an;

* |3 q) {0 F" Q

var

7 Z3 [4 G& F, Y; y+ H0 J

Stream: TStringStream;

. p& R* y" t. a+ W

Adapter: TStreamAdapter;

# A3 Z" w* g: i5 E

begin

Stream := TStringStream.Create(Html);

( o, T" i1 _0 u' I5 o

try

1 A; p$ d7 |, t: H" O

Adapter := TStreamAdapter.Create(Stream);

try

4 Q5 U$ K' a0 M7 v7 Q4 Z& Q- N4 t

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

Result := True;

$ V7 c6 `! C1 G6 {( w7 r0 [& J

finally

3 }$ X+ q [* @& _& }# A( Q

Adapter.Free;

end;

% I/ I9 e9 W `: [/ a" k

finally

4 l8 H: Y. r+ @4 D' n7 h5 r

Stream.Free;

end;

end;

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

5 Q6 S, r) g. X) R* p

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

3 D# d5 R$ Z0 P

begin

. V0 b! \# g# q5 v" A& l: r

Stream := TMemoryStream.Create;

1 P# i" i8 I/ t: O/ ]2 o

try

4 C. p: E2 E( e L$ s

Adapter := TStreamAdapter.Create(Stream);

try

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

9 W9 F, o# l2 G% [+ C; ?

e));

* s7 P3 t* m3 h5 i7 ?

SetLength(Html, Stream.Size+1);

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

$ p- B; @- G5 e3 F+ ]" N

Result := True;

finally

3 E% Q& @# I- U. A. J+ q$ C

Adapter.Free;

6 s3 F8 m( E/ Z, h& n. }( W* {1 _

end;

- ?- r% A* M. W$ A: G

finally

Stream.Free;

end;

) {8 b* _# R4 g. c# @2 A) n

end;