[cincosoft]

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.