Foros Club Delphi - Resolución de una imagen

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Resolución de una imagen (https://www.clubdelphi.com/foros/showthread.php?t=56647)

Resolución de una imagen

Hola, alguien me podria indicar como averiguar la resolución de una imagen.

yo la manera que se es cargar la imagen a un timage
con la propiedadd autosize:true y despues con width y heihgt la puedes saver

Cita:

Empezado por icsoft (Mensaje 288653)

Hola, alguien me podria indicar como averiguar la resolución de una imagen.

Pues deberías dar un poco más de detalles, porque hay muchos tipos de resoluciones, ya sea de impresión y de tamaño, de todos modos te invito a que leas este hilo.

Saludos.

La resolución es la densidad de puntos, o píxeles, que tiene una imagen.

@
Dicho de otra manera: La resolución nos indica la cantidad de píxeles que hay en una determinada medida de longitud (una pulgada o un centímetro);
Así, si conocemos las dimensiones totales de la imagen, entonces podremos averiguar la cantidad de píxeles de la imagen; esto es la cantidad de unidades que componen, o construyen, la imagen.

La resolución de imagen se suele medir en píxeles por pulgada (ppi del inglés pixels per inch; ppp o píxeles por pulgada) y, raramente, en píxeles por centímetro.

También encontraremos la media de la resolución de imagen expresada en:
ppi (del inglés pixels per inch) o
ppp o píxeles por pulgada

Eso es lo que quiero averiguar.

Gracias.

Hola!! :)
Prueba con esto. Una vez asignada la imagen del fichero original al BLOB de la base de datos.

Código:

           Bd.TbArtFotoIMAGEN.LoadFromFile(OpenPictureDialog1.FileName);

           BS:= TMemoryStream.Create;

           jpeg:= TJPEGImage.Create;

           try

                              bd.TbArtFotoIMAGEN.SaveToStream(BS);

                              BS.Seek(0,soFromBeginning);

                              jpeg.LoadFromStream(BS);

                              showmessage('Resolucion: h: '+ inttostr(jpeg.height)+'  w:'+inttostr(jpeg.width));

           finally

                              BS.Free;

                              jpeg.Free;

           End;//Del try

Saludos!!