使用 ABAP 代码给 PDF 文件分配 usage right(未经笔者验证)

*&---------------------------------------------------------------------*
*& Report  ZTESTB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZTESTB.
  PARAMETERS: pdf TYPE localfile OBLIGATORY,
              output TYPE localfile OBLIGATORY.
  DATA:
        lv_pdf TYPE xstring.
  START-OF-SELECTION.
  PERFORM upload USING pdf CHANGING lv_pdf.
  PERFORM assign_right CHANGING lv_pdf.
  PERFORM download USING lv_pdf output.
  AT SELECTION-SCREEN ON VALUE-REQUEST FOR pdf.
  DATA:
    file_table  TYPE filetable,
    action TYPE i,
    rc TYPE sysubrc.
  FIELD-SYMBOLS:
    <file> TYPE file_table.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      default_extension       = 'pdf'
      file_filter             = cl_gui_frontend_services=>filetype_all
    CHANGING
      file_table              = file_table
      rc                      = rc
      user_action             = action
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 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.
  CHECK action = cl_gui_frontend_services=>action_ok.
  READ TABLE file_table INDEX 1 ASSIGNING <file>.
  pdf = <file>.
  AT SELECTION-SCREEN ON VALUE-REQUEST FOR output.
    DATA:
    file_table  TYPE filetable,
    user_action TYPE i,
    path TYPE string,
    full_path TYPE string,
    file_name TYPE string.
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      default_extension    = 'pdf'
      file_filter          = cl_gui_frontend_services=>filetype_all
    CHANGING
      filename             = file_name
      path                 = path
      fullpath             = full_path
      user_action          = user_action
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CHECK user_action = cl_gui_frontend_services=>action_ok.
  output = full_path.
  FORM upload USING l_filename TYPE localfile CHANGING source TYPE xstring.
  DATA:    l_rawtab   TYPE STANDARD TABLE OF raw255,
           l_len      TYPE i,
           filename   TYPE string.
  filename = l_filename.
  CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename                = filename
      filetype                = 'BIN'
    IMPORTING
      filelength              = l_len
    CHANGING
      data_tab                = l_rawtab
    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 IS NOT INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = l_len
    IMPORTING
      buffer       = source
    TABLES
      binary_tab   = l_rawtab
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.
  IF sy-subrc IS NOT INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  ENDFORM.
  FORM assign_right CHANGING lv_pdf.
  DATA: l_fp TYPE REF TO if_fp,
        l_pdfobj TYPE REF TO if_fp_pdf_object,
        l_dest TYPE rfcdest,
        error TYPE string,
        cx_obj TYPE REF TO cx_fp_runtime_system.
  MOVE cl_fp=>get_ads_connection( ) TO l_dest.
  l_fp = cl_fp=>get_reference( ).
  l_pdfobj = l_fp->create_pdf_object( connection = l_dest ).
  l_pdfobj->set_document( pdfdata = lv_pdf ).
  DATA: lt_rights TYPE TFPURIGHT.
  DATA: ls_rights LIKE LINE OF lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_FILLIN.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_IMPORT.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_EXPORT.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_ADD.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_DELETE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>formrights.
  ls_rights-value = if_fp_pdf_usage_rights=>FORMRIGHT_ONLINE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>DOCRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>DOCRIGHT_FULLSAVE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>EMBEDFILERIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>EMBEDFILERIGHT_CREATE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>EMBEDFILERIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>EMBEDFILERIGHT_DELETE.
  ls_rights-right = if_fp_pdf_usage_rights=>EMBEDFILERIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>EMBEDFILERIGHT_MODIFY.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>EMBEDFILERIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>EMBEDFILERIGHT_IMPORT.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_CREATE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_DELETE.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_MODIFY.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_COPY.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_IMPORT.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_EXPORT.
  INSERT ls_rights INTO TABLE lt_rights.
  ls_rights-right = if_fp_pdf_usage_rights=>ANNOTRIGHTS.
  ls_rights-value = if_fp_pdf_usage_rights=>ANNOTRIGHT_ONLINE.
  INSERT ls_rights INTO TABLE lt_rights.
  TRY.
    l_pdfobj->set_usagerights( rights = lt_rights ).
    l_pdfobj->execute( ).
    l_pdfobj->get_document( IMPORTING pdfdata = lv_pdf ).
  CATCH cx_fp_runtime_system INTO cx_obj.
    error = cx_obj->get_text( ).
    MESSAGE error TYPE 'E'.
  ENDTRY.
  ENDFORM.
  FORM download USING source TYPE xstring file TYPE localfile.
  TYPES:  ty_bin_data(1024) TYPE x .                        "#EC NEEDED
  TYPES:  tt_bin_data       TYPE STANDARD TABLE OF ty_bin_data."#EC NEEDED
  DATA: lp_data TYPE REF TO data.
  DATA: lf_bin_length TYPE i,
        filename      TYPE string,
        lf_pos        TYPE i,
        info          TYPE string,
        lf_n          TYPE i.
  FIELD-SYMBOLS: <fs_data>   TYPE any,
                 <fs_binary> TYPE x.
  DATA: et_binary_tab TYPE tt_bin_data,
        e_binary_size TYPE i.
* --------------------------------------------------------------------
  CLEAR et_binary_tab.
  e_binary_size = xstrlen( source ).
  CREATE DATA lp_data LIKE LINE OF et_binary_tab[].
  ASSIGN lp_data->* TO <fs_data>.
  ASSIGN COMPONENT 1 OF STRUCTURE <fs_data> TO <fs_binary> CASTING TYPE x.
  IF sy-subrc = 4.
    ASSIGN COMPONENT 0 OF STRUCTURE <fs_data> TO <fs_binary> CASTING TYPE x.
  ENDIF.
  DESCRIBE FIELD <fs_binary> LENGTH lf_bin_length IN BYTE MODE.
  lf_n = ( e_binary_size + lf_bin_length - 1 ) DIV lf_bin_length.
  DO lf_n TIMES.
    <fs_binary> = source+lf_pos.
    lf_pos = lf_pos + lf_bin_length.
    APPEND <fs_data> TO et_binary_tab.
  ENDDO.
  filename = file.
  CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      bin_filesize              = e_binary_size
      filename                  = filename
      filetype                  = 'BIN'
    CHANGING
      data_tab                  = et_binary_tab
    EXCEPTIONS
      file_write_error          = 1
      no_batch                  = 2
      gui_refuse_filetransfer   = 3
      invalid_type              = 4
      no_authority              = 5
      unknown_error             = 6
      header_not_allowed        = 7
      separator_not_allowed     = 8
      filesize_not_allowed      = 9
      header_too_long           = 10
      dp_error_create           = 11
      dp_error_send             = 12
      dp_error_write            = 13
      unknown_dp_error          = 14
      access_denied             = 15
      dp_out_of_memory          = 16
      disk_full                 = 17
      dp_timeout                = 18
      file_not_found            = 19
      dataprovider_exception    = 20
      control_flush_error       = 21
      not_supported_by_gui      = 22
      error_no_gui              = 23
      OTHERS                    = 24.
    IF sy-subrc = 0.
      info = 'File:' && filename && 'download successuflly!'.
      MESSAGE info TYPE 'I'.
    ELSE.
      info = 'File:' && filename && 'download error,code=' && sy-subrc.
      MESSAGE info TYPE 'E'.
    ENDIF.
  ENDFORM.