FTP详解编程语言

FUNCTION ZCRM_SEND_PDF_TO_FTP. 
*"---------------------------------------------------------------------- 
*"*"Local Interface: 
*"  IMPORTING 
*"     VALUE(OBJECT_ID) TYPE  CRMT_OBJECT_ID OPTIONAL 
*"     VALUE(GUID) TYPE  CRMT_OBJECT_GUID OPTIONAL 
*"---------------------------------------------------------------------- 
DATA:LV_XSTRING TYPE XSTRING. 
DATA:LV_LEN TYPE I. 
DATA LV_HANDLE TYPE I. 
DATA LV_FNAME TYPE CHAR100. 
DATA:LV_SF TYPE TDSFNAME VALUE 'ZCRM_SERVICE_04'. 
DATA: LV_USER TYPE ZE_FTP_USER VALUE 'crm'. 
DATA LV_PASSWORD TYPE ZE_FTP_PW VALUE 'crm'. 
DATA:LV_HOST TYPE ZE_FTP_HOST VALUE '172.16.53.48'. 
DATA:GT_TAB TYPE TABLE OF BLOB, 
GW_TAB LIKE LINE OF GT_TAB. 
IF OBJECT_ID IS INITIAL. 
WAIT UP TO 5 SECONDS. 
SELECT SINGLE A~OBJECT_ID B~ZZCON_FAX INTO (OBJECT_ID,LV_FNAME) 
FROM CRMD_ORDERADM_H AS A 
LEFT JOIN CRMD_SERVICE_H AS B 
ON A~GUID = B~GUID 
WHERE A~GUID = GUID. 
ELSE. 
SELECT SINGLE A~OBJECT_ID B~ZZCON_FAX INTO (OBJECT_ID,LV_FNAME) 
FROM CRMD_ORDERADM_H AS A 
LEFT JOIN CRMD_SERVICE_H AS B 
ON A~GUID = B~GUID 
WHERE A~OBJECT_ID = OBJECT_ID. 
ENDIF. 
CALL FUNCTION 'ZSRV_PRINT_TO_PDF' 
EXPORTING 
IV_SAMRTFORM = LV_SF 
IV_GUID      = GUID 
IV_OBJECT_ID = OBJECT_ID 
IMPORTING 
FILE         = LV_XSTRING. 
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 
EXPORTING 
BUFFER        = LV_XSTRING 
IMPORTING 
OUTPUT_LENGTH = LV_LEN 
TABLES 
BINARY_TAB    = GT_TAB. 
CALL FUNCTION 'ZCRM_FTP_CONNECT' 
EXPORTING 
IV_FTP_USER   = LV_USER 
IV_HOST       = LV_HOST 
IMPORTING 
EV_HANDLE     = LV_HANDLE 
CHANGING 
IV_PASSWORD   = LV_PASSWORD 
EXCEPTIONS 
NOT_CONNECTED = 1 
OTHERS        = 2. 
IF SY-SUBRC <> 0. 
EXIT. 
ENDIF. 
CONCATENATE LV_FNAME 'XXXX.pdf' INTO LV_FNAME. 
CALL FUNCTION 'FTP_R3_TO_SERVER' 
EXPORTING 
HANDLE        = LV_HANDLE 
FNAME         = LV_FNAME 
BLOB_LENGTH   = LV_LEN 
TABLES 
BLOB          = GT_TAB[] 
EXCEPTIONS 
TCPIP_ERROR   = 1 
COMMAND_ERROR = 2 
DATA_ERROR    = 3 
OTHERS        = 4. 
IF SY-SUBRC <> 0. 
ENDIF. 
CALL FUNCTION 'FTP_DISCONNECT' 
EXPORTING 
HANDLE = LV_HANDLE. 
ENDFUNCTION.

FUNCTION zcrm_ftp_connect. 
*"---------------------------------------------------------------------- 
*"*"Local Interface: 
*"  IMPORTING 
*"     REFERENCE(IV_FTP_USER) TYPE  ZE_FTP_USER 
*"     REFERENCE(IV_HOST) TYPE  ZE_FTP_HOST 
*"  EXPORTING 
*"     REFERENCE(EV_HANDLE) TYPE  I 
*"  CHANGING 
*"     REFERENCE(IV_PASSWORD) TYPE  ZE_FTP_PW 
*"  EXCEPTIONS 
*"      NOT_CONNECTED 
*"---------------------------------------------------------------------- 
CONSTANTS cons_key TYPE i VALUE 26101957. 
DATA:lv_slenth TYPE i. 
* 连接FTP服务器 
lv_slenth = STRLEN( iv_password ). 
CALL FUNCTION 'HTTP_SCRAMBLE' 
EXPORTING 
SOURCE      = iv_password 
sourcelen   = lv_slenth 
key         = cons_key 
IMPORTING 
destination = iv_password. 
* Open the ftp server. 
CALL FUNCTION 'FTP_CONNECT' 
EXPORTING 
user            = iv_ftp_user 
password        = iv_password 
host            = iv_host 
rfc_destination = 'SAPFTPA' 
IMPORTING 
handle          = ev_handle 
EXCEPTIONS 
not_connected   = 1 
OTHERS          = 2. 
IF sy-subrc NE 0. 
MESSAGE e007(zhntcrm01) RAISING not_connected. 
ENDIF. 
ENDFUNCTION.