delphi - 在Delphi 7中处理CMYK jpeg文件

Question

我正在尝试访问存储为Jpeg文件的文件，是否有一种简单的方法来显示这些图像文件而不会造成性能损失？

Answer 1

您可以使用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);