QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2911|回复: 0
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 12:59 |只看该作者 |倒序浏览
|招呼Ta 关注Ta

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

5 d" \/ i* `( Z+ q

an;

) w" @! Z- w3 X3 Z

var

% F4 U! Q T8 V5 t( W. f

Stream: TStringStream;

5 {3 G; x& [- T: W! B) v7 O

Adapter: TStreamAdapter;

/ r {& c8 v- b9 ~& b7 R) o

begin

* J, U' u, J: J( `8 O

Stream := TStringStream.Create(Html);

' p5 c7 k; l: l* J- Z6 H& ]

try

/ J0 O x' j8 |7 K$ T( B7 o

Adapter := TStreamAdapter.Create(Stream);

5 M- s7 \/ E. R

try

$ ~& s0 Y. P( [4 |- M1 ]2 N

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

" N0 ^. Y! j, A7 f, \; Z/ A# @

Result := True;

: J: T5 h* X9 K* I# X! d% C

finally

" c+ n! A! r, l5 Q+ a, q

Adapter.Free;

, T6 u2 v1 p9 J7 _( G; P5 Y- L

end;

2 k# J. R$ C# J! z& ~# |

finally

x9 ~& ?5 b. E0 ]0 n

Stream.Free;

4 Y1 `- @( E+ g# R) k H. E

end;

t9 D5 l& v/ D* ?

end;

& r; \, L3 h3 g- g, [2 F$ V1 z

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

) G- R" u/ r$ i2 {* W

: |4 _! k# H6 ?

var

* e7 v1 h5 J# _! m/ R

Stream: TMemoryStream;

& ?% y" \- Y ^* T" U! H/ u P

Adapter: TStreamAdapter;

: Y5 L3 }5 j' Y: k3 d

begin

( ^+ j Q* Z" n0 U

Stream := TMemoryStream.Create;

& ~. Q4 F, u+ R0 s- w4 v! @

try

# \0 f8 Z& D5 Q: l. E

Adapter := TStreamAdapter.Create(Stream);

: F* K3 R! d' Y/ o1 e7 R1 @

try

5 K9 v& w L0 u# f8 v3 w

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

- N1 B9 Q- W* ^. H1 R. g

e));

6 i+ {# U7 ^# ~

SetLength(Html, Stream.Size+1);

& r8 t3 _- n9 b* @; n8 h# B

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

" _ f3 H/ ^# g3 G) j' T

Result := True;

, K8 \8 i0 _8 i; y# h0 l ! f C8 f. }0 y6 j

finally

9 k: }9 E2 X* |% T1 \4 S8 w/ m

Adapter.Free;

6 d" z! X7 I9 e

end;

) D' i( ]+ j7 O2 ]+ K$ n. Y

finally

! Q$ m4 e2 ^2 a* j2 V

Stream.Free;

( G) ^1 J% P2 i9 J# n4 T2 U

end;

0 n0 z' k5 c* {1 N' H# @% K

end;

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-6-10 22:21 , Processed in 0.357011 second(s), 52 queries .

回顶部