数学建模社区-数学中国

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

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

1 Y- R# z; {$ t5 P' s( U

an;

0 T# \* C8 X4 \! o

var

! e3 b) ~1 G) m" C

Stream: TStringStream;

! @; R1 B5 j/ |9 C; _! E

Adapter: TStreamAdapter;

( ~4 k9 T5 A$ v8 _, b

begin

# ]3 m* x K$ m8 p: y

Stream := TStringStream.Create(Html);

: P7 @$ `1 \8 @6 B/ O0 _7 T( Y) [' ^& x

try

! O: A- T, d1 V# t- H

Adapter := TStreamAdapter.Create(Stream);

; [8 G6 }- L+ I9 \

try

" u9 S& i( G, H% ~4 g7 x, z& q

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

s+ [: i& ?! `

Result := True;

n- y; |2 I/ Q2 e5 w

finally

) v! S5 v3 W1 r0 f- \/ |: t3 K8 U

Adapter.Free;

8 m" |. ~6 \- g/ N4 c+ K

end;

0 ^0 l( c7 p8 k: Y

finally

1 c+ Z; I, j9 S7 k7 B

Stream.Free;

' o' e3 q- G$ w% \+ H

end;

6 j% y6 O4 X7 k6 X

end;

7 |8 o" J5 z/ {. T5 u

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

1 t% z$ M0 l) s' x

/ l/ w- ? |/ W0 P6 u6 D0 ^

var

$ Z2 u; j2 I( I8 e

Stream: TMemoryStream;

4 \7 r1 q1 t2 D* f

Adapter: TStreamAdapter;

6 o3 G1 T; C$ r9 E# G @

begin

7 m! l% W, c4 j

Stream := TMemoryStream.Create;

# O6 g: W' A3 ]8 ^5 J; }( P

try

0 e# a8 I. A" C5 V# |

Adapter := TStreamAdapter.Create(Stream);

+ y$ i7 J$ m& F) c6 c

try

( L) c. {" L; P* v

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

. s5 {- y# o' P7 W j( A; y! `* l

e));

$ g& K+ K' r( }4 c6 n" _" ]8 r

SetLength(Html, Stream.Size+1);

" G" R$ [* E# ^; h

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

3 D, o2 K7 N% ~9 u7 X: h

Result := True;

0 e. O7 t7 m5 a- d. `0 ?, [; r- Y ( O# L- g1 U( [1 R9 D

finally

) Z$ C/ _, s& @. L* q

Adapter.Free;

5 ~0 X6 f# \; ~+ d8 Z( R1 ^' J$ R

end;

, }$ ^' u3 I* _/ M( S( s- {5 Z |

finally

& q/ l$ B: ~, ?; R0 C4 W, M

Stream.Free;

) w7 v, x( z: _+ V

end;

& c! A ?6 Y# R: m3 ^; l

end;





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