Tamaño de una imagen

[seduerey]

Me gustaría saber cómo cambiar el tamaño (manteniendo la proporción o no) de una imagen (jpg, gif, bmp...) guardada en disco.
También me gustaría saber si es posible abrir o previsualizar un .PSD (archivo de photoshop).
Gracias y un saludo

[Gydba]

No tengo una respuesta exacta, pero quizás te pueda ayudar visitar esta web:
http://homepages.borland.com/efg2lab...Processing.htm

Que tiene variada información, así como ejemplos en código fuente, sobre procesado de imágenes.

En cuanto a lo de los archivos Photoshop desde VB había manera de abrirlos, calculo que delphi no se debe quedar atrás.

[delphi.com.ar]

Te recomiendo buscar información sobre el método StretchDraw del TCanvas, o funciones como StretchBlt...

Saludos!

[cht666cht]

yo lo hago asi:

Bitmap1 := TBitmap.Create;
Bitmap2 := TBitmap.Create;
try
Bitmap1.LoadFromFile('c:\imagen.bmp');
Bitmap2.PixelFormat := Bitmap1.PixelFormat;
Bitmap2.Width := 200; // nuevo tamaño
Bitmap2.Height := 200;
Bitmap2.Canvas.StretchDraw(0, 0, Bitmap2.Width, Bitmap2.Height, Bitmap1);
Bitmap2.SaveToFile('c:\imagencambiada.bmp');
finally
Bitmap2.Free;
Bitmap1.Free;
end;



y si es un jpg:

JPG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
JPG.LoadFromFile('c:\imagen.jpg');
Bitmap.PixelFormat := pf24Bit;
Bitmap.Width := 200; // nuevo tamaño
Bitmap.Height := 200;
Bitmap.Canvas.StretchDraw(0, 0, Bitmap.Width, Bitmap.Height, JPG);
JPG.Assign(Bitmap);
JPG.SaveToFile('c:\imagencambiada.jpg');
finally
Bitmap.Free;
JPG.Free;
end;

lo hago asi porque no puedes acceder directamente al canvas de un jpegimage, pero si que puedes hacerlo con un bitmap, y luego con el assign lo conviertes a jpg.

para usar el tjpegimage añade la unit JPEG al uses.

espero que te sirva, bueno, que te funcione, pq lo he escrito de memoria

[bububin]

Empezado por cht666cht

yo lo hago asi:

Bitmap1 := TBitmap.Create;
Bitmap2 := TBitmap.Create;
try
Bitmap1.LoadFromFile('c:\imagen.bmp');
Bitmap2.PixelFormat := Bitmap1.PixelFormat;
Bitmap2.Width := 200; // nuevo tamaño
Bitmap2.Height := 200;
Bitmap2.Canvas.StretchDraw(0, 0, Bitmap2.Width, Bitmap2.Height, Bitmap1);
Bitmap2.SaveToFile('c:\imagencambiada.bmp');
finally
Bitmap2.Free;
Bitmap1.Free;
end;



y si es un jpg:

JPG := TJPEGImage.Create;
Bitmap := TBitmap.Create;
try
JPG.LoadFromFile('c:\imagen.jpg');
Bitmap.PixelFormat := pf24Bit;
Bitmap.Width := 200; // nuevo tamaño
Bitmap.Height := 200;
Bitmap.Canvas.StretchDraw(0, 0, Bitmap.Width, Bitmap.Height, JPG);
JPG.Assign(Bitmap);
JPG.SaveToFile('c:\imagencambiada.jpg');
finally
Bitmap.Free;
JPG.Free;
end;

lo hago asi porque no puedes acceder directamente al canvas de un jpegimage, pero si que puedes hacerlo con un bitmap, y luego con el assign lo conviertes a jpg.

para usar el tjpegimage añade la unit JPEG al uses.

espero que te sirva, bueno, que te funcione, pq lo he escrito de memoria

Como se puede añadir en el uses el JPEG?. A mi me da error y me dice que no encuentra el jpeg.dcuil.. QUe puede pasar?

[delphi.com.ar]

Empezado por bububin

Como se puede añadir en el uses el JPEG?. A mi me da error y me dice que no encuentra el jpeg.dcuil.. QUe puede pasar?

¿Cuál es el error que te da? File Not Found jpeg.dcu
¿Tienes la dcu en $(delphi)\Lib?

Saludos!