数学建模社区-数学中国

标题: TCppWebBrowser 控件里怎么得到所浏览的源代码？ [打印本页]
作者: 韩冰    时间: 2005-1-26 12:59
标题: TCppWebBrowser 控件里怎么得到所浏览的源代码？

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

7 P# ~3 Z7 n& O+ t

an;

; p6 R- T. D* C2 w

var

( U, i) _# d: h" c& f* R |% [

Stream: TStringStream;

x4 W) j2 w, o6 I3 M/ T

Adapter: TStreamAdapter;

- r4 \# }# H9 \1 ?

begin

5 d' U+ g4 [% H. Z& j

Stream := TStringStream.Create(Html);

2 h5 Q I: `) D

try

) J4 l2 V+ B- ] x# H

Adapter := TStreamAdapter.Create(Stream);

# x6 C, K# W" S t3 O/ l! j9 B- Q" C

try

9 k: {6 c U3 Y! N9 Z; u$ a

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

# z/ {1 R+ y8 m

Result := True;

5 `6 Y+ }/ h6 b- \: g3 k6 g

finally

) f4 F" Q# I4 u8 p' \1 H

Adapter.Free;

U* U+ ?. l% r

end;

1 p1 h4 a3 T" I7 R! _

finally

3 Y3 T' I! B& |+ G0 `

Stream.Free;

! {- V" v6 a; U; e/ `; p5 i

end;

: g/ Z: k% h+ i* y v7 T( z

end;

% s0 B. ?/ ~# `& Z

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

% O# {! ^9 w% ]! L8 b

3 @$ F8 b: K& g- s' g

var

. a$ o+ v8 N' |

Stream: TMemoryStream;

$ F, _! |/ V7 `6 _: ^7 [

Adapter: TStreamAdapter;

3 `4 |' f( `- @0 G6 X0 ^& w$ X+ A% I; B

begin

0 y! l+ t3 W/ a4 `+ m

Stream := TMemoryStream.Create;

/ J( B9 O; ]+ u1 x

try

* i: P. h' f- }' J' z5 M. I

Adapter := TStreamAdapter.Create(Stream);

! J3 o& f" h1 F( E; H9 e6 z6 N

try

9 d9 V g6 u e6 H- V

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

, `% S5 K1 u# S

e));

$ j7 ]1 m% Y; [1 u% s2 e9 h! f

SetLength(Html, Stream.Size+1);

9 O: U+ |) M6 A6 f" A1 |" n, T9 e3 ]6 D

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

6 j% I0 B# i c$ U) b- m( S6 _

Result := True;

9 q/ l" z2 t2 l " e0 J9 b' `/ V9 c0 U$ a p( l4 c

finally

3 Q4 c2 ]# d1 ]8 n9 i* u6 p: O

Adapter.Free;

; v9 t4 V% Y# N0 m

end;

0 u+ _ p" Z! G6 D/ }7 t

finally

* T) R3 l9 x4 O# t) N- N; L5 A- N

Stream.Free;

2 i$ X2 p# N( d

end;

: H9 F# Q: u/ a/ W. D' p) T

end;





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5