In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TBarCode guardar imagen

Foro público de Xailer en español
User avatar
XeviCOMAS
Posts: 524
Joined: Sat Mar 12, 2011 8:16 pm

TBarCode guardar imagen

Postby XeviCOMAS » Mon Mar 25, 2019 11:59 am

Ya pregunte hace un tiempo sobre guardar la imagen, pero el tema es "casi" lo mismo, pero no lo mismo...

Resulta que estoy trabajando con TBarCode, y necesito guardar la imagen del código de barras.

Code: Select all

   WITH OBJECT oBarCod := TBarcode():Create( oForm )
   :nType := zbCODE128
   :cText := "1900123"
   oPicture := :GetPicture()
   oPicture:Save( "D:\MiCodigo.Bmp", 1 )
   END


Me guarda la imagen, pero SOLO DE 1 PIXEL de altura.
¿Como puedo guardar esa imagen, con un tamaño de más píxeles de altura.???
O con un formato que le pueda establecer el alto/ancho???

Me interesa NO VER ese código en pantalla, sinó que guardarlo sin mortrarlo.
Ya que mostrando esa imagen en un Bevel y luego salvando la imagen del Bevel si que consigo hacerlo... pero lo dicho, me interesa hacerlo sin mostrar en pantalla.

Gracias.
Un Saludo,
Xevi.
User avatar
jfgimenez
Site Admin
Posts: 5620
Joined: Mon Apr 06, 2015 8:48 pm
Contact:

Re: TBarCode guardar imagen

Postby jfgimenez » Mon Mar 25, 2019 8:42 pm

Xevi,

prueba a usar CreateThumbnail() o TPicture:MakeThumbnail() para escalar la imagen al tamaño que necesites
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info

Return to “Spanish”