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.