Enviar/Recibir archivos via ftp [ SOLVED ]

[jll-fwh]

Hola Rodolfo:

Hazlo asi y veras como si estan los ficheros de tu FTP:


aFile = oFTP:Directory( "html/basura/*.*" )
AEval( aFile, { | aFile | AAdd( adir, aFile[1]) } )
MsgList( adir, "Directorio FTP" )

p.d recuerda: cambia el path del ftp al tuyo.

un saludo
JLL

[RodolfoRBG]

Tienes razon JLL, al parecer siempre ha estado ahi el arreglo con los archivos, lo curioso es que con msglist me los muestra bien pero con xbrowse se vuelve loco con los nombres mostrando solo "Binary" en cada elemento, agrega la ultima linea a tu ejemplo y veras:

Code: Select all  Expand view

aFile = oFTP:Directory( "html/basura/*.*" )
 AEval( aFile, { | aFile | AAdd( adir, aFile[1]) } )
 MsgList( adir, "Directorio FTP" )
 xbrowse( adir, "Directorio FTP" ) //<----------
 

Gracias.

[ruben Dario]

AMIGO Jhonson, ando probando tu rutina y me da error en estas funciones

tIPClientFtp()
turl()

esas son propias tuyas o de que serian, gracias

Alex Tu tienes el codigo que te funciona o es el mismo publicado en esta pagina,
Lo que entiendo es que sirbe para enviar o recibir archivos. No se si es factible que me lo facilites.
Gracias de Antemano


Viendo ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,cDocNit,oFtp)
Estos paremetros
cNomSer = Nombre del Servidor o IP
cNomUsr = Usuario de red
cClaUsr = Password
oFtp =
cDocNit = este para que es.

No se si puedo implemetar , quiero mostrar una serie de archivos con xbrowse y que el usuario seleccione el que quiere bajar.

[CARLOALBATUN]

Hola tengo necesidad de implementar un modulo en el arranque de mi aplicacion que verifique en mi ftp la version de la aplicacion y baje el archivo a la pc baje tu aplicacion y funciona bien e implementado los archivos Proc9992.prg, Proc9994.prg, tip.lib me carga los archivos los visualizo los selecciono pero no baja hace el proceso como si estuviera bajando pero no aparece el archivo, lo que necesito es señalar directamente un archivo y que lo baje pero algo parece ser qe esta mal o me falta.

FWH12.02+xHarbour 1.2.1+BCC6.3+WIN7

Gracias por la atencion

[jll-fwh]

Hola Carlo:

En mi blog tienes el programa pFTP con el codigo fuente incluido para manejar servidores FTP mediante las funciones de Harbour.

Puedes descargarlo en:
http://javierlloris.blogspot.com.es/2012/04/programa-pftp_25.html

Un saludo
JLL

[CARLOALBATUN]

Mi pequeño aporte a bajar archivos de FTP


Procedure BajarFilesFtp(eDlg)
cServer := '31.170.160.81'
cUser := 'yyyyyy''
cpassword:= 'XXXXXXX
cUrl := "ftp://"+cUser+":"+cpassword+"@"+cserver

eDlg:cMsg:="Conectando con el servidor ...."
eDlg:refresh()
Sysrefresh()


cUser:= strtran(cUser,"@","&at;")

oUrl := tUrl():New( cUrl )
IF At( "@", cUser ) > 0
oUrl:cUserID := strtran(cUser,"&at;","@")
oUrl:cPassword := cPassword
ENDIF

oFTP := tIPClientFtp():New( oUrl )

oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .T.

If oFTP:Open( )
eDlg:cMsg:="Bajando actualizaciones ...."
eDlg:refresh()
Sysrefresh()

oFtp:cwd("casoft")
aFiles := oFtp:listFiles()
cRoot := aFiles[4,1]
If !(oFtp:DownLoadFile( ".\Tmp.exe","casoft/"+aFiles[4,1] ) )
MsgStop( "Fallo la actualizacion del Sistema","Error..." )
EndIf
oFtp:Close()
WinExec( '.\update.exe '+ cRoot )
PostQuitMessage(0)
QUIT
ENDIF
RETURN

[cuatecatl82]

Saludos a todos:

Después de 1 año re-abro este post, estoy usando la clase y los ejemplos publicados por Javier LLoris Roig para el uso del FTP para actualizaciones, ya lo tengo casi todo adaptado a mi Sistema, pero me tope con pared con el asunto de obtener la fecha de los archivos que estan contenidos en el servidor, desde el ejemplo tal y cual lo comparte Javier lo compilo sin problemas y funciona tal cual debe ser.

Pero en mi sistema no me muestra la fecha de los archivos, aqui la imagen:



He detectado que el fallo radica en el metodo ListFiles, pues si le agrego esta linea a la Clase

Code: Select all  Expand view

 aFiles := ::oFtp:ListFiles( cPath )
MSGStop(aFiles[1,3],"Fecha")   // Obteniendo la fecha de 1 archivo
 

Compilado el ejemplo de Javier me retorna la fecha correcta, pero si lo compilo con mi proyecto retorna vacio.

Trasteando y comparando los códigos descubri que tenia declarado en los Sets de mi Sistema SET FIXED ON y esto hacia que este fallo ocurriera, ahora ya trabaja como debe. una raya más para el tigre, por si a alguien le sirve..


Saludos.

[cuatecatl82]

Saludos amigos del foro, aqui voy de nuevo:




Encontre otro detalle en las fechas y horas en los archivos alojados en un servidor FTP: Si se dan cuenta con CuteFTP los muestra correcto, con mi Sistema y la utilidad pFTP de Javier LLoris Roig las fechas estan desfazadas 1 semana adelante, alguien ha detectado este fallo, ¿Cómo podría solucionarse?

Además de que no respetados la fecha y hora de creación de los archivos, pues devuelve la fecha y hora de alojamiento en el servidor. ¿Esto es corecto?

Quedo en espera de respuesta para despejar mis dudas.....