用这个函数来读取:
procedure TForm1.GetPicture(pos:string;TempQuery: TADOQuery);
var
  MS_JpegStream:TMemoryStream;
begin
  try
    MS_JpegStream:=TMemoryStream.Create;
    with Query do
      begin
        close;
        sql.clear;
        sql.Add('select image from pic where pos=:pos');
        Parameters.ParamByName('pos').value:=pos;
        Open;
      end;
    if tempquery.FieldByName('image').isnull then
      begin
        image1.Picture.Graphic:=nil;
      end
    else
      begin
         (tempQuery.FieldByName('image') as tblobfield).savetostream(MS_JpegStream);
         image1.Picture.Graphic:=nil;
         image1.Picture.Graphic:=TjpegImage.Create//这里好像有问题??
         MS_JpegStream.Position:=0;
         image1.Picture.Graphic.LoadFromStream(MS_JpegStream);
      end;  finally
    MS_JpegStream.Free;
  end;
end;
调用: getpicture(id.text,Query);问题是:有的图片能正常显示在image1控件上,但有一部分图片不能正常显示,有如下提示:“jpeg error #41”,什么原因??图片都是.jpg 和 .bmp的。