插入图片 问题 大哥帮忙

jsp1988

<>这是我的代码</P>
$ @( u1 _3 w* V5 ?0 t+ Z- \<> if(OpenPictureDialog1-&gt;Execute())</P>
<>   {
   TMemoryStream *pm=new TMemoryStream();
/ b$ O( `8 f+ q, p# W* A1 p   Image1-&gticture-&gt;LoadFromFile(OpenPictureDialog1-&gt;FileName);
   TJPEGImage *jpg=dynamic_cast&lt;TJPEGImage*&gt;(Image1-&gticture-&gt;Graphic);
- `! R5 |5 o/ {4 k7 t) q$ i( i   if(jpg!=NULL)
/ H  @' e. n" M, s    jpg-&gt;SaveToStream(pm);
    else
" U: x( W/ C' }5 [    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
6 X$ r( d6 @# o: J1 z, ?% L      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);
        delete pm;
        ClientDataSet1-&gt;Execute();
- n& v7 [. C$ x. I' D( e6 O* u     }</P>
2 n3 z: o$ v' K! H' c<>在运行期间出错误 </P>
5 ^- S6 h* J" t+ _) D<>rject project1.exe raised exception class
EAcessViolation with message ' Acess violation at address 40325fa4 in model
) F; L9 v% N$ S; X) a: f# ]9 e( C% Y' dbrtl60.bpl '  read of address 94636b84</P>
9 P+ u& D) e( Q9 U<>请问大哥们改如何的改正</P>
<>谢谢！！</P>

ilikenba

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