无需解码图像即可获取 JPEG 分辨率

发布于 2024-09-28 09:38:54 字数 993 浏览 7 评论 0原文

我试图在不解码文件的情况下获取 JPEG 图像的分辨率。我从互联网上获得了几个样本，但没有一个可以正常工作。似乎是这样，因为许多 JPEG 文件不是标准的，尽管任何图形应用程序（Irfan、PSP、Firefox 等）都可以打开它们。

JPEG 的标头应该是：

typedef struct _JFIFHeader
{
  BYTE SOI[2];          /* 00h  Start of Image Marker     */
  BYTE APP0[2];         /* 02h  Application Use Marker    */
  BYTE Length[2];       /* 04h  Length of APP0 Field      */
  BYTE Identifier[5];   /* 06h  "JFIF" (zero terminated) Id String */
  BYTE Version[2];      /* 07h  JFIF Format Revision      */
  BYTE Units;           /* 09h  Units used for Resolution */
  BYTE Xdensity[2];     /* 0Ah  Horizontal Resolution     */
  BYTE Ydensity[2];     /* 0Ch  Vertical Resolution       */
  BYTE XThumbnail;      /* 0Eh  Horizontal Pixel Count    */
  BYTE YThumbnail;      /* 0Fh  Vertical Pixel Count      */
} JFIFHEAD;

但是，当我查看其中一个非标准文件时，X 密度和 Y 密度字段是错误的。但同样，所有图形应用程序都可以读取这个非标准文件。

有谁知道一段可以实际读取所有 JPEG 文件的 Delphi 代码吗？

德尔福 7、Win 7 32 位

原文

I am trying to get the resolution of a JPEG image without decoding the file. I got several samples from internet but none is working properly. It seems to be this way because many JPEG files are not standard, though any graphic application (Irfan, PSP, Firefox etc) can open them.

The header of a JPEG was supposed to be:

typedef struct _JFIFHeader
{
  BYTE SOI[2];          /* 00h  Start of Image Marker     */
  BYTE APP0[2];         /* 02h  Application Use Marker    */
  BYTE Length[2];       /* 04h  Length of APP0 Field      */
  BYTE Identifier[5];   /* 06h  "JFIF" (zero terminated) Id String */
  BYTE Version[2];      /* 07h  JFIF Format Revision      */
  BYTE Units;           /* 09h  Units used for Resolution */
  BYTE Xdensity[2];     /* 0Ah  Horizontal Resolution     */
  BYTE Ydensity[2];     /* 0Ch  Vertical Resolution       */
  BYTE XThumbnail;      /* 0Eh  Horizontal Pixel Count    */
  BYTE YThumbnail;      /* 0Fh  Vertical Pixel Count      */
} JFIFHEAD;

However, when I looked into one of those non-standard files, the Xdensity and Ydensity fields were wrong. But again, all graphic applications can read this non-standard file.

Does anybody knows a piece of Delphi code that can actually read all JPEG files?

Delphi 7, Win 7 32 bit

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

无边思念无边月 2024-10-05 09:38:54

我不知道所有 JPEG 文件，但您需要处理 JPEG 的两种常见文件格式。由于 JPEG 是一种压缩方法而不是文件格式，因此全世界已经开发了几种在文件中存储 JPEG 图像数据的方法。您最有可能遇到的两个是 JFIF 和 EXIF。上面的代码涵盖了 JFIF，但不处理 EXIF。这两者在很大程度上不兼容，但都是 JPEG，因此您需要检测并处理是否使用标头信息，因为它们是不同的。

以分辨率为例。 EXIF 的字段是x 分辨率 和y 分辨率，而不是X/Y 密度方法。

我会：

阅读一下这两种格式（JFIF 和 EXIF）。我发现
维基百科是一个很好的起点
在此参考（对于过去的一些
我做过的项目），但大多数
可能有一些关于这方面的重要信息
也是主题。
JFIF：
http://en.wikipedia.org/wiki/JPEG_File_Interchange_Format
EXIF:
http://en.wikipedia.org/wiki/Exif
编写代码来检测使用起始标头格式化
独立处理每种格式
包装整个内容，以便您可以将 JPEG 扔给它并得到
密度。这也将为您提供一个很好的地方来扔其他帮助代码来处理 JPEG 处理的“有趣”世界

回复收藏 0 原文

鞋纸虽美，但不合脚ㄋ〞 2024-10-05 09:38:54

以下是一些可以帮助您获取所需数据的代码：

function GetJpegSize(jpeg: TMemoryStream; out width, height, BitDepth: integer): boolean;
var n: integer;
    b: byte;
    w: Word;
begin
  result := false;
  n := jpeg.Size-8;
  jpeg.Position := 0;
  if n<=0 then
    exit;
  jpeg.Read(w,2);
  if w<>$D8FF then
    exit; // invalid format
  jpeg.Read(b,1);
  while (jpeg.Position<n) and (b=$FF) do begin
    jpeg.Read(b,1);
    case b of
      $C0..$C3: begin
        jpeg.Seek(3,soFromCurrent);
        jpeg.Read(w,2);
        height := swap(w);
        jpeg.Read(w,2);
        width := swap(w);
        jpeg.Read(b,1);
        BitDepth := b*8;
        Result := true; // JPEG format OK
        exit;
      end;
      $FF:
        jpeg.Read(b,1);
      $D0..$D9, $01: begin
        jpeg.Seek(1,soFromCurrent);
        jpeg.Read(b,1);
      end;
      else begin
        jpeg.Read(w,2);
        jpeg.Seek(swap(w)-2, soFromCurrent);
        jpeg.Read(b,1);
      end;
    end;
  end;
end;

Here is some code which could help you get the data you want:

function GetJpegSize(jpeg: TMemoryStream; out width, height, BitDepth: integer): boolean;
var n: integer;
    b: byte;
    w: Word;
begin
  result := false;
  n := jpeg.Size-8;
  jpeg.Position := 0;
  if n<=0 then
    exit;
  jpeg.Read(w,2);
  if w<>$D8FF then
    exit; // invalid format
  jpeg.Read(b,1);
  while (jpeg.Position<n) and (b=$FF) do begin
    jpeg.Read(b,1);
    case b of
      $C0..$C3: begin
        jpeg.Seek(3,soFromCurrent);
        jpeg.Read(w,2);
        height := swap(w);
        jpeg.Read(w,2);
        width := swap(w);
        jpeg.Read(b,1);
        BitDepth := b*8;
        Result := true; // JPEG format OK
        exit;
      end;
      $FF:
        jpeg.Read(b,1);
      $D0..$D9, $01: begin
        jpeg.Seek(1,soFromCurrent);
        jpeg.Read(b,1);
      end;
      else begin
        jpeg.Read(w,2);
        jpeg.Seek(swap(w)-2, soFromCurrent);
        jpeg.Read(b,1);
      end;
    end;
  end;
end;

回复收藏 0 原文

闻呓 2024-10-05 09:38:54

JPEG 文件头的 Units、X 密度 和 Y 密度 成员指定用于描述物理点密度的测量单位。文件被打印。

如果单位为1，X密度和Y密度为每英寸点数。
如果单位为2，X密度和Y密度为每厘米的点数。

要点是，存储在图像文件中的点分辨率（缩放后的打印分辨率）在屏幕上并不重要。因此，Windows 程序将始终在屏幕上为任何文件显示 96 逻辑 ppi。请注意，某些应用程序更喜欢使用 72 逻辑 ppi 在屏幕上显示图片，例如 Adobe 应用程序。

ACDSee、Adobe Photoshop、CorelDRAW 等图形应用程序在屏幕上显示 JPG 文件时会忽略单位、X密度和Y密度成员，但图形应用程序在打印 JPG 文件时会考虑这些成员的值（如果存在）。如果 JPG 文件没有单位、X密度和Y密度成员，图形应用程序将使用其自定义默认值（通常为 150 dpi）来打印 JPG 文件。

那么，对于一个可以读取所有JPEG头文件的Delphi代码的问题，答案很简单，读取JPG文件头信息即可；如果文件中不存在可选成员，则只需忽略可选成员或告诉最终用户当前未在文件中指定它们。