0

TImageDelphi 的控件中不显示某些具有以下格式的 JPEG 文件。

并将速度与我现有的灰度代码进行比较。他们使用的扫描线过程似乎比我目前使用的扫描线过程要快一些。对于使用图像的人来说，这是一个很好的起点。当我遇到问题并注意到文件大小时，我添加了标准的 jpeg 转换代码和滚动框。我相信这个问题是有效的，但我改写了它。如果我找到另一个更容易找到问题的相关答案，我会拉这个帖子。如果没有，我会离开它。

例如，来自尼康数码相机。

尺寸：宽度 5184 x 高度 3888
垂直分辨率：300 dpi
颜色表示：sRGB
压缩位/像素：2
位深度：24
EXIF 版本：0230
属性：N

从三星手机相机：

尺寸：宽 4128 x 高 2322
水平和垂直分辨率：72 dpi
颜色表示：sRGB
分辨率单位：2
压缩位/像素：[空白]
位深：24
EXIF 版本：0220
属性：A

Adobe Photoshop 的灰度文件：

尺寸：宽度 1800 x 高度 3600
水平和垂直分辨率：300 dpi
颜色表示：未校准
压缩位/像素：[空白]
位深度：8
EXIF 版本：[空白]
属性：A

与最后一个格式完全相同但尺寸小得多的文件可以工作。

一个工作文件的尺寸：宽 570 x 高 248

具有 24 位深度、较小尺寸且没有分辨率或压缩设置的文件也可以正常工作。

当我尝试使用下面的代码显示图片时，失败文件上的图片总是空白，并且没有返回错误。它与许多其他文件完美jpg配合bmp。

sRGB 格式的文件是否需要转换？控件可以在屏幕上显示的内容是否有大小限制？如果是这样，有没有办法显示更大的文件？

procedure TForm1.btnBrowseClick(Sender: TObject);
var
  bmp: TBitmap;
  c2g: TColor2Grayscale;
  ba: TBitmapAccess;
  sw: TStopwatch;
  jpg : TJPEGImage; // jpeg does not show 32-bit support in Delphi, only 24 and 8.
  path, name, ext : string;
  alreadyGray : boolean;
begin
  bmp := TBitmap.Create;
  jpg := TJPEGImage.Create;

  OpenPicturedialog1.InitialDir := FindImageFolder(true);
  if OpenPictureDialog1.Execute() then
  try
    name := OpenPictureDialog1.FileName;
    path := ExtractFilePath(name);
    ext := Lowercase ( ExtractFileExt(name) );

    alreadyGray := false;

    try
      if ( ext = '.jpg' ) or ( ext = '.jpeg' ) then
      begin
        jpg.LoadFromFile(name);
        bmp.Assign(jpg);
        alreadyGray := jpg.Grayscale;
      end
      else
        bmp.LoadFromFile( name );
    except
      on err: Exception do
      begin
        ShowMessage(err.Message);
        Exit;
      end;
    end;

    if bmp.PixelFormat = pfDevice then
      bmp.PixelFormat := pf32bit;

    Image1.Picture.Assign(bmp);

    if alreadyGray then
    begin
      Image2.Picture.Assign(bmp);
      Exit;
    end;

  finally
    jpg.Free;
    bmp.Free;
  end;
end;
4

1 回答 1

2

由于加载 JPEG 图像时没有出现错误，我怀疑问题可能出在TJPEGImage从TBitmap. 除非您要处理图像像素，否则根本不需要转换，您可以将原始文件TJPEGImage直接分配给TImage. VCL 的TPicture类使用派生TGraphic类，因此它可以以其本机格式显示图像，您应该利用该功能，例如：

procedure TForm1.btnBrowseClick(Sender: TObject);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  OpenPicturedialog1.InitialDir := FindImageFolder(true);
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

    if Image1.Picture.Graphic is TJPEGImage then
    begin
      if TJPEGImage(Image1.Picture.Graphic).Grayscale then
      begin
        Image2.Picture.Assign(Image1.Picture.Graphic);
      end else
      begin
        jpg := TJPEGImage.Create;
        try
          jpg.Assign(Image1.Picture.Graphic);
          jpg.Grayscale := True;
          Image2.Picture.Assign(jpg);
        finally
          jpg.Free;
        end;
      end;
    end else
    begin
      bmp := TBitmap.Create;
      try
        bmp.PixelFormat := pf32bit;
        bmp.Assign(Image1.Picture.Graphic);
        ...
        Image2.Picture.Assign(bmp);
      finally
        bmp.Free;
      end;
    end;
  end;
end;

更新：我在 Windows 7 上的 XE2 中做了一些测试，并看到了同样的问题。

如果我按原样加载 JPG，则仅当or属性为 TrueTImage.Picture.LoadFromFile()时它们才能正常显示。如果它们都设置为 False（默认值），则图像显示为空白。TImage.StretchTImage.Proportional

如果我首先将 JPG 加载到 JPGTJPEGImage中，然后将其分配给，则转换本身可以正常工作（通过将 保存到文件来TBitmap证明），并且仅当或为 True 时，位图才能正常显示，否则显示为空白。TBitmap.bmp StretchProportional

因此，作为另一项测试，我尝试使用，在其事件中TPaintBox手动绘制图像。OnPaint如果我用来TCanvas.Draw()按原样绘制完整尺寸的图像，它们会显示为空。如果我使用TCanvas.StretchDraw()将图像放入“PaintBox”的客户区域，它们会显示得很好。

因此，我认为TCanvas在尝试以如此大的尺寸显示图像时可能会遇到内存问题。它与正在使用的特定类型的 JPG 无关（加载正常）。

更新：别管我上面说的。我看到所提供的 JPG 只是具有非常大的 DPI，并且恰好在它们的左上角都是白色的。如果TImage/TPaintBox的尺寸较大以进行补偿，我现在可以看到完整尺寸的图像（如果将TImage其放置在设置为 True 的 a 上会更容易查看）TScrollBox。TImage.AutoSize这可以解释为什么拉伸/比例绘图起作用，通过TImage在需要时拉伸图像以匹配 的尺寸。

于 2017-01-17T21:09:16.700 回答