एक जेपीईजी छवि को कैसे साफ़ करें?

Question

एक TJPEGImage छवि को कैसे साफ़ करें?

JPG.Width := 0 चाल काम नहीं करेगा। इसके अलावा मैं एक खाली बिटमैप (0x0 पिक्सल) बनाना नहीं चाहता हूं और इसे जेपीईजी को असाइन करना चाहता हूं।

Answer 1

आप कुछ इस तरह (interposed वर्ग संरक्षित तरीकों का उपयोग करने के लिए यहाँ प्रयोग किया जाता है) का उपयोग हो सकता है:

type 
    TJPEGImage = class(jpeg.TJPEGImage); 

implementation 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    JPEGImage: TJPEGImage; 
begin 
    JPEGImage := TJPEGImage.Create; 
    try 
    // this should recreate the internal bitmap 
    JPEGImage.NewBitmap; 
    // this should recreate the internal image stream 
    JPEGImage.NewImage; 
    // here the memory used by the image should be released 
    finally 
    JPEGImage.Free; 
    end; 
end; 

Answer 2

आप FreeAndNil का उपयोग करें और छवि खाली रखने के लिए नहीं करना चाहते हैं ...

Procedure EmptyJPG(jpg:TJpegImage); 
var 
j:TJpegImage; 
begin 
    j := TJpegImage.Create; 
    try 
    jpg.Assign(j); 
    finally 
    j.Free; 
    end; 
end; 

Answer 3

जगह TImage घटक

Image1 : Timage 
. 
. 
Image1.Picture.Graphic.Assign(nil);