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

韩冰

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

( w; K" j" X; o, n: O' D

an;

}0 P E. c/ W7 O8 G

var

Stream: TStringStream;

. ^* D, a+ ~5 o' ~9 y5 F2 }2 E

Adapter: TStreamAdapter;

begin

, u- {* f4 |! j

Stream := TStringStream.Create(Html);

4 o. K2 c/ l4 ^! S2 [

try

* b6 H K2 R% p+ _2 y. u3 r

Adapter := TStreamAdapter.Create(Stream);

try

# [2 N9 L3 w9 ~9 o

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

* T1 s/ g6 v8 Z+ s- ? |( \8 \8 ^ z

Result := True;

3 E5 A! l6 B# \

finally

8 o4 _1 v7 T- `( V' o/ l5 s- ?

Adapter.Free;

end;

+ w# C4 g4 L) k+ L

finally

Stream.Free;

end;

end;

% L, X3 y6 t* P. i/ C1 y9 }

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

var

" r- `9 J) a% ^- s' y! w; u

Stream: TMemoryStream;

Adapter: TStreamAdapter;

: R. k# ^# ]! ]4 J

begin

Stream := TMemoryStream.Create;

try

: K5 B, _5 a5 q$ \8 L' d

Adapter := TStreamAdapter.Create(Stream);

try

3 ? O4 @) ^3 U1 ~6 C

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

; o# D- F5 m: \8 H

e));

0 L7 z k: v0 p; r2 I$ z2 i

SetLength(Html, Stream.Size+1);

( t/ v) o- m& Q t, V5 h

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

Result := True;

2 J& |- _3 b9 L* X7 i: k * v# a3 h2 {$ s+ }# {7 `

finally

Adapter.Free;

5 C7 f3 m* b+ G- z q5 B9 w( M

end;

finally

8 f, A& I$ D4 n- l2 T

Stream.Free;

end;

+ i3 P8 u; l T/ |5 t2 X9 _

end;