COMO UTILIZAR EL FTP

[prm_pedro]

HOLA A TODOS...



ALGUIEN ME PODRIA AYUDAR PARA CONECTARME UN SERVIDOR POR FTP Y ENVIAR UN ARCHIVO. TOME EL EJEMPLO DE BIENE DE FTP PERO ME MARCA UN ERROR SIEMPRE... SERA POR QUE NO UTILIZO PROXY
O A QUE SE DEBE EL ERROR.



EPERO Y ME PUEDAN AYUDAR....

[luis.santeliz]

si nos dices el error que te marca te podemos ayudar mejor ...

[prm_pedro]

EN ESTE FRAGMENTO DE CODIGO, ES DONDE SE VA AL ERROR, ADEMAS NO SE COMO SABER CUANDO SE CONECTA AL SERVICIO DE FTP O QUE VALOR ME DA...

FUNCTION Enviar()
LOCAL nRet
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
//hConnect = INTERNETCONNECT(0, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
msginfo(hConnect )
IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )
nRet:=0
msgalert("enviado")
ELSE
nRet:=GetLAstError() //AQUIE ES EN DONDE ENTRA
msgalert("error")
ENDIF
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN nRet

[Elias Torres]

Has colocado la ip del servidor al que te vas a conectar, el nombre de usuario, la contraseña, el directorio local (de donde vas a coger el archivo para enviar) y el directorio remoto (donde vas a colocar el archivo en el servidor)???


Saludos...

Elías Torres.

[prm_pedro]

SI EFECTIVAMENTE COLOQUE YA ESTOS DATOS PREVIAMENTE...


PERO NO SE QUE VALOR ME DA CUANDO SE CONECTA...


LOCAL oWnd
PUBLIC server:="128.50.1.179"+space(15)
PUBLIC user:="pedro"+space(15)
PUBLIC pass:="pedro"+space(15)
PUBLIC loc_archivo:= "c:\FWPPC\SAMPLES\BASES" +"\ticket.dbf"+space(15)
PUBLIC rem_archivo:="/sistemas/pedro/ticket.dbf"+space(40)



Y DESPUES ESTO



FUNCTION Enviar()
LOCAL nRet
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )
msginfo(hConnect )
IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )
nRet:=0
msgalert("enviado")
ELSE
nRet:=GetLAstError()
msgalert("error")
ENDIF
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN nRet

[luis.santeliz]

hazlo mejor asi:

PUBLIC loc_archivo:= curdir()+"\ticket.dbf"+space(15)
PUBLIC rem_archivo:="ticket.dbf"+space(40)


acuerdate que tu sistema LOCAL es el pda y no puede tener el formato "c:\dir\" la raiz de un sistema de archivos PDA es "\" y todos los directorios cuelgan de alli. la barra "/" no existe para ninguno de los dos sistemas de archivo (Windows y pocket pc). ese podria ser la razon por la cual se cuelga el programa.