实在是没办法啦,只能来这问啦,是个异常错误怎么解决

[feiyushenme]

win8.1 + delphi2010
问题看似简单，困扰了我一天，却找不到解决办法，加载gif也是一样。

[满面尘，鬓如霜，何处话凄凉]

uses jpeg;

[feiyushenme]

请问哪GIF格式的怎么办啊

[Delphi小叮当]

引用jpg单元

[Delphi小叮当]

引用 2 楼 feiyushenme 的回复:

请问哪GIF格式的怎么办啊

引用gif单元，网上下一个gif的单元 然后引用

[feiyushenme]

这个怎么办呢

[feiyushenme]

急呀，，我必须要用Tpicture才行

[fhfanxin]

一样啊 uses jpeg, GIFImg, pngimage; delphi2010应该有这三个的单元了 自己根据文件后缀名，自己写一个就行了 结贴吧

[fhfanxin]

Assign

[lyhoo163]

procedure TForm1.Button4Click(Sender: TObject);
var JPG:TJPEGImage;
    Bmp: TBitmap;
    PIC:TPicture;
begin
  JPG:=TJPEGImage.Create;
  Bmp:=TBitmap.Create;
  PIC:=tpicture.Create;
  try
    JPG.LoadFromFile('D:\1.jpg');
    BMP.Assign(JPG);
    PIC.Bitmap.Assign(BMP);
    Image1.Picture.Assign(PIC);   //测试有效 可见图像
  finally;
    JPG.Free;
    Bmp.Free;
    PIC.Free;
  end;
end;

PIC是能读取JPG格式文件的，要通过JPG和BMP过渡一下，即可。 代码中加入 Uses Graphics,jpeg;

[feiyushenme]

回楼上这位大哥现在加载gif怎么办呢

[lyhoo163]

道理是一样的，自己试一下吧。