Jak wyczyścić obraz jpeg?

Question

Jak wyczyścić obraz TJPEGImage?

Sztuczka JPG.Width := 0 nie zadziała. Nie chcę również tworzyć pustej bitmapy (0x0 pikseli) i przypisywać jej do jpeg.

Answer 1

Można użyć coś takiego (The umieszczoną klasa używany jest tutaj, aby uzyskać dostęp do chronionych metod):

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

Jeśli nie chcesz korzystać z używaniem FreeAndNIL i zachować obraz pusty ...

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

Answer 3

miejsce składnik Tshape na tle na komponent TImage

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