如何清除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);