Page 1 of 1
COMO UTILIZAR EL FTP
Posted: Wed Nov 22, 2006 3:46 pm
by 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....
Posted: Wed Nov 22, 2006 8:13 pm
by luis.santeliz
si nos dices el error que te marca te podemos ayudar mejor ...
Posted: Thu Nov 23, 2006 2:34 pm
by 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
Posted: Fri Nov 24, 2006 9:12 am
by 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.
Posted: Sat Nov 25, 2006 2:13 pm
by 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
Posted: Wed Nov 29, 2006 9:29 pm
by 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.