Enviar/Recibir archivos via ftp [ SOLVED ]

User avatar
jll-fwh
Posts: 385
Joined: Fri Jan 29, 2010 8:14 pm
Location: Meliana - Valencia
Contact:

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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
Libreria: FWH/FWH1109 + Harbour 3.1.1 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA + OURXDBU -
S.O: XP / Win 7
Blog: http://javierlloris.blogspot.com.es/
e-mail: jllorispersonal@gmail.com
User avatar
RodolfoRBG
Posts: 253
Joined: Tue May 16, 2006 4:46 pm
Location: San Luis Potosi, SLP, Mexico
Contact:

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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

aFile = oFTP:Directory( "html/basura/*.*" )
 AEval( aFile, { | aFile | AAdd( adir, aFile[1]) } )
 MsgList( adir, "Directorio FTP" )
 xbrowse( adir, "Directorio FTP" ) //<----------
 
Gracias.
RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
User avatar
ruben Dario
Posts: 986
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by ruben Dario »

QAZWSX2K wrote: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.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
CARLOALBATUN
Posts: 8
Joined: Fri Aug 17, 2012 9:03 pm

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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
Fwh12.02+xHarbour 1.2.1+Bcc6.3+xMate 1.15+Win7
User avatar
jll-fwh
Posts: 385
Joined: Fri Jan 29, 2010 8:14 pm
Location: Meliana - Valencia
Contact:

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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/201 ... tp_25.html

Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 3.1.1 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA + OURXDBU -
S.O: XP / Win 7
Blog: http://javierlloris.blogspot.com.es/
e-mail: jllorispersonal@gmail.com
CARLOALBATUN
Posts: 8
Joined: Fri Aug 17, 2012 9:03 pm

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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
Fwh12.02+xHarbour 1.2.1+Bcc6.3+xMate 1.15+Win7
User avatar
cuatecatl82
Posts: 614
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México
Contact:

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by 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:

Image

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

Code: Select all

 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. :roll: :roll:
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
Posts: 614
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México
Contact:

Re: Enviar/Recibir archivos via ftp [ SOLVED ]

Post by cuatecatl82 »

Saludos amigos del foro, aqui voy de nuevo:

Image


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..... :roll: :roll:
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Post Reply