Error incompatibles types:'integer' and 'extended'
 

Hola,

Tengo el código:

Código Delphi [-]
procedure TQRClientes.AsignarLogo(ImagenJPG: TJPEGImage;
  corriente: TMemoryStream; nom_campo: string; QRImage: TQRImage);
Var
  AltoOriginal, AnchoOriginal: Integer;
begin
   ImagenJPG := TJPEGImage.Create;
   corriente := TMemoryStream.Create;

   DMCLIENTES.QREMPRESA.Close;
   DMCLIENTES.QREMPRESA.Open;

   try
     if not DMCLIENTES.QREMPRESA.FieldByName(nom_campo).IsNull then begin
       TGraphicField(DMCLIENTES.QREMPRESA.FieldByName(nom_campo)).SaveToStream(corriente);
       corriente.Seek(0,soFromBeginning);
       ImagenJPG.LoadFromStream(corriente);

       AltoOriginal := ImagenJPG.Height;
       AnchoOriginal := ImagenJPG.Width;

       ImagenJPG.Height := QRImage.Height;
       ImagenJPG.Width := (AnchoOriginal*ImagenJPG.Height)/AltoOriginal;

En la última linea me da el error:
incompatibles types:'integer' and 'extended'

Alguien me puede indicar como arreglarlo?

Muchas gracias.

me parece que altoordinal debes declararla de otro tipo no integer

Hola.

Lo que sucede que la propiedad Width de TJPEGImage es de tipo entero y le estas asignando un número flotante.

Deberías hacer:

Código Delphi [-]
  ...
   ImagenJPG.Width:= Trunc((AnchoOriginal*Img.Height)/AltoOriginal);
  ..

Saludos.

Error: "Cannot change the size of a JPEG image."
 

Hola otra vez,

Así no me da error de compilación pero al ejecutar me da el siguiente error:

"Cannot change the size of a JPEG image."

Alquien me puede como hacer para evitar esto?

Muchas gracias.

Código Delphi [-]
procedure TQRClientes.AsignarLogo(ImagenJPG: TJPEGImage;
  corriente: TMemoryStream; nom_campo: string; QRImage: TQRImage);
Var
  AltoOriginal, AnchoOriginal: Integer;
begin
   ImagenJPG := TJPEGImage.Create;
   corriente := TMemoryStream.Create;

   DMCLIENTES.QREMPRESA.Close;
   DMCLIENTES.QREMPRESA.Open;

   try
     if not DMCLIENTES.QREMPRESA.FieldByName(nom_campo).IsNull then begin
       TGraphicField(DMCLIENTES.QREMPRESA.FieldByName(nom_campo)).SaveToStream(corriente);
       corriente.Seek(0,soFromBeginning);
       ImagenJPG.LoadFromStream(corriente);

       AltoOriginal := ImagenJPG.Height;
       AnchoOriginal := ImagenJPG.Width;

       ImagenJPG.Height := QRImage.Height;
       ImagenJPG.Width := round((AnchoOriginal*ImagenJPG.Height)/AltoOriginal);

Hola cincosoft.

Es que no podes cambiar el valor del tamaño de la imágen almacenada, ImagenJPG (al menos no de este modo):

Código Delphi [-]
ImagenJPG.Width := round((AnchoOriginal*ImagenJPG.Height)/AltoOriginal);

Lo que sí podés hacer es cambiar el tamaño de visualización de la misma, QRImage:

Código Delphi [-]
QRImage.Width := round((AnchoOriginal*ImagenJPG.Height)/AltoOriginal);

Saludos.