FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
¿Como cambiar el tamaño a una imagen?
BUenos dìas
¿Como puedo cambiar el tamaño de una imagen antes de que el usuario la pretenda guardar en un campo blob? Gracias.
__________________
"Los unicos que no se equivocan son aquellos que no intentan hacer algo." Iván Caballero Cano... ivanhalen77@gmail.com |
#2
|
||||
|
||||
BUeno aqui encontre esto:
es una funcion que recibe una imagen jpg y luego la guarda en el disco duro ya con el tamaño que se especifico. Recibe el nombre de la imagen con todo y ruta y luego donde va a quedar y con que nombre, y el alto y ancho. function resizeImage(sInImage, sOutImage: string; iHeight, iWidth: integer): boolean; var JpgImg : TJpegImage; BmpImg : TBitmap; Rectangle: TRect; begin try JpgImg := TJpegImage.Create; BmpImg := TBitmap.Create; JpgImg.LoadFromFile(sInImage); Rectangle := Rect(0, 0, iWidth, iHeight); with BmpImg do begin Width := iWidth; Height := iHeight; Canvas.StretchDraw(Rectangle, JpgImg); end; finally JpgImg.Assign(BmpImg); JpgImg.SaveToFile(sOutImage); JpgImg.Free; BmpImg.Free; end; Result := True; end;
__________________
"Los unicos que no se equivocan son aquellos que no intentan hacer algo." Iván Caballero Cano... ivanhalen77@gmail.com |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como saber y cambiar el tamaño a una imagen | Negriz | C++ Builder | 10 | 09-06-2008 00:00:21 |
Como redimensionar una imagen al tamaño de un TImage??? | vejerf | Gráficos | 6 | 22-11-2007 01:41:37 |
Cambiar tamaño de una imagen antes de guardar en una bd | chux | Gráficos | 6 | 28-11-2006 11:58:58 |
Export. Excell, como cambiar tamaño letra ? | martita | Varios | 1 | 11-11-2005 19:39:39 |
Cambiar el tamaño de una imagen | inter_mercadeo | Gráficos | 2 | 25-02-2005 17:43:54 |
|