png画像をTImageに読み込む方法

Question

Delphi XE4でTImageにpng画像を読み込もうとしています。 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プロパティはnilです。

あなたのように実現することができるために求めている何は、次のとおりです。

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;