[[cHackAll]]

Empezado por avmm2004

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

Empezado por RTFM(F1)

Height property (TJPEGImage)

Indicates the vertical size (in pixels) of the jpeg image.

Delphi syntax:
property Height: Integer;

C++ syntax:
__property int Height = {read=GetHeight, write=SetHeight};

Description
Use Height to find the vertical size in pixels of the jpeg image.

PD: Si es el caso CONTRARIO revisa Twips.