delphi - 如何将 png 图像加载到 TImage 中

Question

我正在尝试使用 Delphi XE4 将 png 图像加载到 TImage 中。 png 在流中开始:例如

  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile('c:\file.png');
    Stream.Position := 0;
    Image1.Picture.Graphic.LoadFromStream(Stream);
  finally
    Stream.Free;
  end; 

当我运行此代码时，我得到了 AV。谁能告诉我我做错了什么？

谢谢。

Answer 1

在将图形加载到 Picture 中之前，TImage.Picture.Graphic 属性为零。

您所要求的可以通过以下方式实现:

  uses pngimage;

  Stream := TMemoryStream.Create;
  try
    // obtain png image, load from file or other..
    ....
    Image := TPngImage.Create;
    try
      Stream.Position := 0;
      Image.LoadFromStream(Stream);
      Image1.Picture.Graphic := Image;
    finally
      Image.Free;
    end;
  finally
    Stream.Free;
  end;