image - .ico 文件的 TPicture 宽度和高度报告不正确 (Delphi 7)

Question

使用 Delphi 7。我有一个简单的例程成功加载 .bmp , .emf , .wmf , .ico和 .jpg文件(下面给出的代码)。我的问题是每个 .ico (图标)文件总是报告 TImage.TPicture.Width和 TImage.TPicture.Height作为“32”。所有图标都是 32 位的，里面有一个页面。实际大小无关紧要(我尝试过 16x16、32x32、64x64 和 128x128)。
如果我手动设置 TImage.Width和 TImage.Width根据我所知道的图标大小，图像显示得很好。所有其他文件类型正确报告大小。
为什么.ico会出现问题文件以及如何更正或解决问题。

procedure TfrmImageLoader.btnBrowseClick(Sender: TObject);
var
    openPictureDlg: TOpenPictureDialog;
    jpgImage: TJPEGImage;
    testWidth, testHeight: Integer;
begin
    // Browse for the image file
    openPictureDlg := TOpenPictureDialog.Create(Self);
    if (openPictureDlg.Execute) then
        begin
        // Check if file exists
        if (FileExists(openPictureDlg.FileName)) then
            begin
            // Load the image into out image component
            imgLoaded.Visible := False;
            if (IsJPEG(openPictureDlg.FileName)) then
                begin
                jpgImage := TJPEGImage.Create();
                jpgImage.LoadFromFile(openPictureDlg.FileName);
                imgLoaded.Picture.Assign(jpgImage);
                jpgImage.Free();
                end
            else
                begin
                imgLoaded.Picture.LoadFromFile(openPictureDlg.FileName);
                end;
                
            // Test width...here's the problem. Icons always report "32".
            testWidth := m_imgLoaded.Picture.Width;
            testHeight := m_imgLoaded.Picture.Height;
            m_imgLoaded.Visible := True;
            end
        else
            begin
            // File does not exist
            MessageDlg('File does not exist', mtWarning, [mbOK], 0);
            end;
        end;

    // Clean up
    openPictureDlg.Free();
end;

更新 1
作为测试，我将文件加载为 TIcon ，但结果是一样的。

ico: TIcon;
// ...
ico := TIcon.Create();
ico.LoadFromFile(openPictureDlg.FileName);
testWidth := ico.Width;   // Still 32, regardless of the actual size
testHeight := ico.Height;
ico.Free();

更新 2
请参阅已接受的答案。基本上有两种方法可以获得正确的大小(a)加载图标，分配给 TBitmap，并读取位图大小或(b)读取图标标题，字节 7 和 8 是宽度/高度。后者在我的测试中快了大约 20 倍，代码如下:

procedure GetTrueIconSize2(const cszIcon: String; var trueW: Integer; var trueH: Integer);
var
    fs: TFileStream;
    firstBytes: AnsiString;
begin
    // The size of image/vnd.microsoft.icon MIME files (Windows icon) is in the header
    // at bytes 7 & 8. A value of "0" means "256" (the largest icon size supported).
    fs := TFileStream.Create(cszIcon, fmOpenRead);
    try
        SetLength(firstBytes, 8);
        fs.Read(firstBytes[1], 8);
        trueW := Integer(firstBytes[7]);
        if (trueW = 0) then
            trueW := 256;

        trueH := Integer(firstBytes[8]);
        if (trueH  = 0) then
            trueH := 256;
    finally
        fs.Free();
    end;
end;

Answer 1

一种解决方法是自己解析 ICO 文件，这很简单:https://en.wikipedia.org/wiki/ICO_(file_format) - 这样您就可以轻松了解每个条目的尺寸。在最简单的情况下(只有一张图片)文件的前 6 个字节必须是 #0#0#1#0#1#0字节 7 和 8 是宽度和高度。