我用流写入ACCESS数据库的图片怎样将他读出来？

Question

Tblobfield(FieldByName('Photo')).savetofile(afilename);
image1.picture.loadfromfile(afilename);

Answer 1

var
  m_jpegstream:tmemorystream;
begin
 if (datam.staff.FieldByName('photo') as tblobfield).asstring='' then
  begin
    exit;
  end
  else
  begin
    try
    try
      m_jpegStream:=TMemoryStream.Create;
      (datam.staff.fieldbyname('photo') as TBlobField).SaveToStream(m_JpegStream);
      m_JpegStream.Position:=0;
      photo.Picture.Graphic:=nil;
      photo.Picture.Graphic:=TJpegImage.Create;
      photo.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg
      end;
      m_JpegStream.Free;
    end;
  end;
end;

Answer 2

var
  m_jpegstream:tmemorystream;
begin
 if (tablename.FieldByName('photo') as tblobfield).asstring='' then
  begin
    exit;
  end
  else
  begin
    try
      m_jpegStream:=TMemoryStream.Create;
      (tablename.fieldbyname('photo') as TBlobField).SaveToStream(m_JpegStream);
      m_JpegStream.Position:=0;
      photo.Picture.Graphic:=nil;
      photo.Picture.Graphic:=TJpegImage.Create;
      photo.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg
    finally
      m_JpegStream.Free;
    end;
  end;
end;

Answer 3

如果我要读出bmp,jpg,gif等,应该怎么办哪？