如何将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

TImage.Picture.Graphic属性为零，直到您将图形加载到Picture。

你问什么就可以实现如下：

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;