कैसे एक TImage

Question

मैं डेल्फी 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; 

जब मैं यह कोड चलाता हूं तो मुझे एवी मिलता है। क्या कोई मुझे बता सकता है कि मैं क्या गलत कर रहा हूं?

धन्यवाद।

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;