Cách tải hình ảnh png vào một TImage

Question

Tôi đang cố gắng tải hình ảnh png vào một TImage bằng Delphi XE4. Png bắt đầu trong luồng: Ví dụ:

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

Tôi nhận được AV khi chạy mã này. Bất cứ ai có thể cho tôi biết những gì tôi đang làm sai?

Cảm ơn.

Answer 1

Thuộc tính TImage.Picture.Graphic là không cho đến khi bạn tải đồ họa vào Picture.

gì bạn đang yêu cầu có thể đạt được như sau:

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;