TI在D7(免费版)中似乎不支持Jpeg？

Question

procedure TmainForm.FormCreate(Sender: TObject);
  var img : TImage;
      pic:TPicture;

begin
  pic := TPicture.create();
  pic.LoadFromFile('my_picture.jpg');
  img :=  Timage.create(Self);
  img.Picture := pic;
end;

...

"Project MyProect.exe raised exception class EInvalidGraphic 
with message 'Unknown picture extension (.jpg)'" 

而且,当然,在函数TPicturePropertyEditor.Execute()中它只处理.ICO和.BMP文件!

奇怪的是,如果我在设计时在表单上放置一个TImage并单击其Picture属性,则文件加载对话框会显示.JPG文件(如果我加载了文件,则会崩溃) - _NOTE_这是"免费供个人使用"许多年前用计算机发出的D7版本.

该怎么办？编码我自己的VCL组件？或者也许有人已经发明了那个(FOSS)车轮？

Answer 1

创建一个新项目,并写(例如)

procedure TForm1.FormCreate(Sender: TObject);
var
  img: TPicture;
begin
  img := TPicture.Create;
  img.LoadFromFile('C:\Users\Andreas Rejbrand\...\tiles55.jpg');
end;

这将生成"未知图片文件扩展名(.jpg)"错误.但是,如果您在uses子句中添加"Jpeg" ,那么它将起作用.