Accepted Solutions (0)
Answers (2)
Hi,
Column1 should have the mime type of the attachment. I hope you are filling it correctly. Column2 should have binary content of the file itself. without the binary content, the file will not be downloaded/display.
COPY_DATA_REF only copies the content of the structure to a data reference and so should never lose data at all in the ER_STREAM while using this method.
Also set the file name in the header response as well. you can use the code below:
define the variables as
ls_stream TYPE ty_s_media_resource,
ls_response_header TYPE ihttpnvp,
lv_filename TYPE string.
Hey thx firstly. Now, your code seems similar to my code. I have here one ls_stream data that I write it at the end of coding in COPY_DATA_REF. But I see there is a problem with my ls stream. the value doesnt assigned correctly to my ls_stream variable. Here is the screenshot.
And I saw that the technical type of Mime_type is CString and the technical type of VALUE is XSTRING. So I have implemented a before copy_data_ref another Function. This converting Function but it doesnt work. After this I still dont get a value into ls_stream. But I have to say that I dont give the lv_xstring a value somewhere before that function
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_length
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_data.
ls_stream-value = lv_xstring.
Hey thx. I add the code here from getstream. I want to say if I not commented the part of CALL FUNCTION 'SCMS_AO_TABLE_GET' then the gwclient give me a Error Internal Server error 500. If comment it the code runs and I get from gwclient 200 but without an result, empty screen
METHOD /iwbep/if_mgw_appl_srv_runtime~get_stream.
DATA: ls_stream TYPE /iwbep/if_mgw_appl_types=>ty_s_media_resource,
ls_entity TYPE zcl_porder_doc_mpc=>ts_attachment,
ls_images TYPE toa01,
lt_images TYPE TABLE OF toa01,
lv_xstring TYPE xstring,
ls_lheader TYPE ihttpnvp,
lv_filename TYPE string,
lv_length TYPE i,
lt_data TYPE TABLE OF tbl1024,
ls_archive TYPE toa01,
lv_porder_id TYPE saeardoid,
lv_doctype TYPE saearoname.
FIELD-SYMBOLS:<fs_key> TYPE /iwbep/s_mgw_name_value_pair.
READ TABLE it_key_tab ASSIGNING <fs_key> INDEX 1.
lv_porder_id = <fs_key>-value.
SELECT SINGLE * FROM toa01 INTO CORRESPONDING FIELDS OF ls_archive WHERE arc_doc_id = lv_porder_id .
IF sy-subrc NE 0.
mo_context->get_message_container( )->add_message_text_only( iv_msg_type = 'E'
iv_msg_text = 'Document not found.' ).
RAISE EXCEPTION TYPE /iwbep/cx_mgw_busi_exception
EXPORTING
message_container = mo_context->get_message_container( ).
ENDIF.
* CALL FUNCTION 'SCMS_AO_TABLE_GET'
* EXPORTING
* arc_id = ls_archive-archiv_id
* doc_id = lv_porder_id
* comp_id = ' '
* IMPORTING
* length = lv_length
* TABLES
* data = lt_data.
* IF sy-subrc NE 0.
* mo_context->get_message_container( )->add_message_text_only( iv_msg_type = 'E'
* iv_msg_text = 'Document not found.' ).
* RAISE EXCEPTION TYPE /iwbep/cx_mgw_busi_exception
* EXPORTING
* message_container = mo_context->get_message_container( ).
* ENDIF.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_length
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_data.
ls_stream-value = lv_xstring.
IF ls_archive-reserve = 'FAX'.
ls_archive-reserve = 'PDF'.
ENDIF.
ls_stream-mime_type = ls_archive-reserve.
TRANSLATE ls_stream-mime_type TO LOWER CASE.
SELECT SINGLE objecttext FROM toasp INTO lv_doctype WHERE ar_object = ls_images-ar_object AND language = sy-langu.
IF sy-subrc IS NOT INITIAL.
lv_filename = 'Invoice'.
ENDIF.
CONCATENATE lv_doctype ls_archive-object_id INTO lv_filename SEPARATED BY space.
lv_filename = escape( val = lv_filename
format = cl_abap_format=>e_url ).
ls_lheader-name = 'Content-Disposition'.
CONCATENATE 'inline; Filename="' lv_filename '.' ls_stream-mime_type '";' INTO ls_lheader-value.
set_header( is_header = ls_lheader ).
copy_data_to_ref( EXPORTING is_data = ls_stream
CHANGING cr_data = er_stream ).
ENDMETHOD.<br>I debug now and saw that lv_length and lt_data contains 0 values before CALL FUNCTION 'SCMS_BINARY_TO_XSTRING and after that function until copydataref. And I think my problem is that my ls_stream contains 0 values too as the code arrives the copy_data_ref. This screenshot is from the state when copy_data_ref is arrived.
Try the following code. BTW, I have hardcoded the value for l_porder_id, so you need to change it.
DATA: l_porder_id TYPE saeardoid VALUE 'E0C23141BA9246F1B0A50014C2585EB9',
ls_archive TYPE toa01,
c_len TYPE sapb-length VALUE '999999999',
l_bound_size_alloc TYPE abap_msize,
lt_archive TYPE TABLE OF docs,
lt_binary TYPE TABLE OF tbl1024,
l_size TYPE i,
l_content TYPE xstring,
l_doctype TYPE toadd-doc_type,
l_extension TYPE sdok_fnext,
ls_lheader TYPE ihttpnvp,
DATA: ls_stream TYPE /iwbep/if_mgw_appl_types=>ty_s_media_resource.
SELECT SINGLE * FROM toa01 INTO CORRESPONDING FIELDS OF @ls_archive WHERE arc_doc_id = @l_porder_id .
IF sy-subrc IS INITIAL.
IF ls_archive-reserve = 'FAX'.
ls_archive-reserve = 'PDF'.
ENDIF.
l_doctype = ls_archive-ar_object.
"Get binary format of attached PDF
CALL FUNCTION 'ARCHIVOBJECT_GET_BYTES'
EXPORTING
archiv_id = ls_archive-archiv_id
archiv_doc_id = ls_archive-arc_doc_id
document_type = l_doctype
length = c_len
offset = 0
TABLES
archivobject = lt_archive
binarchivobject = lt_binary
EXCEPTIONS
error_archiv = 1
error_communicationtable = 2
error_kernel = 3
OTHERS = 4.
IF lt_archive IS NOT INITIAL AND sy-subrc = 0 AND lt_binary IS NOT INITIAL.
l_extension = to_lower( ls_archive-reserve ).
SELECT SINGLE * FROM sdokmime INTO @DATA(l_ext) WHERE extension = @l_extension.
CALL METHOD cl_abap_memory_utilities=>get_memory_size_of_object
EXPORTING
object = lt_binary
IMPORTING
bound_size_alloc = l_bound_size_alloc.
l_size = l_bound_size_alloc.
CLEAR l_content.
* Convert the current table entries to line of XSTRING format
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = l_size
IMPORTING
buffer = l_content
TABLES
binary_tab = lt_binary
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc IS INITIAL.
ls_stream-mime_type = l_ext-type.
ls_stream-value = l_content.
SELECT SINGLE objecttext FROM toasp INTO @data(lv_doctype) WHERE ar_object = @ls_archive-ar_object AND language = @sy-langu.
IF sy-subrc IS NOT INITIAL.
data(lv_filename) = 'Invoice'.
ENDIF.
CONCATENATE lv_doctype ls_archive-object_id INTO lv_filename SEPARATED BY space.
lv_filename = escape( val = lv_filename
format = cl_abap_format=>e_url ).
ls_lheader-name = 'Content-Disposition'.
CONCATENATE 'inline; Filename="' lv_filename '.' ls_stream-mime_type '";' INTO ls_lheader-value.
set_header( is_header = ls_lheader ).
copy_data_to_ref( EXPORTING is_data = ls_stream
CHANGING cr_data = er_stream ).
ENDIF.
ENDIF.
ENDIF.
data in ls_stream is in the screenshot below:
I have tried your code to display file. and it is working fine with me.
Can you also redefine the method "DEFINE" in your "_MPC_EXT" class and add the following code:
DATA: lo_entity TYPE REF TO /iwbep/if_mgw_odata_entity_typ,
lo_property TYPE REF TO /iwbep/if_mgw_odata_property.
super->define( ).
lo_entity = model->get_entity_type( iv_entity_name = 'your entity name for files' ). "In my case it is 'file'
IF lo_entity IS BOUND.
lo_property = lo_entity->get_property( iv_property_name = 'key field of the entity'). "in my case it is filename
lo_property->set_as_content_type( ).
ENDIF.<br>Hi user4sap, what is the value in variable lv_test? and what is the value in lv_attachment_guid? where are you getting binary for your file? the datatype for lv_test is, btw, wrong, it should be xstring and not string. can you check that?
and how are you reading the file content?
| User | Count |
|---|---|
| 88 | |
| 10 | |
| 10 | |
| 9 | |
| 6 | |
| 6 | |
| 6 | |
| 5 | |
| 4 | |
| 3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.