delphi 将数组的字节转换为位图

Question

如何使用delphi 7将数组的字节转换为tbitmap，数组包含内存中的png头。

bits[0]:= $9E;
bits[1]:= $20;
bits[2]:= $00;
bits[3]:= $00;
bits[4]:= $70;
bits[5]:= $AD;
bits[6]:= $BD;
bits[7]:= $1A;

我正在尝试使用 tmemorystream 将数组存储到位图中，并使用来自 Gustav Daud 的 PNGImage 来分配位图，但不是运气。

uses .., PNGImage;

procedure TForm1.Button1Click(Sender: TObject);
var
  png      : TPNGObject;
  stream   : TMemoryStream;
  bits     : array[0..7] of byte;
begin
  bits[0]:= $9E;
  bits[1]:= $20;
  bits[2]:= $00;
  bits[3]:= $00;
  bits[4]:= $B8;
  bits[5]:= $EE;
  bits[6]:= $C4;
  bits[7]:= $1A;

  png:= TPNGObject.Create;
  try
    stream:= TMemoryStream.Create;
    try
      stream.Write(bits[0], sizeOf(bits));
      stream.Position:= 0;

      png.LoadFromStream(stream);
    finally
      stream.Free;
      JvImage1.Picture.Assign(png);
    end;
  finally
    png.Free;
  end;
end;

这给了我流错误，有没有关于将数组字节写入内存流的正确写法？

谢谢，

Answer 1

TJvImage.Picture 是标准的TPicture，这意味着它的Bitmap 属性是标准的TBitmap。您不能在 VCL 中将 PNG 图像加载到 TBitmap 中（您可以在 FireMonkey 中，但 Delphi 7 不支持）。您需要为PNG图像使用合适的第三方TGraphic派生类（Delphi 7本身不支持PNG，这是在更高版本中添加的），例如：

uses
  ..., PngImage;

var
  Png: TPngObject;
try
  Png := TPngObject;
  try
    stream := TMemoryStream.create;
    try
      stream.Write(bits[0], sizeof(bits));
      stream.Position:= 0;
      Png.LoadFromStream(stream);
    finally
      stream.Free;
    end;
    JvImage1.Picture.Assign(Png);
  finally
    Png.free;
  end;
end;

Delphi 7, load PNG to TImage

---

更新：但是，话虽如此，您显示的字节一开始就不是有效的 PNG 图形标头。 PNG 总是 以以下 8-byte signature 开头：

89 50 4E 47 0D 0A 1A 0A

这些字节也不代表任何 PNG data chunk header（以防您不小心跳过了 PNG 标头）。

事实上，您显示的字节似乎并不代表任何常用的图形格式。因此，您可能误解了您要检查的内存。