- 在线时间
- 0 小时
- 最后登录
- 2004-10-6
- 注册时间
- 2004-6-4
- 听众数
- 1
- 收听数
- 0
- 能力
- 0 分
- 体力
- 213 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 75
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 22
- 主题
- 17
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级    73.68% 该用户从未签到
 |
< >这是我的代码</P>
$ g# b: Q8 t: E9 r6 `<> if(OpenPictureDialog1->Execute())</P>
0 i8 s. a. U; h! R<> {% }9 c' N) }! c* i, R) R9 n. x
TMemoryStream *pm=new TMemoryStream();8 I" c4 @* c- Q* \% ~+ D4 Z L" z
Image1->icture->LoadFromFile(OpenPictureDialog1->FileName);/ u/ k/ `' `; @) f& K5 ?% b
TJPEGImage *jpg=dynamic_cast<TJPEGImage*>(Image1->icture->Graphic);* x1 V% K3 t Q& d: c2 k7 s
if(jpg!=NULL)4 s0 t0 ^7 ^3 V2 p" r, G" P
jpg->SaveToStream(pm);8 X% a0 v# A7 y- s' P% w$ S
else H/ X) V2 v+ [% v' l3 n+ v6 A+ h
Image1->icture->Bitmap->SaveToStream(pm);
3 w) z4 B" t# j/ p: ~7 R, h( I. x r ClientDataSet1->CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>0 T0 v% L: W8 A5 W
<> ((TBlobField*)(ClientDataSet1->arams->aramByName("picture")))->LoadFromStream(pm);5 U8 i' R) |# z/ G4 l1 l, E
delete pm;% e3 E; t i6 M2 ?8 v. O
ClientDataSet1->Execute();
; l% m8 p6 g( `. U4 t0 D }</P>
- u0 | l. J, ^- N" R<>在运行期间出错误 </P>
, i5 F. l, k) Y& z& w% H) i7 F, l<>rject project1.exe raised exception class ' }, n# F+ N9 V( |( e' p
EAcessViolation with message ' Acess violation at address 40325fa4 in model
& i. m- v$ \5 U' dbrtl60.bpl ' read of address 94636b84</P>7 D) E: q' R" B' {
<>请问大哥们改如何的改正</P>% v* i7 y5 M2 T4 U0 k# h
<>谢谢！！</P> |
zan
|
IP卡
狗仔卡
发表于 2004-7-7 08:31
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-7-7 11:00
