delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法

[delphi] view plain copy

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var  
3.   jpg: TJPEGImage; // 要use Jpeg单元  
4. begin  
5.   // 显示jpg大图片的方式  
6.   jpg := TJPEGImage.Create;  
7.   jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');  
8.   Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的  
9.   jpg.Free;  
10.   
11. end;  
12.   
13. procedure TForm1.Button2Click(Sender: TObject);  
14. begin  
15.   // 加载24位高清BMP图片（小、大都能成立）  
16.   Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + '\pic24位-大.bmp');  
17. end;  
18.   
19. procedure TForm1.Button3Click(Sender: TObject);  
20. var  
21.   png: tpngimage;  
22. begin  
23.   png := tpngimage.Create;  
24.   png.LoadFromFile(getcurrentdir() + '\pic.png');  
25.   Image1.Picture.Bitmap.Assign(png);  
26.   png.Free;  
27. end;  
28.   
29. procedure TForm1.Button4Click(Sender: TObject);  
30. var  
31.   gif: tgifimage;  
32. begin  
33.   gif := tgifimage.Create;  
34.   gif.LoadFromFile(getcurrentdir() + '\pic.png');  
35.   Image1.Picture.Bitmap.Assign(gif);  
36.   gif.Free;  
37. end;