contectarse por ftp

[leandor]

Hola,
Me urge conectarme via ftp y descargar unos archivos, el proceso que tengo que realizar es conectarme via ftp, hacer esto con 2 direcciones fijas.
Eh visto varios ejemplos, pero no logro conectarme, no se si me pudieran dar algun ejemplo de conexiones.
mi primer conexion es con los siguientes datos:
servidor:THE_IP
puerto: 10039
usuario: USERNAME
contraseña: ######
clave privada: C:\hsbc\key\PRIVADA_putty.ppk

Con esta no eh logrado conectarme por sap, usando WinSCP, si logro entrar.
y si ustedes intentan entrar no lo lograran por que esta ligada a mi computadora. asi que si me pueden ayudar a decirme como ingresar los datos a el proceso de conexion ftp se los agradeceria mucho.

La segunda conexion creo que puede ser mas facil, es el buzon de santander. El servidor es ftp://USUARIO@buzon.santander.com.mx
y solo tiene un usuario y una contraseña.
Pero tampoco eh logrado entrar.

Alguien me puede ayudar porfavor?
Gracias
Leandor

[leandor]

Tengo el siguiente codigo, pero no logro conectarme. y no se donde poner la ruta de mi archivo de clave privada "C:\hsbc\key\PRIVADA_putty.ppk". Es correcto este codigo, o debo manejar otras funciones?


REPORT ZKBTST32 LINE-SIZE 132.


TYPES: BEGIN OF t_ftp_data,
line(132) TYPE c,
END OF t_ftp_data.

DATA: lv_ftp_user(64) VALUE 'USER'. "change this
DATA: lv_ftp_pwd(64) VALUE 'password'. "change this
DATA: lv_ftp_host(50) VALUE 'THE_IP'. "change this
DATA: lv_rfc_dest LIKE rscat-rfcdest VALUE 'SAPFTP'.
DATA: lv_hdl TYPE i.
DATA: lv_key TYPE i VALUE 26101957.
DATA: lv_dstlen TYPE i.
DATA: lt_ftp_data TYPE TABLE OF t_ftp_data.

FIELD-SYMBOLS: <ls_ftp_data> LIKE LINE OF lt_ftp_data.

lv_dstlen = 8.

CALL 'AB_RFC_X_SCRAMBLE_STRING'
ID 'SOURCE' FIELD lv_ftp_pwd
ID 'KEY' FIELD lv_key
ID 'SCR' FIELD 'X'
ID 'DESTINATION' FIELD lv_ftp_pwd
ID 'DSTLEN' FIELD lv_dstlen.

CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = lv_ftp_user
password = lv_ftp_pwd
host = lv_ftp_host
rfc_destination = lv_rfc_dest
IMPORTING
handle = lv_hdl
EXCEPTIONS
not_connected = 1
OTHERS = 2.

IF sy-subrc NE 0.
WRITE:/ 'could not connect to', lv_ftp_host.
ELSE.
WRITE:/ 'connected successfully. session handle is', lv_hdl.
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
handle = lv_hdl
command = 'dir'
TABLES
data = lt_ftp_data
EXCEPTIONS
tcpip_error = 1
command_error = 2
data_error = 3
OTHERS = 4.
IF sy-subrc NE 0.
WRITE:/ 'could not execute ftp command'.
ELSE.
LOOP AT lt_ftp_data ASSIGNING <ls_ftp_data>.
WRITE: / <ls_ftp_data>.
ENDLOOP.
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
handle = lv_hdl
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
WRITE:/ 'could not disconnect from ftp server'.
ELSE.
WRITE:/ 'disconnected from ftp server'.
ENDIF.
ENDIF.
ENDIF.



Tambien tengo otro codigo con el cual intente conectarme pero no lo logro, como es:

Estos son las variables con las
data:
i_password(50) TYPE c value 'password',
i_key(100) TYPE c value 'C:\hsbc\key\PRIVADA_putty.ppk',
i_user(100) TYPE c value 'USER',
i_host(100) type c value 'THE_IP',
i_rfc_destination type RFCDES-RFCDEST value 'SAPFTP',
w_handle TYPE i .

call function 'HTTP_SCRAMBLE'
exporting
source = i_password
sourcelen = 8
key = 26101957
IMPORTING
DESTINATION = i_password
.

CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = i_user
password = i_password
host = i_host
rfc_destination = i_rfc_destination

IMPORTING
handle = w_handle
EXCEPTIONS
not_connected = 1
OTHERS = 2.

IF sy-subrc NE 0.
WRITE 'no conectado'.
ELSE.
WRITE 'conectado'.
endif.

Me urgen estas conexiones, y agredesco toda la ayuda
Gracias
Leandor