如何清除JPEG圖像？

Question

如何清除TJPEGImage圖像？

該JPG.Width := 0技巧將無法正常工作。 另外，我不想創建一個空的位圖（0x0像素），並將其分配給jpeg。

Answer 1

您可以使用這樣的事情（插入類在這裏用來訪問受保護的方法）：

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);