![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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?? |
|
|
![]() |
|