topic Get PDF from base64Binary in Application Development and Automation Discussions

Get PDF from base64Binary

MKusters — Wed, 03 Feb 2016 15:11:10 GMT

Hi all,

I am trying to implement a webservice. I receive an answer (XML) with a PDF encoded in a tag the tag starts with <getVerzendlijstResult xsi:type="xsd:base64Binary">.

But now the problem.... how can I extract the PDF from here.

I tried a lot of possibilities and searched on the forum here, but can not find an answer... Every PDF document I download is not readable.

DATA out TYPE xstring.

DATA lt_bintab TYPE TABLE OF x255.

DATA: str3 TYPE string,

str4 TYPE string.

CALL METHOD cl_http_utility=>if_http_utility~decode_base64

EXPORTING

encoded = str3 " RAWSTRING from webservice

RECEIVING

decoded = str4.

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'

EXPORTING

text = str4

mimetype = 'APPLICATION/PDF'

IMPORTING

buffer = out.

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'

EXPORTING

buffer = out

* APPEND_TO_TABLE = ' '

* IMPORTING

* OUTPUT_LENGTH =

tables

binary_tab = lt_bintab.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = '<path>\Desktop\file.pdf'

filetype = 'BIN'

TABLES

data_tab = lt_bintab.

Can anybody help me??

Re: Get PDF from base64Binary

rosenberg_eitan — Wed, 03 Feb 2016 16:11:15 GMT

Hi,

I think that first of all you need to get just the PDF node.

You can to parse the xml using Class CL_IXML .

See program y_r_eitan_test_40_05 at:

see FORM do_xml_parse_1 as a sample of parsing xml.

Regards.

Re: Get PDF from base64Binary

Former Member — Wed, 03 Feb 2016 18:58:54 GMT

Hi brother, in this example, I Had to decodify a ".ZIP" file that was codificated in Base 64:

REPORT zteste_64.

TYPES: t_xline(2048) TYPE x, “BINARY FILES

BEGIN OF t_line,
line(1024) TYPE c,
END OF t_line. “CONTENT

DATA: obj TYPE REF TO cl_http_utility,
cref TYPE REF TO if_http_utility,
cl_zip TYPE REF TO cl_abap_zip .

DATA: z        TYPE string,
decodex TYPE xstring,
files    LIKE LINE OF cl_abap_zip=>files,
name     TYPE string,
output_x TYPE xstring, “BINARY OUTPUT OUTPUT
size     TYPE i,
data_tab TYPE STANDARD TABLE OF t_xline,
text_tab TYPE STANDARD TABLE OF t_line.

CREATE OBJECT : obj.
cref = obj.

“A variável Z contém um arquivo .CSV zipado e codificado em base 64 ;D
CONCATENATE
‘UEsDBBQACAgIALJUl0cAAAAAAAAAAAAAAAAZAAAAUkZYQXdhcmRfRG9jNjQ1MTQyODYwLmNzdu1X’
‘UW/bNhB+768g/NQBbkvSkizvaa4TowZix7OK7nFgJM7hKpEqSTlN0X+zhz7tV+SP7UhJtpw6KVxs’
’69IlIGLe8Xi8++47QuxNVFGoTNjrXr830ZxZoSQ6YZaDvNTqd55aNMs6wvmV5LojvxY2d8ZzZcVG’
‘oUwhv2KVc1hpzWXqfJ9uuATj65JvhdZTLflDGqvGZVKVZS64RgtW7MnLSyX3FOMs09yYrupcr5kU’
‘H+qEbjvYW/QnJ2wj5NqgJdcpxMDWNQAidb8rJt/CTxP9S5E10cqMa55C0hyteAEBMJc0bNcu+9li’
‘cv76dDVPYH7CMmVQyTRDU2YrDfFID9HM8gItquKihuK95eA0Q+3J9XId/c8Vk7auVALIQ+gvzpR1’
‘cfH3VqGXmm/8lqJUxsJpHI1z8a5SlhkkZJpXhnmEUqU5esPyyqfItBWpKME1SAsNibyrhBEpU02q’
‘iYWATWO6C3WiZOasXPJLtt4mtJjMPdIXhTCmQybYyLVCLiGHBzep9tuBgGXOLXPMaRaXmn3wfk8B’
‘Sb52oM7BiRYsb2LqEMuJLVpu/hmE4yumM4AiV2ld770SJzBlWiiUCFuxm083fyhkAHN786etctV7’
‘0nMAX1Z9FKKF2vQRxSQE1S9JFAzwKBpFgSc6IA75IccwBTCNs0JIXxpjOZozWbEcYUzRM4RDQhon’
‘S56JzOO8OnM0my59qhBe7rQnKo2CkAQ0jrBH3DKHGHZbPx+0UZ8JyVskZyfBcEDDIcExSNzz9eaT’
‘QnrLVoIxRq+A2LqAc4EpyYuxO2u6glB9Wo5IU819ETNP49/2GBz6s12AmS9qjeFFw0aC66is52ir’
‘nSXzCfgn9MlsOXOTxuqMswza0O2jgyCMXPnSlJeWu34bUFCSYABThjbCWJdAENIwCmN/A8k+Gu1V’
‘idwOK23Y5rzh7THDeLQtAt3l48bDqX/8jervikT6Q3wXA+hhBkzmyfEM2Op29Y9D0FASHCYA/RIB’
‘RvEwCoMBJdsqeBzbhB4WBe4gQBBAi+B/9AI4qvvrMZPC1jf6oUp3x31dfLCHd+Oxdl9u3qP69tja’
‘3deAB9vve6sduWV1T7fcGq/ghlPwEVNLd+DbHf8PAO+h7COAhwCkX83AFTdctwuP+B1NwO8Vv6nS’
‘Eu1MSfMH06JWPl+z/JLB++8nw8rncOV3oml3SW6vlH4rsh+ZxARTGgVDMsDP7MeL6pprcw3mhVtN’
‘i19pPCKUxPFHoyqdwvfhnZtr5PxHPDlUURzGOHgYj6E9wJ52Mf+h9994IBHc/n9k6lcyNf5WTP17’
‘n23Hc/Vff8p1yPoXUEsHCBH4k+/XAwAA9hQAAFBLAQIUABQACAgIALJUl0cR+JPv1wMAAPYUAAAZ’
‘AAAAAAAAAAAAAAAAAAAAAABSRlhBd2FyZF9Eb2M2NDUxNDI4NjAuY3N2UEsFBgAAAAABAAEARwAA’
‘AB4EAAAAAA==’ INTO z.

decodex = obj->if_http_utility~decode_x_base64( z ).

CREATE OBJECT cl_zip.

CALL METHOD cl_zip->load( EXPORTING zip = decodex ).

LOOP AT cl_zip->files INTO files.

CLEAR output_x.
MOVE files–name TO name.

cl_zip->get( EXPORTING name = name
IMPORTING content = output_x ).

REFRESH data_tab.

CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
EXPORTING
buffer = output_x
IMPORTING
output_length = size
TABLES
binary_tab = data_tab.

CALL FUNCTION ‘SCMS_BINARY_TO_TEXT’
EXPORTING
input_length = size
TABLES
binary_tab = data_tab
text_tab = text_tab.

“Salva o arquivo descompactado em diretório local
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
bin_filesize = size
filename     = ‘C:\Temp\teste.csv’
filetype     = ‘BIN’
CHANGING
data_tab     = data_tab.

ENDLOOP.

Hope it could help, regards,

Alysson Dias

Re: Get PDF from base64Binary

MKusters — Wed, 03 Feb 2016 20:15:51 GMT

Hi,

Reading the XML isn't the issue. I have the node transfered into XML and extracted the PDF node into a string. But now..... everything I try, I can't get a readable PDF

Re: Get PDF from base64Binary

MKusters — Wed, 03 Feb 2016 20:17:48 GMT

Unfortunally that is also not the solution. I still get the message the file is not supported or damaged after the download.

Re: Get PDF from base64Binary

rosenberg_eitan — Thu, 04 Feb 2016 12:03:57 GMT

Hi,

I think I got it .

Some code:

REPORT y_r_eitan_test_40_09 .

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK block04 WITH FRAME .

PARAMETERS: p_debug TYPE debug_flg .

SELECTION-SCREEN END OF BLOCK block04 .

AT SELECTION-SCREEN .

PERFORM at_selection_screen_input .

*----------------------------------------------------------------------*

FORM at_selection_screen_input .

DATA: data_set_name_1 TYPE pathextern .

data_set_name_1 = '\\<yourpath>\ChartDesigner.Base64.xml' .

DATA: it_data_1 TYPE soli_tab .

PERFORM upload_file_1

USING

data_set_name_1

CHANGING

it_data_1.

DATA: xml_string TYPE string .

CALL METHOD cl_bcs_convert=>txt_to_string

EXPORTING

it_soli = it_data_1

RECEIVING

ev_string = xml_string.

DATA: ob_ixml TYPE REF TO if_ixml.

ob_ixml = cl_ixml=>create( ).

DATA: streamfactory TYPE REF TO if_ixml_stream_factory.

streamfactory = ob_ixml->create_stream_factory( ).

DATA: istream TYPE REF TO if_ixml_istream.

istream = streamfactory->create_istream_string( string = xml_string ).

DATA: document TYPE REF TO if_ixml_document.

document = ob_ixml->create_document( ) .

DATA: parser TYPE REF TO if_ixml_parser.

parser = ob_ixml->create_parser( stream_factory = streamfactory

istream = istream

document = document ).

parser->parse( ).

DATA: nodes TYPE REF TO if_ixml_node_collection.

DATA: node TYPE REF TO if_ixml_node .

nodes = document->get_elements_by_tag_name( name = 'pdfData' ).

node = nodes->get_item( 0 ).

DATA: value TYPE string .

value = node->get_value( ) .

DATA: ob_http_utility TYPE REF TO cl_http_utility .

DATA: decoded TYPE xstring .

CALL METHOD cl_http_utility=>if_http_utility~decode_x_base64

EXPORTING

encoded = value

RECEIVING

decoded = decoded.

DATA: data_set_name_2 TYPE pathextern .

data_set_name_2 = '\\<yourpath>\ChartDesigner.pdf' .

DATA: mess TYPE string .

OPEN DATASET data_set_name_2 FOR OUTPUT IN BINARY MODE MESSAGE mess .

IF sy-subrc NE 0.

MESSAGE e306(f7) WITH data_set_name_2 .

RETURN .

ENDIF.

TRANSFER decoded TO data_set_name_2 NO END OF LINE .

CLOSE DATASET data_set_name_2 .

MESSAGE s640(ms) WITH data_set_name_2 .

ENDFORM. "do_xml_parse_1

*----------------------------------------------------------------------*

FORM upload_file_1

USING

p_path TYPE pathextern

CHANGING

it_data_1 TYPE soli_tab .

DATA: filename TYPE string ,

filelength TYPE i .

filename = p_path .

CALL METHOD cl_gui_frontend_services=>gui_upload

EXPORTING

filename = filename

filetype = 'ASC'

* has_field_separator = abap_false

read_by_line = abap_false

* dat_mode = abap_false

* codepage = space

* ignore_cerr = abap_true

IMPORTING

filelength = filelength

CHANGING

data_tab = it_data_1

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

not_supported_by_gui = 17

error_no_gui = 18

OTHERS = 19.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF .

ENDFORM . "upload_file_1

*----------------------------------------------------------------------*

The xml

Re: Get PDF from base64Binary

Tomas_Buryanek — Thu, 04 Feb 2016 13:14:39 GMT

Very basic mistake when working with binary data.

You need to provide size of file when downloading!

You will get size from

SCMS_XSTRING_TO_BINARY

* OUTPUT_LENGTH

And use it in:

GUI_DOWNLOAD

Hope it helps

Re: Get PDF from base64Binary

MKusters — Thu, 04 Feb 2016 16:54:01 GMT

I'am getting a little bit desperate.... . It still doesn't work. For a moment I was hopefull because I don't took the open dataset in consideration. But unfortunally....

Can you help me if I send you my XML?

Re: Get PDF from base64Binary

MKusters — Thu, 04 Feb 2016 16:55:25 GMT

I already tried this after the post of Alysson Dias da Silva

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 05:50:17 GMT

Hi,

Yes please send the xml . (upload limit is 1 MB)

Very odd

The program is tested and works here .

I created the xml file using Java.

Have you tried my code (with modification of file path) .

Regards.

Re: Get PDF from base64Binary

Tomas_Buryanek — Fri, 05 Feb 2016 07:25:35 GMT

OK. I do not know what is your current testing code.

But looking on first post I think you are converting too much.

Did you tried Alyssons method of decode?

cl_http_utility=>decode_x_base64( ).

It has direct output in xstring so you have binary data right there. Without other conversions which might corrupt file data.

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 07:38:48 GMT

Hi,

If you look at this post this is what I used and it works with no problem.

Regards.

Re: Get PDF from base64Binary

MKusters — Fri, 05 Feb 2016 07:52:24 GMT

Hi Eitan,

Yes, I tried your program. and changed the paths. After closing the dataset. I tried to download it as a BIN file with CG3Y to my local desktop to check if it works.

Attached the XML file. Thanks in advance!

Regards

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 08:16:36 GMT

Hi,

I am at home at the moment so I will try to do it using java.

If this will work ok next sunday I will try it at the office.

Lets hope for the best

Regards.

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 09:24:02 GMT

Hi,

After converting the getVerzendlijstResult I am not getting a valid PDF file.

Is there a chance that the file is encrypted ?

Do you have the original ?

If yes convert it to base64 file is the result the same as the one you have inthe XML ?

Regards

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 09:27:31 GMT

Hi,

You can also use Base64: Encode and Decode Base64 Files

Regards.

Re: Get PDF from base64Binary

MKusters — Fri, 05 Feb 2016 09:43:36 GMT

This is the answer I receive after calling the webservice method.

I suppose that in the string there another XML is coded. Because if I transform this string to XML I get a tag called <PDF>.

I tried 2 alternatives: - first decode the getVerzendlijstResult string and then transform to XML I get the tag <PDF> => convert to readable PDF fails

- first transform the getVerzendlijstResult string to XML and then decode the <PDF> tag => convert to readable PDF fails

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 10:48:09 GMT

Hi,

Is this a public webservice ?

Any way I sugest you get in tuch with the people who run the webservice and ask how to use the site ?

Try with the attached file .

When I crated the xml I simply encode the file and the put the result string in xml node .

I use JDOM for the xml JDOM

Re: Get PDF from base64Binary

rosenberg_eitan — Fri, 05 Feb 2016 11:12:17 GMT

When I do

I get

This is the pdf .

In this case it is blank.

Regards.

Re: Get PDF from base64Binary

MKusters — Fri, 05 Feb 2016 11:52:19 GMT

I don't really get what you are trying to say: In this case it is naturally I don't get a readable PDF in ABAP? I expect if the PDF is empty, I get a empty/blank PDF.... or am I wrong?