Código Delphi [-] var J: TJPEGImage; begin J:=TJPEGImage.Create; J.Assign(Image1.Picture); J.CompressionQuality:=25; //25% de calidad J.Compress; J.SaveToFile('C:\SeVeMedioBien.jpg'); J.Free;
var J: TJPEGImage; begin J:=TJPEGImage.Create; J.Assign(Image1.Picture); J.CompressionQuality:=25; //25% de calidad J.Compress; J.SaveToFile('C:\SeVeMedioBien.jpg'); J.Free;