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