[SAP ABAP开发技术小结]以二进制、字符模式下载文件

20.26.              下载文件

20.26.1.       以 BIN 二进制下载

DATA : xstr TYPE xstring .
DATA :  l_codepage ( 4 ) TYPE n .
DATA :  l_encoding ( 20 ).
********** 字符集名与内码转换
" 将外部字符集名转换为内部编码
CALL FUNCTION ' SCP_CODEPAGE_BY_EXTERNAL_NAME '
  EXPORTING
    external_name = 'UTF-8'
  IMPORTING
    sap_codepage  = l_codepage .
l_encoding = l_codepage .
********** 编码
DATA : convout TYPE REF TO cl_abap_conv_out_ce .
" 创建编码对象
convout = cl_abap_conv_out_ce => create ( encoding = l_encoding ).
convout -> write ( data = ' 江正军 ' ). " 编码
xstr =  convout -> get_buffer ( ). " 获取二进制码流
WRITE : / xstr . "E6B19FE6ADA3E5869B
********** 解码
DATA : convin TYPE REF TO cl_abap_conv_in_ce .
" 创建解码对象
convin = cl_abap_conv_in_ce => create ( encoding = l_encoding input = xstr ).
DATA : str TYPE string .
CALL METHOD convin -> read " 解码
  IMPORTING data = str .
WRITE : / str . " 江正军

TYPES : xx ( 100 ) TYPE x .
DATA : xtab TYPE STANDARD TABLE OF xx WITH HEADER LINE .
xtab = xstr .
APPEND xtab .

CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
  filename                        = 'c:\2.txt'
  filetype                        = 'BIN'
TABLES
  "data_tab 的类型为 ANY ，所以 xtab 是一列还是多列，都会写到
  " 文件中去，这里还只有一列，而且还没有列名，这也没有关系
  data_tab                        = xtab[] .

20.26.2.       以字符模式下载

DATA : BEGIN OF strc OCCURS 0 ,
    c1 ( 2 ) TYPE c ,
    c2 ( 1 ) TYPE c ,
  END OF strc .
strc - c1 = ' 中 ' .
strc - c2 = ' 国 ' .
APPEND strc .
APPEND strc .

CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
*   BIN_FILESIZE          =
    filename              = 'c:\1.txt'
    filetype              = 'DAT' " 列与列之间会使用 TAB 分隔
*   APPEND                = ' '
*   WRITE_FIELD_SEPARATOR = ' '
*   HEADER                = '00'
*   codepage              = '8400' "GBK
*   codepage              = '8450' "GB2312
    codepage              = '4110' "utf-8
*   CODEPAGE              = '4102'"UTF-16BE
*   CODEPAGE              = '4103'"UTF-16LE
  TABLES
    data_tab              = strc[] .

  CODEPAGE

l   Description

Use parameter CODEPAGE to specify the desired target codepage. If this parameter is not set, the codepage of the SAP GUI is used as the target codepage. 如果不指定，则使用 SAP GUI 所使用的 Codepage 。

l   Value range

4-digit number of the SAP codepage. The function module SCP_CODEPAGE_BY_EXTERNAL_NAME returns the SAP codepage number for an external character set name, for example, "iso-8859-1". The function module NLS_GET_FRONTEND_CP returns the appropriate non-Unicode frontend codepage for a language.

You can determine the desired codepage interactively, if the parameter with_encoding of method file_save_dialog is set by cl_gui_frontend_services.

SPACE: Codepage of the SAP GUI

l   Default

SPACE

SCP_CODEPAGE_BY_EXTERNAL_NAME

该函数可将字符集名称转换为 CODEPAGE ，也可以直接查看 TCP00A 表

另外，发现 TCP00 表里也存储了 CODEPAGE ，而且该表有一个 CPCOMPANY 字段标示该代码是由哪个组织定义的（一般我们使用 ISO 国际标准），可以将 TCP00A 与 TCP00 通过 CODEPAGE 联合起来查询， TCP00A 可以根据字符集名称（如 GBK 、 UTF-8 ） TCP00A-CPATTR 来查询，而 TCP00 可以根据字符集描述（如： Chinese ）来查询 TCP00- CPCOMMENT 。