在读取的时候报的
下面是代码
存储
procedure TForm1.Button1Click(Sender: TObject);
var
  myPicture:TPicture;
  strsql:string;
  jpgPic:TJPEGImage;
  mem: TMemoryStream;   //存储图片需要用到流技术
begin
  mem:=TMemoryStream.Create;
  myPicture:=TPicture.Create;
  if(OpenDialog.Execute()) then
  begin
   mem.LoadFromFile(OpenDialog.FileName);
   with qry do
   begin
     close;
     sql.Clear;
     sql.Add('select * from image');   //注意 如果connection对象在创建连接的时候如果选择的provider不//当会导致该语句不能执行。
     open;
     append;
     TBlobField(FieldByName('image')).LoadFromStream(mem);
     qry.Post;
   end;
  end;
  mypicture.Free;
  mem.Free;end;读取procedure TForm1.Button2Click(Sender: TObject);
var
  mem:TMemoryStream;
begin
// mem:=TMemoryStream.Create;
   with qry do
   begin
     close;
     sql.Clear;
     sql.Add('select * from image where id = 10');
     open;
     TBlobField(fieldbyname('image')).SaveToFile('c:\1.jpg');
     //mem.Position:=0;
     imgi.Picture.LoadFromFile('c:\1.jpg');   end;
   //mem.Free;
end;
请热心的朋友帮忙看看