数学建模社区-数学中国

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

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

0 U# x! A G. \

an;

1 k3 N: y1 m& C1 k( H

var

- P M; Z+ N+ L' u+ e3 p9 v5 u

Stream: TStringStream;

: I5 e! M( J' @0 z0 y

Adapter: TStreamAdapter;

- X1 j- [- f' `$ d+ q& p

begin

7 ?( W: B2 K. I( v

Stream := TStringStream.Create(Html);

& h% ?# \- D! R7 `6 G" c, e

try

`) t7 i/ I4 N

Adapter := TStreamAdapter.Create(Stream);

, N9 N. R7 I9 [* T9 o

try

% }% ? D" z8 a+ f3 m& q

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

( Q& V$ ^6 `4 ]% y. w1 G

Result := True;

& L% U! J0 D$ f9 d' I3 I( r

finally

5 c* ] `) N. m0 v" H0 b5 d9 L, g

Adapter.Free;

4 x/ k5 G$ [1 X3 e; B

end;

- T7 f5 q- O1 [5 X2 ^* E/ z& u

finally

' B8 v$ s0 P" P0 V

Stream.Free;

1 q: t; e/ ~2 [" i2 ]# g0 _; B G5 f

end;

8 | r+ W, {; D3 X* N+ j# U

end;

( e; j, T+ D0 H

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

+ P) x; K; f, S, a

3 @: \& l% P% I( Q" E$ D$ v- L- ^

var

) E4 p; Y/ P( y4 S: b8 w

Stream: TMemoryStream;

# K) e q( e9 N9 o5 T2 S

Adapter: TStreamAdapter;

4 W# t. X4 \: S+ g

begin

& }0 P& [/ Q6 `: K% u1 ^

Stream := TMemoryStream.Create;

9 Q' j4 l1 x# f5 ^1 J

try

w7 N6 C: ^ G' y. i0 x$ m

Adapter := TStreamAdapter.Create(Stream);

6 a* _) k9 o# ^( Y3 r( Q

try

; Z W1 T1 Z L! _

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

5 c( f3 G8 ~0 B9 P, d3 q! O6 Z

e));

$ a+ n, ^9 I: w/ t1 ]0 n$ _7 g

SetLength(Html, Stream.Size+1);

* |% L8 j; e& | o) Q

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

6 O( D* g! K3 H* s+ f

Result := True;

. W# p7 i) \) X8 u: v# U % W3 l* }! W! t( `& h; V3 J

finally

3 M7 Q3 d( {5 A4 q8 O

Adapter.Free;

" J+ {4 S0 A y% v+ @1 R

end;

; s# b( M- i* P' r/ M- `. Q8 z

finally

& h& X8 }) B; h

Stream.Free;

0 o. j' e& N# L& |

end;

( b) P/ A" P3 P8 K" }( ?% A

end;





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