Delphi TImage似乎不支持D7中的Jpeg（免费版）？

果然，就在函数TPicturePropertyEditor.Execute（）中，它只处理.ICO和.BMP文件

奇怪的是，如果我在设计时在表单上放置一个TImage并单击它的Picture属性，那么文件加载对话框就会显示.JPG文件（如果加载一个文件就会崩溃）————————————————————————————————————————————————————————————————————————————————

---

怎么办？编码我自己的VCL组件？或者可能有人已经发明了（FOSS）轮子？

创建一个新项目，然后编写（例如）

---

这将生成“未知图片文件扩展名（.jpg）”错误。但是，如果您将“Jpeg”添加到

uses

子句中，那么它将起作用。

您不能使用TJPEG图像吗？噢！！（+1）为什么不把它作为一个答案发布呢？一个好主意。。。但是事实证明，这并不容易，因为我正在尝试制作一个组件，而TJpegImage并不是Tcomponent类的后代，但我正在开发它（因此，可能还没有将其作为答案发布，对不起）@mawg:14小时前被问到，这是一种非常流行的语言，但只有8个视图？你知道为什么吗？因为您没有指定“Delphi”标记。（仅指定“Delphi-7”并不能使问题在每个人都在看的地方可见：）+1实际上我考虑了Delphi标签，并决定（可能是错误的）这是因为我使用了“旧”和“免费”版本的Delphi。我希望在Delphi2010中支持Jpeg。我猜我猜错了。谢谢，噢！我猜是坏博兰。如果没有use子句，我甚至可以预览我的JPG，但是当我加载它时崩溃了。我想我将不得不接受他们的代码并进行扩展（动态地将Jpeg转换为BMP），谢谢你的回答！不，不坏，伯兰（换换口味）。IDE是使用JPEG支持编译的（使用JPEG），所以JPEG的东西在IDE中工作。你也需要这样做，以便JPEG也能在你的应用程序中使用。

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)'" 

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