delphi显示jpg、png、gif图片unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses jpeg, GIFImg, pngimage;{显示 jpg 图片}procedure TForm1.Button1Click(Sender: TObject);varjpg: TJPEGImage;beginjpg := TJPEGImage.Create;jpg.LoadFromFile('C:/Temp/Test.jpg');Canvas.Draw(0, 0, jpg);jpg.Free;end;{显示 png 图片}procedure TForm1.Button2Click(Sender: TObject);varpng: TPngImage;beginpng := TPngImage.Create;png.LoadFromFile('C:/Temp/Test.png');Canvas.Draw(0, 0, png);png.Free;end;{显示 gif 图片}procedure TForm1.Button3Click(Sender: TObject);vargif: TGIFImage;begingif := TGIFImage.Create;gif.LoadFromFile('C:/Temp/Test.gif');Canvas.Draw(0, 0, gif);gif.Free;end;{显示 gif 动画}procedure TForm1.Button4Click(Sender: TObject);vargif: TGIFImage;begingif := TGIFImage.Create;gif.LoadFromFile('C:/Temp/Test.gif');gif.Animate := True;with TImage.Create(Self) do beginParent := Self;Left := 0;Top := 0;Picture.Assign(gif);end;gif.Free;end;end.
