数学建模社区-数学中国

标题: 插入图片 问题 大哥帮忙 [打印本页]
作者: jsp1988    时间: 2004-7-7 08:31
标题: 插入图片 问题 大哥帮忙
<>这是我的代码</P>, r9 a# M4 Y% J! R8 A' I& X$ a& D
<> if(OpenPictureDialog1-&gt;Execute())</P>
$ v; t# k1 @- |  X* l3 j<>   {* y# L  N, q- s7 W" \
   TMemoryStream *pm=new TMemoryStream();
( f3 L) Q) a8 N/ k& I5 _   Image1-&gticture-&gt;LoadFromFile(OpenPictureDialog1-&gt;FileName);0 [0 J0 z5 Q  x. z: Q* |9 ^8 O
   TJPEGImage *jpg=dynamic_cast&lt;TJPEGImage*&gt;(Image1-&gticture-&gt;Graphic);( w2 w0 T7 ^2 T/ X5 Y! |. S8 {/ b
   if(jpg!=NULL)1 v% d# g. M$ ^- N! B
    jpg-&gt;SaveToStream(pm);% L  n* i' X' P2 r. A- l8 u
    else
; W  ]8 t# X) @0 o% L( h. j    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
0 n$ q* ]/ C+ O$ I0 M8 ^      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>" s' a! x& }) T/ Q7 g  e6 X/ R. J0 ~
<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);/ h1 o6 B1 O. h% ]- e
        delete pm;4 d1 m! J; _" X+ a/ q+ E5 u0 N
        ClientDataSet1-&gt;Execute();
* C: ^( s. G: a  A; q2 ~4 d     }</P>
7 q; p5 k  T1 m5 q* T9 R<>在运行期间出错误 </P>5 m) b6 V# ^" {! ]+ v" P9 J
<>rject project1.exe raised exception class
" m& A7 o: H" {" e" FEAcessViolation with message ' Acess violation at address 40325fa4 in model
5 h. k; |3 \5 W! F7 H5 {+ `) o' dbrtl60.bpl '  read of address 94636b84</P>
8 Q% n7 `5 {" i* [<>请问大哥们改如何的改正</P>
  g! A  z3 s- L4 k8 E. e: G$ i<>谢谢！！</P>
作者: ilikenba    时间: 2004-7-7 11:00
<>((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);这句的问题！</P><>TBlobField类是一个字段类！不能将参数转成字段！关于类的说明参见本版的帖子！</P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5