插入图片 问题 大哥帮忙

jsp1988

<>这是我的代码</P>
& P' O1 f3 b7 q# s0 N<> if(OpenPictureDialog1-&gt;Execute())</P>
1 S( f5 x0 a4 ~6 Y0 F<>   {
   TMemoryStream *pm=new TMemoryStream();
6 b/ S* P5 X% B  S   Image1-&gticture-&gt;LoadFromFile(OpenPictureDialog1-&gt;FileName);
   TJPEGImage *jpg=dynamic_cast&lt;TJPEGImage*&gt;(Image1-&gticture-&gt;Graphic);
   if(jpg!=NULL)
$ Z" j- F7 F1 j8 j; r: a: j    jpg-&gt;SaveToStream(pm);
( I1 w! w% l' V6 T  M% k) v! c    else
, R  L7 L8 j$ K* o4 N    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
  \4 a3 x& W/ M& F' Z" Q# h( ?      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
" e+ F% L1 P' h8 E<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);
) [$ ]* m7 ?+ z1 {/ p8 g$ l% T: U        delete pm;
7 |( H/ y2 U" Z- F8 M        ClientDataSet1-&gt;Execute();
1 q3 F9 E+ C7 h     }</P>
<>在运行期间出错误 </P>
<>rject project1.exe raised exception class
EAcessViolation with message ' Acess violation at address 40325fa4 in model
' dbrtl60.bpl '  read of address 94636b84</P>
<>请问大哥们改如何的改正</P>
<>谢谢！！</P>

ilikenba

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