- 在线时间
- 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> l5 O/ a' V) u3 r1 r) |* H
<> if(OpenPictureDialog1->Execute())</P>' e; z( k8 x# l4 u5 Z! J" [) q
<> {
+ P4 s9 \ M( B2 V9 P TMemoryStream *pm=new TMemoryStream();
2 J! p* ^+ N( Y Image1->icture->LoadFromFile(OpenPictureDialog1->FileName);
, v; S9 U6 D. \, o# E- p TJPEGImage *jpg=dynamic_cast<TJPEGImage*>(Image1->icture->Graphic);
! W% d8 T' |) h4 p8 q u if(jpg!=NULL)
% w& X8 a. k" w/ t- k3 V4 i) ]' j jpg->SaveToStream(pm);0 ~9 r: P% {( S) c
else$ T5 @8 _8 i/ k) y; n
Image1->icture->Bitmap->SaveToStream(pm);
+ Z0 J9 c+ O* f. k7 c ClientDataSet1->CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>* S& _2 v9 y1 e e' M% m( @/ e
<> ((TBlobField*)(ClientDataSet1->arams->aramByName("picture")))->LoadFromStream(pm);# C2 R4 t0 O- I* i
delete pm;
+ [- ~7 v, w0 c4 l% s- @ ClientDataSet1->Execute();# X( O9 V2 A( c
}</P>
( U& W& _1 [" X0 K5 B<>在运行期间出错误 </P>. ]( \' J/ ~1 S% e
<>rject project1.exe raised exception class + X0 X6 z. t; j L
EAcessViolation with message ' Acess violation at address 40325fa4 in model# L! ?' g* f, v# P( D1 s( d
' dbrtl60.bpl ' read of address 94636b84</P>! c, D g" }4 n5 s( f: o; E6 c
<>请问大哥们改如何的改正</P>
+ u% O, q+ N) W# n<>谢谢！！</P> |
zan
|
IP卡
狗仔卡
发表于 2004-7-7 08:31
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-7-7 11:00
