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＆amp;单击其图片属性，然后文件加载对话框显示我.JPG文件（如果我加载一个崩溃崩溃） - _NOTE _ 这是用计算机赠送的D7的“免费供个人使用”版本mag多年前。

怎么办？编码我自己的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）”错误。但是，如果将“Jpeg”添加到uses子句中，那么它将起作用。

TI在D7（免费版）中似乎不支持Jpeg？

1 个答案: