![[SAP ABAP开发技术总结]以二进制、字符模式下载文件](https://image.shishitao.com:8440/aHR0cHM6Ly9ia3FzaW1nLmlrYWZhbi5jb20vdXBsb2FkL2NoYXRncHQtcy5wbmc%2FIQ%3D%3D.png?!?w=700&webp=1 "[SAP ABAP开发技术总结]以二进制、字符模式下载文件")
![[SAP ABAP开发技术总结]以二进制、字符模式下载文件](https://image.shishitao.com:8440/aHR0cDovL2ltYWdlcy5jbmJsb2dzLmNvbS9jbmJsb2dzX2NvbS9qaWFuZ3poZW5nanVuLzY1NTYxNC9vXyVFNyVCQiVCRjIuZ2lm.gif?w=700&webp=1 "[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
表
![[SAP ABAP开发技术总结]以二进制、字符模式下载文件](https://image.shishitao.com:8440/aHR0cDovL2ltYWdlcy5jbml0YmxvZy5jb20vYmxvZy83MTc2MTQvMjAxNTAyLzAxMTk1MjMzMDgxNzQzNS5wbmc%3D.png?w=700&webp=1 "[SAP ABAP开发技术总结]以二进制、字符模式下载文件")
另外，发现
TCP00
表里也存储了
CODEPAGE
，而且该表有一个
CPCOMPANY
字段标示该代码是由哪个组织定义的（一般我们使用
ISO
国际标准），可以将
TCP00A
与
TCP00
通过
CODEPAGE
联合起来查询，
TCP00A
可以根据字符集名称（如
GBK
、
UTF-8
）
TCP00A-CPATTR
来查询，而
TCP00
可以根据字符集描述（如：
Chinese
）来查询
TCP00-
CPCOMMENT
。