- 在线时间
- 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>" ]5 {8 C6 }3 y7 c' n5 ~/ h
<> if(OpenPictureDialog1->Execute())</P>
) l+ G! O5 Q- z/ z5 f, I8 c1 F<> {
, r, a( P5 ]' m) N TMemoryStream *pm=new TMemoryStream();) d3 l$ I7 l" p; P6 s; ?
Image1->icture->LoadFromFile(OpenPictureDialog1->FileName);
2 A0 s& k8 K% m TJPEGImage *jpg=dynamic_cast<TJPEGImage*>(Image1->icture->Graphic);* ~& H& f" X; L; E4 f C" {
if(jpg!=NULL)
, M! m$ {4 e; L0 x9 f# O jpg->SaveToStream(pm);1 H' ?4 q* W5 q7 I; C9 p8 Y% x
else
7 {( F1 r8 D& l8 O& A \ Image1->icture->Bitmap->SaveToStream(pm);2 T/ q* x* j, V) w$ [% I" B
ClientDataSet1->CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
1 D2 s3 {. a) d, _) q/ p* u" w<> ((TBlobField*)(ClientDataSet1->arams->aramByName("picture")))->LoadFromStream(pm);
: K; Y9 u' W; `1 l delete pm;
; T# s) a0 B% o7 o8 o: o% e) q ClientDataSet1->Execute();
& L: n2 p5 `4 ]2 t: O; w/ B% g }</P>
" V `$ b1 f$ E" ~. s) M' [. J; I0 c<>在运行期间出错误 </P>
3 f1 [4 ]6 N8 N4 ^: F<>rject project1.exe raised exception class # I. C2 p7 i8 \8 r$ K6 C' T/ v
EAcessViolation with message ' Acess violation at address 40325fa4 in model
8 j/ l$ o. G- e' B' dbrtl60.bpl ' read of address 94636b84</P>* `. L" S4 S5 L/ d6 V9 O, ?" Z
<>请问大哥们改如何的改正</P> K* u# a( e. V1 K6 Q/ _. S* V, |9 [- K
<>谢谢！！</P> |
zan
|
IP卡
狗仔卡
发表于 2004-7-7 08:31
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-7-7 11:00
