Problem in FileUpload -part2

Question

Hi,
Hav been discussing with Rajas in myRe: Problem in FileUpload and im able to upload my File(Excel).
I hav a Ztable with a keyfield userid and other field called file_content of type <b>XSTRING</b>.I hav succed in uploading and there is some xstring in Ztable too.
Created another BSP Program for Downloadng the File .Here i pass the keyfield param, and tried to retrieve the Xstring as suggested by Raja.When Clicking the download button im able to open an XL file contains only  Xstring...The problem is my Xstring is not converted back to the original file.
Hav one more query.While downloading will the Excel file resides in the same format?
Rgds,
Jothi.P

Answer 1

HI Raja,
Foll is the code in<b> OnInputProcessing</b> to Download Xstring into Excel file...
* event handler for checking and processing user input and
* for defining navigation
data: event type ref to cl_htmlb_event .
event = cl_htmlb_manager=>get_event( runtime->server->request ).
if event->event_type = 'click' .
  case event->id .
** DOWNLOAD TO EXCEL.
    when 'download'.
      data:v_string  type string,
      v_xstring type xstring,
      v_appl type string,
      v_len type i.
      select * from zess_upld into table itab.
      data : wa type zess_upld.
      loop at itab into wa.
        v_string = wa-file_content.
      endloop.
call function 'SCMS_STRING_TO_XSTRING'
  exporting
    text           = v_string
   mimetype       = 'APPLICATION/MSEXCEL; charset=utf-16le'
*   ENCODING       =
importing
   buffer         = v_xstring
* EXCEPTIONS
*   FAILED         = 1
*   OTHERS         = 2
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
concatenate cl_abap_char_utilities=>byte_order_mark_little v_xstring
into v_xstring in byte mode.
v_appl = 'APPLICATION/MSEXCEL; charset=utf-16le'.
runtime->server->response->set_header_field( name = 'content-type' value
= v_appl ).
* Eliminating the cache problems when loading Excel Format
runtime->server->response->delete_header_field( name =
if_http_header_fields=>cache_control ).
runtime->server->response->delete_header_field( name =
if_http_header_fields=>expires ).
runtime->server->response->delete_header_field( name =
if_http_header_fields=>pragma ).
* Start excel in a separate window
runtime->server->response->set_header_field(
                 name = 'content-disposition'
                 value = 'attachment; filename=Order_list.xls' ).
* Displaying the data in excel.
v_len = xstrlen( v_xstring ).
runtime->server->response->set_data( data = v_xstring length = v_len ).
navigation->response_complete( ).
  endcase.
endif.
Rgds,
Jothi.P
How to create a table with File_content type Xstring.
    I can't able to create FIle_content of type Xstring as the ttable can't take more than 255 chars.
Hope this is my problem.How to resolve ?
Message was edited by:
        Jothi Periyasamy