Saludos de nuevo foreros tengo un problema, lo que quiero es realizar es:
Poner una imagen en un Image8:TImage y un labelX y un Slidebar, en el cual al momento de mover el Slidebar tenga una posición es decir el valor de la calidad JPEG que se esté aplicando y al mismo tiempo que se refleje en el Image8 y en el LabelX ponerle el tamaño del archivo JPEG, pero pasa que no me funciona, a qué se deberá? según mi lógica debería ser así pero nada :S
El Image ya tiene cargada la imagen, este es mi código no sé alguien tuviera la bondad de ayudarme por favor
gracias
Código Delphi
[-]
var
valor:integer;
jpg:TJPEGImage;
Stream:TStream;
ImgBitmap: TImagingBitmap;
ImgData: TImageData;
begin
try
InitImage(ImgData);
Stream:=TMemoryStream.Create;
valor:=(100-CalidadJPEGSlide.Position);
CalidadJPEGSpin.Value:=valor;
fQualityJPEG:=CalidadJPEGSpin.Value;
jpg:=TJPEGImage.Create;
jpg.Assign(Image8.Picture.Graphic);
jpg.CompressionQuality:=fQualityJPEG;
jpg.compress;
jpg.SaveToStream(Stream);
stream.Position:=0;
if stream.Size >=1048576 then Label67.Caption:=FloatToStr((stream.Size)/1048576)+' MB' else Label67.Caption:=FloatToStr((stream.Size)/1024)+' KB';
finally
stream.Free;
jpg.Free;
end;