FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
TJpegImage u otro
Hola al foro!
estoy intentado hacer un programa para redimensionar el tamaño de un jpg. He probado con el siguiente código de la web q3.nu Pero ocupa demasiado y la resolución es pésima. Sabeis de algún objeto u otra forma de hacerlo. Gracias DAly var registro:TSearchRec; i:byte; bmp: TBitmap; jp: TJpegImage; begin if (findfirst(path + '\*.jpg',(faAnyFile ),registro))=0 then begin if not DirectoryExists(path+'\n') then CreateDir(path+'\n\p'); i:=1; repeat jpg := TJpegImage.Create; jpg.Loadfromfile(path+'\'+registro.Name); bmp := TBitmap.Create; bmp.Width:=strtoint(EditAncho.Text); bmp.Height:=(jpg.Height * strtoint(EditAncho.text)) div jpg.Width; bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg); jpg.Assign(bmp); jpg.SaveToFile(path+'\n\'+inttostr(i) + '.jpg'); bmp.Free; jpg.Free; i:=i+1; until findnext (registro)<>0 end; |
#2
|
|||
|
|||
Quizá te sirva un componente que tengo en mi página personal (TSaveImage) en http://joul.webcindario.com
|
#3
|
|||
|
|||
Junto con delphi viene un ejemplo que quiza pueda servirte, está en:
C:\Archivos de programa\Borland\Delphi5\Help\Examples\Jpeg Saludos Juan Pedro. |
|
|
|