[cincosoft]

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);