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....
si nos dices el error que te marca te podemos ayudar mejor ...
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
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.
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
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.
