Ver Mensaje Individual
  #1  
Antiguo 18-02-2005
Raze Raze is offline
Registrado
 
Registrado: feb 2005
Posts: 9
Reputación: 0
Raze Va por buen camino
Compresion de un jpg

estoy intentando comprimir un jpg con ayuda de TJpegImage y no consigo resultados. El código, compilado en Delphi 6 es el siguiente

fotografia := TJPegImage.Create;
fotografia.LoadFromfile('c:\sincomprimir.jpg);
fotografia.CompressionQuality := 30;
fotografia.Compress;
fotografia.SaveToFile('c:\comprimido.jpg);
fotografia.Free;

al ejecutarlo, el fichero comprimido.jpg ocupa 0 kb. Si prescindo de la orden compress lo crea bien, pero del mismo tamaño del anterior.

¿¿que estoy haciendo mal??
Responder Con Cita