插入图片 问题 大哥帮忙

jsp1988

<>这是我的代码</P>
# s* P# A9 h5 V) v" e  {<> if(OpenPictureDialog1-&gt;Execute())</P>
5 D% M1 r! m+ d9 D# I# j' _) \<>   {
8 U+ ~% `) P) h  D; Q. d8 g8 g1 N   TMemoryStream *pm=new TMemoryStream();
   Image1-&gticture-&gt;LoadFromFile(OpenPictureDialog1-&gt;FileName);
   TJPEGImage *jpg=dynamic_cast&lt;TJPEGImage*&gt;(Image1-&gticture-&gt;Graphic);
   if(jpg!=NULL)
    jpg-&gt;SaveToStream(pm);
# {' O. l. m% f4 }6 }6 r+ x    else
- r. t; E% w- r% i. L$ I    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
) _! C2 _% b8 H7 R  Q/ V; g) ]      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
- ~+ y& j0 m) W+ q: q6 c<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);
9 x# j5 d) K  l+ v" Q0 e8 \1 ]        delete pm;
        ClientDataSet1-&gt;Execute();
     }</P>
3 D9 {5 @! ?: Q* K3 U2 v  x<>在运行期间出错误 </P>
<>rject project1.exe raised exception class
! q7 {9 r; A. G: L7 H  e' MEAcessViolation with message ' Acess violation at address 40325fa4 in model
1 m; e$ W8 I) |1 w6 ~2 t' dbrtl60.bpl '  read of address 94636b84</P>
, I7 e! g" _' d; D+ V& h<>请问大哥们改如何的改正</P>
1 M: n0 x, S2 U, F$ K2 Z<>谢谢！！</P>

ilikenba

<>((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);这句的问题！</P><>TBlobField类是一个字段类！不能将参数转成字段！关于类的说明参见本版的帖子！</P>