Page 1 of 1

TBarCode guardar imagen

Posted: Mon Mar 25, 2019 11:59 am
by XeviCOMAS
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.

Re: TBarCode guardar imagen

Posted: Mon Mar 25, 2019 8:42 pm
by jfgimenez
Xevi,

prueba a usar CreateThumbnail() o TPicture:MakeThumbnail() para escalar la imagen al tamaño que necesites