Zip binary data and save zip file to disk at bsp

Question

Hi,
I try to compress (zip) binary data (for example a picture) and then give it to a html page. I use the cl_abap_gzip=>compress_binary method and it seems to work. But when I save the zip-file to harddisk over the popup at the html - page, the file could not be opened. WinZip says that it is an unvalid archive.
Can anybody help me?
Here my example coding at the OnInitialization Event of the business server page:
* event handler for data retrieval
* local variables
DATA: xsourcefile TYPE xstring.
DATA: xzippedfile TYPE xstring.
DATA: source_file_mime_type TYPE string.
DATA: xzippedcontentlength TYPE i, xzippedcontentlengthstring TYPE
string.
* References
DATA: o_mime_api TYPE REF TO if_mr_api.
* processing
* +++ Read File from MIME-Repository (binary) +++
CALL METHOD cl_mime_repository_api=>if_mr_api~get_api
  RECEIVING
    r_mr_api = o_mime_api.
CALL METHOD o_mime_api->get
  EXPORTING
    i_url              = 'SAP/ZGSD_SD_ADIS/test.gif'
*    I_CHECK_AUTHORITY  = 'X'
  IMPORTING
*    E_IS_FOLDER        =
    e_content          = xsourcefile
    e_mime_type        = source_file_mime_type
*    E_LOIO             =
*  CHANGING
*    C_LANGUAGE         =
  EXCEPTIONS
    parameter_missing  = 1
    error_occured      = 2
    not_found          = 3
    permission_failure = 4
    OTHERS             = 5
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* +++ create ZIP-File +++
TRY.
    CALL METHOD cl_abap_gzip=>compress_binary
      EXPORTING
        raw_in                     =  xsourcefile
*    RAW_IN_LEN                 = -1
*    COMPRESS_LEVEL             = 6
      IMPORTING
        gzip_out                   = xzippedfile
        gzip_out_len               = xzippedcontentlength.
* ... Länge Casten !
    xzippedcontentlengthstring = xzippedcontentlength.
* ... Errorhandling
  CATCH cx_parameter_invalid_range . " Error-Handling
  CATCH cx_sy_buffer_overflow . " Error-Handling
  CATCH cx_sy_compression_error . " Error-Handling
ENDTRY.
* +++ Put ZIP-File in Response +++
response->set_data( xzippedfile ).
response->set_header_field( name  = if_http_header_fields=>content_type
          value = 'application/octet-stream' ).
response->set_header_field( name  =
if_http_header_fields=>content_length
          value = xzippedcontentlengthstring ).
response->set_header_field( name  = 'Content-Disposition'
value = 'inline;filename=test.zip' ).
navigation->response_complete( ).
Thanks Timo
PS: I posted this question also at ABAP Forum.

Answer 1

Hi,
First you need to define your ext prog in SM69.
It is simple though, specify:
Command name: ZZIPBIN
OS: (your os)
System command: /yourpath/zzipbin
Extra params allowed: checked
Then you need to code this:
data: table TYPE zeu_t_btcxpm.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
    EXPORTING
      commandname                   = 'ZZIPBIN'
      additional_parameters         = param
      operatingsystem               = sy-opsys
      terminationwait               = 'X'
    TABLES
      exec_protocol                 = table
    EXCEPTIONS
      no_permission                 = 1
      command_not_found             = 2
      parameters_too_long           = 3
      security_risk                 = 4
      wrong_check_call_interface    = 5
      program_start_error           = 6
      program_termination_error     = 7
      x_error                       = 8
      parameter_expected            = 9
      too_many_parameters           = 10
      illegal_command               = 11
      wrong_asynchronous_parameters = 12
      cant_enq_tbtco_entry          = 13
      jobcount_generation_error     = 14
      OTHERS                        = 15.
See also http://help.sap.com/saphelp_nw2004s/helpdata/en/c4/3a8023505211d189550000e829fbbd/frameset.htm
Eddy
PS.
Put yourself on the SDN world map (http://sdn.idizaai.be/sdn_world/sdn_world.html) and earn 25 points.
Spread the wor(l)d!