插入图片 问题 大哥帮忙

jsp1988

<>这是我的代码</P>
<> if(OpenPictureDialog1-&gt;Execute())</P>
<>   {
3 u- q( [( r. N& ~; I   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)
) R3 S) X% X9 P    jpg-&gt;SaveToStream(pm);
4 o- F" I% }6 S* k  M' f1 |) b: u    else
    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
5 d: ?+ f/ h. s# M  n7 q% O4 ^<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);
; o5 ]* h: I. a" _; _  I( j        delete pm;
" J5 Q; Q7 M4 [% v        ClientDataSet1-&gt;Execute();
! M, p% ~( r3 A8 Q4 |4 o     }</P>
<>在运行期间出错误 </P>
- u: X: {0 E$ g' l2 A( {<>rject project1.exe raised exception class
EAcessViolation with message ' Acess violation at address 40325fa4 in model
' dbrtl60.bpl '  read of address 94636b84</P>
<>请问大哥们改如何的改正</P>
  }1 S! o+ E2 C2 E. Y( X3 X<>谢谢！！</P>

ilikenba

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