插入图片 问题 大哥帮忙

jsp1988

<>这是我的代码</P>
2 e8 ?0 S; L- F' N/ F# W: w<> if(OpenPictureDialog1-&gt;Execute())</P>
/ X) D8 K1 U; X. A1 S6 }+ a<>   {
   TMemoryStream *pm=new TMemoryStream();
   Image1-&gticture-&gt;LoadFromFile(OpenPictureDialog1-&gt;FileName);
+ h: f; m& Z5 u* M3 o   TJPEGImage *jpg=dynamic_cast&lt;TJPEGImage*&gt;(Image1-&gticture-&gt;Graphic);
   if(jpg!=NULL)
$ Y; i$ e5 R$ s! a" W  T    jpg-&gt;SaveToStream(pm);
: ^; t0 P7 M3 p. W4 a; w* o# R2 R    else
    Image1-&gticture-&gt;Bitmap-&gt;SaveToStream(pm);
* m5 A- A3 |- y/ ~      ClientDataSet1-&gt;CommandText="insert into student1 (name1,name2,pic) values ('1','1',:picture)";</P>
+ y# o/ ~" }- h8 X<>      ((TBlobField*)(ClientDataSet1-&gtarams-&gtaramByName("picture")))-&gt;LoadFromStream(pm);
        delete pm;
; P, x& a; R: b$ @' o5 X9 x* S        ClientDataSet1-&gt;Execute();
     }</P>
) A9 z7 a; S& F/ [+ y  `<>在运行期间出错误 </P>
  e4 g; t5 x% d<>rject project1.exe raised exception class
5 ]1 M- T- E5 N" O# j+ W1 E! WEAcessViolation with message ' Acess violation at address 40325fa4 in model
% p  _. p* Y: V; v0 B- ]' dbrtl60.bpl '  read of address 94636b84</P>
: T: d2 N0 v' k9 L) N" K) Z$ m<>请问大哥们改如何的改正</P>
<>谢谢！！</P>

ilikenba

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