整了几天了，显示jpg图片问题！！！我的数据库表中存的是jpg图片，用代码显示图片为什么错误？

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MS: TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  MyJPEG:=TJPEGImage.Create;
  ADOQuery1.Requery;
  try
    TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
    MS.Position:=0;
    MyJPEG.LoadFromStream(MS);
    DBImage1.Picture.Bitmap.Assign(MyJPEG);
  finally
    MS.Free;
    MyJPEG.Free;
  end;
end;end.

Answer 1

DBImage1好象是不能显示jpg的，换普通image控件

Answer 2

存到数据库
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;