25 replies to this topic

[newtron]

Buenas tardes.

 

Escafandra, gran trabajo, gracias.

 

Sé que este hilo es antiguo pero espero que alguien me pueda ayudar. El tema es que estoy intentando guardar la imagen en disco a partir del componente pero me la crea muy muy pequeña y no puedo usarla. ¿Alguien me podría decir de qué manera puedo guardarla en disco con el mismo tamaño que el componente?

 

Gracias y un saludo.

[egostar]

Buenas tardes.

 

Escafandra, gran trabajo, gracias.

 

Sé que este hilo es antiguo pero espero que alguien me pueda ayudar. El tema es que estoy intentando guardar la imagen en disco a partir del componente pero me la crea muy muy pequeña y no puedo usarla. ¿Alguien me podría decir de qué manera puedo guardarla en disco con el mismo tamaño que el componente?

 

Gracias y un saludo.

 

¿Que componente estás usando amigo Newtron?

 

Saludos

[escafandra]

Puedes crear un Bitmap del tamaño apropiado y copiar en él la imagen de esta manera:

delphi

function CreateStretchBitmap(QRCode: TQRCodeImage): TBitmap;
begin
  Result:= TBitmap.Create;
  Result.Height:= QRCode.Height;
  Result.Width := QRCode.Width;
  Result.Canvas.StretchDraw(QRCode.ClientRect, QRCode.Picture.Graphic);
end;

Esta función crea el Bitmap con la imagen del QR al mismo tamaño que el mostrado en el componente. A partir de él puedes guardar la imagen, copiarla al ClipBoard o lo que se te ocurra. No olvides destruir ese Bitmap cuando ya no lo necesites.

 

Ejemplo:

delphi

var
  Bitmap: TBitmap;
begin
  Bitmap:= CreateStretchBitmap(QRCodeImage1);
  Bitmap.SaveToFile('D:\QRImage1.bmp');
  Bitmap.Free;
end;

Saludos.

[Harry]

Muchas gracias.

 

Lo he usado en Delphi 5, con pocas adaptaciones, sin instalar en la paleta de componentes y ha funcionado a la primera por arte de magia.

 

Gracias.

[escafandra]

Muchas gracias.

 

Lo he usado en Delphi 5, con pocas adaptaciones, sin instalar en la paleta de componentes y ha funcionado a la primera por arte de magia.

 

Gracias.

Bienvenido a Delphiaccess. Me alegra de que te funcione a la primera.

 

Saludos.

[egostar]

Muchas gracias.

 

Lo he usado en Delphi 5, con pocas adaptaciones, sin instalar en la paleta de componentes y ha funcionado a la primera por arte de magia.

 

Gracias.

 

Bienvenido a delphiaccess Harry,

 

Que bien que hayas podido adaptarlo a una versión de Delphi anterior, 

 

Saludos