Foros Club Delphi - convertir a pixels

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

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

- - convertir a pixels (https://www.clubdelphi.com/foros/showthread.php?t=53172)

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

Cita:

Empezado por avmm2004 (Mensaje 265391)

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;

:eek::confused:

Cita:

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.

Código Delphi [-]  h := img.Height;
  w := img.Width;

Devuelve las medidas en píxeles, como te dije en el otro mensaje...

Y como dice la ayuda del delphi:

Cita:

TPicture.Height Property
Specifies the vertical size (in pixels) of the graphic.
Description
Use Height to find the height of the graphic image contained in the picture object. Height is the native, unstretched, height of the picture.

Cita:

TPicture.Width Property
Specifies the horizontal size (in pixels) of the picture.
Description
Use Width to find the width of a graphic image. Width contains the native, unstretched, width of the picture.