Ver Mensaje Individual
  #1  
Antiguo 13-02-2008
avmm2004 avmm2004 is offline
Miembro
 
Registrado: jun 2006
Ubicación: Santa cruz de Tenerife, Islas Canarias
Posts: 500
Reputación: 18
avmm2004 Va por buen camino
convertir a pixels

Hola, necesito una pequeña ayuda.
Necesito obtener las medidas en pixels de una imagen jpg.
El código que tengo es el siguiente :

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  img : TJPEGImage;
  w,h : integer;
begin
  img := TJPEGImage.Create;
  img.LoadFromFile('c:\tmp\tito.jpg');
  h := img.Height;
  w := img.Width;

end;

Las variables h y w contienen el alto y el ancho pero en ¿ milimetros ? y lo necesito en pixels ya que tengo un componente que dándole las medidas del jpg en pixels me genera un .pdf.

No tengo el fuente del componente ese.

Y para mas rollo tengo que respetar las medidas originales del jpg que a su vez es el resultado de un escaneo de una imagen y tiene que guardar las proporciones.

Agradezco todas las ideas.
Llevo dos dias mirándolo y no caigo en la solución.
Seguro que es fácil pero el manejo de imágenes es algo que casi nunca he tocado.

¿ alguna brillante solución ?

Prometo devolver el favor.

Gracias
Responder Con Cita