delphi 读取bmp文件，然后存入数据库

Question

ImgBMP := TBitmap.Create;
        try
          ImgBMP.LoadFromFile(ImgName);
          ImgPhoto.Picture.Assign(ImgBMP);
          ImgBMP.FreeImage;
        finally
          ImgBMP.Free;
        end;imgphoto代表TImage，
imgName代表文件路径
 为什么总在ImgBMP.LoadFromFile(ImgName)这里报异常

Answer 1

ImgName是jpg的还是bmp的，jpg的要加jpeg单元

Answer 2

bmp的。jpeg的能存进去。现在就是打开bmp文件的时候，报错

Answer 3

要么是内存错误，要么是bitmap不合法

Answer 4

delphi 2007 下没有问题procedure TForm4.BitBtn1Click(Sender: TObject);
var
  ImgBMP : TBitmap;
begin
  ImgBMP := TBitmap.Create;
  try
    ImgBMP.LoadFromFile('D:\Backup\我的文档\My Pictures\5.bmp');
    Image1.Picture.Assign(ImgBMP);
    ImgBMP.FreeImage;
  finally
    ImgBMP.Free;
  end;
end;

Answer 5

windows单元和graphics单元都有个TBitmap，可能声明了windows单元的，创建了graphics单元的。

Answer 6

谢谢各位。真的是BMP图片不合法