image问题

Question

Image1.Picture.LoadFromFile('D:\Main\iwtemp\backjpg.jpg');
运行时出现错误，但我如果先把IMAGE的PICTURE属性设置一下到JPG图片，无论是否取消了设置，都不会出现错误，不知道程序里该什么改，由于我可能要用到其他格式的图片，不能用下面的代码
var
  JPEGImage: TJPEGImage;
begin
  JPEGImage := TJPEGImage.Create;
  JPEGImage.LoadFromFile('D:\Main\iwtemp\backjpg.jpg');
  Image1.Picture.Assign(JPEGImage);
  JPEGImage.Free;
end;

Answer 1

var
  JPEGImage: TJPEGImage;
  bmp: TBitmap
  ------------
begin
  JPEGImage := TJPEGImage.Create;
  bmp := TTBitmap.Create;
  -----------------------
  JPEGImage.LoadFromFile('D:\Main\iwtemp\backjpg.jpg');
  bmp.Assign(JPEGImage);
  ---------------------- 
  Image1.Picture.Assign(bmp);
  --------------------------
  JPEGImage.Free;
  bmp.free;
end;

Answer 2

在uses部分加入Jpeg，以便自动注册图像类型。然后可直接使用Image1.Picture.LoadFromFile('D:\Main\iwtemp\backjpg.jpg');————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 3

TO  kl2000() 
*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf  那么多图片类型，肯定不能用你那种方法了
不知道 lxpbuaa(桂枝香在故国晚秋) 的行不行

Answer 4

lxpbuaa(桂枝香在故国晚秋) 强啊，受益非浅