Previously we have discussed how to generate QRcode with SAP standard functionality:

1. Generate QRcode with ABAP Webdynpro

2. Generate QRcode with ABAP Code plus Adobe form template

Both solutions will generate QRCode within a PDF file. If your requirement is to generate the QRCode in a picture file, you can use the solution described in this blog.

There are lots of websites which provide free QRCode generation service. Just google it:

/wp-content/uploads/2014/02/clipboard1_395278.png


I prefer to use this one http://www.qrstuff.com: just choose “Plain Text” and we can input some characters in Text field. There is a AJAX call which will generate QRCode immediately after some characters are typed.

/wp-content/uploads/2014/02/clipboard2_395333.png

Now question is how we automate the character input via ABAP.

I use Chrome to explore what has happened when we input some char in webpage. Click F12 to launch Chrome developer tool, input some char and observe the information displayed in the “Network” tab:

/wp-content/uploads/2014/02/clipboard3_395334.png

The request URL is found: http://www.qrstuff.com/generate.generate

The request method is GET.

Also it is necessary to identify http form fields and they are also listed in Chrome:

/wp-content/uploads/2014/02/clipboard4_395335.png

We need to copy all of those form fields into our ABAP code except preview=1, since we don’t need the preview functionality, we just need the generated png file.

here below is the simple report to generate QRCode from hard coded string “testforQRCode”. ( The bold text are just copied from Chrome developer tool )

The source code of zcl_http_tool could be found from attachment.


DATA:
     ls_form   type zcl_http_tool=>ty_name_pair,
     lt_form   type zcl_http_tool=>tt_name_pair,
     lv_code   type xstring.
ls_form = value #( name = 'type' value = 'TEXT' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'foreground_color' value = '000000' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'ecc_level' value = 'L' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'width_pixels' value = '200' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'dpi' value = '72' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'file_type' value = 'png' ).
APPEND ls_form TO lt_form.
ls_form = value #( name = 'text' value = 'testforQRCode' ).
APPEND ls_form TO lt_form.
zcl_http_tool=>send_request( EXPORTING iv_url      = 'http://www.qrstuff.com/generate.generate'
                                       iv_req_type = if_http_request=>co_request_method_get
                                       it_form     = lt_form
IMPORTING ev_response = lv_code ).


And this is QRCode scanned from my mobilephone:

/wp-content/uploads/2014/02/2c0e3e5ff0c6eded33e3f498631b0c95_395336.jpg

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply