- 在线时间
- 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>
2 G( Z0 n4 W5 f<> if(OpenPictureDialog1->Execute())</P>
; c7 B$ J" |# ~1 t7 `6 W<> {/ m- G# s* [5 S
TMemoryStream *pm=new TMemoryStream();
' {" ~5 z/ H8 z Image1->icture->LoadFromFile(OpenPictureDialog1->FileName);7 X7 u" t' e% O* N) U- I
TJPEGImage *jpg=dynamic_cast<TJPEGImage*>(Image1->icture->Graphic);
7 p6 k1 J% D M- F6 B, h0 x; F if(jpg!=NULL)2 w- `: v- V7 D/ `; j
jpg->SaveToStream(pm);: C8 i/ r x) }- K- @% f$ n
else
) m, o* i" B# g% q3 A% ~3 H5 w Image1->icture->Bitmap->SaveToStream(pm);
7 `" D- l) H, Z: p( v ClientDataSet1->CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
; x$ x: X- r! f) V( T0 ^, r<> ((TBlobField*)(ClientDataSet1->arams->aramByName("picture")))->LoadFromStream(pm);3 C$ [$ m/ X, j. ]6 k0 d. o
delete pm;8 I5 e* A/ k% j r! a! W
ClientDataSet1->Execute();
1 a9 ^3 y5 A( |( B: j }</P>
' C$ ^- P+ t9 F& O<>在运行期间出错误 </P>1 r, f( p5 v3 L/ i4 D( O9 Y
<>rject project1.exe raised exception class
I2 {) ?3 A+ d! C" G x5 U' FEAcessViolation with message ' Acess violation at address 40325fa4 in model
! a" B& ?/ d- {4 Z+ L4 g' dbrtl60.bpl ' read of address 94636b84</P>
, ]3 P. h4 F' J7 I6 S. a4 d- M<>请问大哥们改如何的改正</P>+ U7 f. K9 T; k2 J7 S; H7 x' G1 [
<>谢谢！！</P> |
zan
|
IP卡
狗仔卡
发表于 2004-7-7 08:31
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
发表于 2004-7-7 11:00
