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

wxin

声明：原创作品，转载时请注明文章来自SAP师太技术博客（ 博/客/园ｗｗｗ.ｃｎｂｌｏｇｓ.ｃｏｍ）：www.cnblogs.com/jiangzhengjun，并以超链接形式标明文章原始出处，否则将追究法律责任！原文链接：http://www.cnblogs.com/jiangzhengjun/p/4265688.html
20.26.      下载文件...257
20.26.1.           以BIN二进制下载...257
20.26.2.           以字符模式下载...258
20.26.            下载文件
20.26.1.     以BIN二进制下载
DATA:xstrTYPExstring.
DATA: l_codepage(4)TYPEn.
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:convoutTYPE REF TOcl_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:convinTYPE REF TOcl_abap_conv_in_ce.
"创建解码对象
convin=cl_abap_conv_in_ce=>create(encoding=l_encodinginput=xstr).
DATA:strTYPEstring.
CALL METHODconvin->read"解码
IMPORTING data=str.
WRITE:/ str."江正军

TYPES:xx(100)TYPE x.
DATA:xtabTYPE STANDARD TABLE OFxxWITH HEADER LINE.
xtab=xstr.
APPENDxtab.

CALL FUNCTION'GUI_DOWNLOAD'
EXPORTING
  filename                       ='c:\2.txt'
  filetype                       ='BIN'
TABLES
"data_tab的类型为ANY，所以xtab是一列还是多列，都会写到
"文件中去，这里还只有一列，而且还没有列名，这也没有关系
  data_tab                       =xtab[].
20.26.2.     以字符模式下载
DATA:BEGIN OFstrcOCCURS0,
    c1(2)TYPE c,
    c2(1)TYPE c,
END OFstrc.
strc-c1='中'.
strc-c2='国'.
APPENDstrc.
APPENDstrc.

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 thisparameter is not set, the codepage of the SAP GUI is used as the targetcodepage.如果不指定，则使用SAP GUI所使用的Codepage。
l Value range
　　4-digit number of the SAP codepage. The function moduleSCP_CODEPAGE_BY_EXTERNAL_NAMEreturns the SAP codepage number for an external character set name, forexample, "iso-8859-1". The function module NLS_GET_FRONTEND_CP returnsthe appropriate non-Unicode frontend codepage for a language.
　　You can determine the desired codepage interactively, if the parameterwith_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。