在 Delphi 7 中处理 CMYK jpeg 文件

我正在尝试访问存储为 Jpeg 文件的文件，是否有一种简单的方法可以在不损失性能的情况下显示这些图像文件？

您可以使用 TJPEGImage 实例加载 JPeg 文件，然后将其分配给 TBitmap 进行显示。您可以在单位 jpeg 中找到 TJPEGImage。

jpeg := TJPEGImage.Create;
jpeg.LoadFromFile('filename.jpg');
bitm := TBitmap.Create;
bitm.Assign(jpeg); 

Image1.Height := bitm.Height;
Image1.Width := bitm.Width;
Image1.Canvas.Draw(0, 0, bitm);

或者，这也应该有效：

bitm := TBitmap.Create;
bitm.Assign('filename.jpg'); 

Image1.Height := bitm.Height;
Image1.Width := bitm.Width;
Image1.Canvas.Draw(0, 0, bitm);