FW_BarCodeBmp() / FW_SaveImage() help please [Solved]

[bosibila]

Hello to all members,
I try to create QRcode with function FW_BarCodeBmp() and save it to JPG or PNG file but saved picture has black border around QRcode. Is there any way to disable border?
I modified "\fwh\samples\QRcode.prg" to "QRcode1.prg" to make simple example of my problem. In example I also use "oWnd:SayBarCode()" which works well.

Example #1

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA  // Important

function Main()

   local hBmp,cText    
   cText:="https://ancdefg.hij.hr/rn?ilz=7fc0d4da335dedcf569a4e365fc8cf62&datv=20201107_1036&izn=18,90"
   
   hBmp := FW_BarCodeBmp( cText, "QRCODE", 200, 200 )
   FW_SaveImage( hBmp, "name.png" )

return nil

Example #2

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA

//----------------------------------------------------------------------------//

function Main()

   local oWnd, cText, cPrg := cFileSetExt( ExeName(), "prg" )
   //cText    := MEMOREAD( cPrg )
   cText    := "https://ancdefg.hij.hr/rn?ilz=7fc0d4da335dedcf569a4e365fc8cf62&datv=20201107_1036&izn=18,90"

   DEFINE WINDOW oWnd TITLE cPrg FROM 0,0 to 500,200 pixel
   ACTIVATE WINDOW oWnd CENTERED ;
      ON INIT DrawCode(oWnd,cText) 
   
return nil

//----------------------------------------------------------------------------//

function DrawCode(oWnd,cText)

   local oImage, hBmp, hNew

   *
   *   Create QRcode with function FW_BarCodeBmp()
   * 
   hBmp := FW_BarCodeBmp( cText, "QRCODE", 500, 500 )
   FW_SaveImage( hBmp, "test1.png" )                                                // save
   @ 37,37 XIMAGE oImage SIZE 110,110 OF oWnd SOURCE "test1.png"                    // draw QRcode at top of window


   *
   * 
   * 
   oWnd:SayBarCode( cText, { 20,20,-20,-20 }, "QR-CODE" )                           // draw QRcode at center of window

   *
   *   Cut part of image ...
   * 
   hNew := FW_TransformBitmap( hBmp, { nil, nil, 0.5, 0.5 }, 1, 0 )                 // cut part of image
   FW_SaveImage( hNew, "test2.png" )                                                // save
   @ 317,37 XIMAGE oImage SIZE 110,110 OF oWnd SOURCE "test2.png"                   // draw QRcode at bottom of window

return nil

[Silvio.Falconi]

try

@ 317,37 XIMAGE oImage SIZE 110,110 OF oWnd SOURCE "test2.png" NOBORDER

[bosibila]

Thanks Silvio,
but I may not have described the problem in good way. My problem is not the draw QRcode on screen but the save to PNG/JPG file.
After you compile and start my example you can open with some external picture viewer "test1.png" and "test2.png" and see border on QRcode.
Picture in this topic is only to describe how does it look like in saved files.

Problem is in these two lines:
hBmp := FW_BarCodeBmp( cText, "QRCODE", 500, 500 )
FW_SaveImage( hBmp, "test1.png" )

[bosibila]

I found solution from Mr. Nages, works great. Here is working example without black border / background:

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA  // Important

function Main()

   local hBmp,cText    
   
   cText:="https://ancdefg.hij.hr/rn?ilz=7fc0d4da335dedcf569a4e365fc8cf62&datv=20201107_1036&izn=18,90"
   
   hBmp := FW_BarCodeBmp( cText, "QRCODE", 200, 200 )
   hBmp := bmp2alpha( hBmp )                                    // without this line QRcode has black frame/background ...
   
   FW_SaveImage( hBmp, "name.png" )

return nil

//-----------------------------------------------------//

function bmp2alpha( hBmp1 )

   local hBmp, oBmp

   oBmp  := GdiBmp():New()
   oBmp:CreateFromRes( hBmp1, 0 )
   oBmp:Conver24to32Alpha( .f. )
   hBmp  := oBmp:GetGDIHbitmap()
   oBmp:Destroy()
   DeleteObject( hBmp1 )

return hBmp