Ayuda con trasferencia de datos v

[Carlos Ortiz]

Tengo que hacer un programa para bajar y subir datos a un servidor FTP, lo
tenia hecho con fivewin básico, ahora con xailer quiero hacer algo residente
y que se actualicen ciertas listas de precios de mis clientes de manera mas
cómoda y automatica, pensaba en algo similar al norton antivirus por ejemplo
que se actualiza solo.
Los archivos a bajar son TXT, DBF, ZIP y por ahi un EXE que haga algunas
tareas de mantenimiento del sistema.
Cualquier ayuda sera bienvenida.
Gracias.

[jfgimenez]

Carlos,
> Tengo que hacer un programa para bajar y subir datos a un servidor FTP, lo
> tenia hecho con fivewin básico, ahora con xailer quiero hacer algo
> residente y que se actualicen ciertas listas de precios de mis clientes de
> manera mas cómoda y automatica, pensaba en algo similar al norton
> antivirus por ejemplo que se actualiza solo.
>
> Los archivos a bajar son TXT, DBF, ZIP y por ahi un EXE que haga algunas
> tareas de mantenimiento del sistema.
Bueno, la idea de "residente" en windows no es la misma que en MS-DOS. Lo
que tienes que hacer es usar la clase TNotifyIcon para mostrar un icono en
el área de notificación, y ocultar la ventana principal. Por otro lado, sólo
tienes que usar la clase TFtp para subir o bajar archivos archivos, y si
tienes la versión 'enterprise' también puedes usar TAsynFileDownload para
descargar archivos en un segundo hilo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Carlos Ortiz]

Que tal José,
Sobre lo de la tray, todo bien ya hice un par de cositas y bárbaro, ahora
con la TFtp no me fue tan bien, primero me pregunto si me debo conectar al
ftp por medio de TInternet ya que vi que ahi puedo ingresar la direccionn
ftp 200.58..... y si es servidor FTP y demas pero no he podido hacerlo andar
por ende ni pude probar una instruccion del resto de metodos del ftp ,
tampoco se como se envian los comandos, conozco de comandos ftp pero como no
me pude conectar tampoco los pude probar.
Te agradeceria si tenes un ejemplo de como conectarme a un ftp para bajar y
subir archivos, de todas maneras voy a seguir leyendo mas, no quiero robarte
tu tiempo con esto puedo seguir dando vueltas unos dias mas, debes tener
cosas mas urgentes. Todo bien.
Muchas gracias.
Saludos al foro.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:46c0b692$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
>> Tengo que hacer un programa para bajar y subir datos a un servidor FTP,
>> lo tenia hecho con fivewin básico, ahora con xailer quiero hacer algo
>> residente y que se actualicen ciertas listas de precios de mis clientes
>> de manera mas cómoda y automatica, pensaba en algo similar al norton
>> antivirus por ejemplo que se actualiza solo.
>>
>> Los archivos a bajar son TXT, DBF, ZIP y por ahi un EXE que haga algunas
>> tareas de mantenimiento del sistema.
>
> Bueno, la idea de "residente" en windows no es la misma que en MS-DOS. Lo
> que tienes que hacer es usar la clase TNotifyIcon para mostrar un icono en
> el área de notificación, y ocultar la ventana principal. Por otro lado,
> sólo tienes que usar la clase TFtp para subir o bajar archivos archivos, y
> si tienes la versión 'enterprise' también puedes usar TAsynFileDownload
> para descargar archivos en un segundo hilo.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
>

[jfgimenez]

Carlos,
lo siguiente es un trozo de código del programa que nosotros utilizamos para
subir actualizaciones a nuestro FTP. Es un trozo incompleto, es decir, no te
vale con copiarlo y ya está. Pero te sirve para ver cómo se usa la clase
TFtp().
WITH OBJECT TFtp():Create( Self )
:cUser := "............"
:cPassword := "............"
IF !:Open() .OR. !:Connect( "www.xailer.com" )
MsgAlert( "No se pudo conectar con el servidor FTP, proceso
abortado" )
:Close()
Application:lBusy := .F.
::lEnabled := .T.
RETURN NIL
ENDIF
// Subimos el archivo ZIP y el archivo update
::oLblEstado:cText := "Subiendo archivo ZIP de actualizaciones ..."
::oPgbEstado:nValue ++
ProcessMessages()
// Comprobamos si existe el archivo ZIP (alguien se nos ha adelantado)
IF ( hFile := :OpenFile( "/html/files/updates/" + cZipName +
".zip" ) ) != 0
MsgAlert( "Alguien ha subido el archivo ZIP que iba a subir usted
repita el proceso en cinco minutos, proceso abortado" )
Ferase( ::cZipFile )
Ferase( cUpgFile )
:Close()
Application:lBusy := .F.
::lEnabled := .T.
RETURN NIL
ELSE
:CloseFile( hFile )
ENDIF
// Subimos el ZIP
IF !:PutFile( ::cZipFile, "/html/files/updates/" + cZipName + ".zip" )
MsgAlert( "No se pudo subir el fichero ZIP de actualizciones,
proceso abortado" )
Ferase( ::cZipFile )
Ferase( cUpgFile )
:Close()
Application:lBusy := .F.
::lEnabled := .T.
RETURN NIL
ENDIF
// Subimos el archivo de actualizaciones
::oLblEstado:cText := "Subiendo archivo TXT de actualizaciones ..."
::oPgbEstado:nValue ++
ProcessMessages()
IF !:PutFile( cUpgFile, "/html/files/updates/upg" + ::cVersion +
".txt" )
MsgAlert( "No se pudo subir el fichero TXT de actualizciones,
debería borrar el archivo " + cZipName + ".ZIP manualmente, proceso
abortado" )
Ferase( ::cZipFile )
Ferase( cUpgFile )
:Close()
Application:lBusy := .F.
::lEnabled := .T.
RETURN NIL
ENDIF
Ferase( cUpgFile )
:Close()
END WITH
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Carlos Ortiz]

Muchas gracias Jose, con tu ayuda ya estoy subiendo datos a mi ftp, mañana
me pondré con la descarga de archivos.
///
Una observación o comentario, con servidores FTP que tienen sistema
operativo MicroSoft no termina bien de subir, es decir cuando son archivos
de 500 kb o mas es como que no sabe si termino o no y queda la conexion
abierta, probé con servidores FTP Unix / Linux y anda como por un caño,
termina justamente cuando se carga la totalidad del archivo, no es que suban
rotos sino que queda como esperando algo y no cierra.
///
Pregunta, se podrá poner una progressbar para que me vaya indicando el
porcentaje descargado del archivo en curso o es mucho pedir.
-------------------------
Saludos y muchas gracias nuevamente

[jfgimenez]

Carlos,
> Muchas gracias Jose, con tu ayuda ya estoy subiendo datos a mi ftp, mañana
> me pondré con la descarga de archivos.
> ///
> Una observación o comentario, con servidores FTP que tienen sistema
> operativo MicroSoft no termina bien de subir, es decir cuando son archivos
> de 500 kb o mas es como que no sabe si termino o no y queda la conexion
> abierta, probé con servidores FTP Unix / Linux y anda como por un caño,
> termina justamente cuando se carga la totalidad del archivo, no es que
> suban rotos sino que queda como esperando algo y no cierra.
> ///
Quizás estás enviando el fichero como ASCII y es binario. Prueba a cambiar
la transferencia a binaria con la propiedad nTransferType.
> Pregunta, se podrá poner una progressbar para que me vaya indicando el
> porcentaje descargado del archivo en curso o es mucho pedir.
El problema es que las transferencias se realizan actualmente en modo
síncrono, es decir, hasta que no termina la transferencia del fichero no
retorna de la función. Por eso no se puede lanzar un evento que vaya
indicando el progreso.
En la clase TAsynFileDownload, sí que existe el evento OnTotalDnLoadInfo que
es llamado periodicamente y que se puede usar para mostrar una barra de
progreso. Pero es que esta clase realiza su trabajo de forma completamente
asíncrona. Más adelante veremos si podemos también crear una clase para FTP
en modo asíncrono.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[notengo]

Carlos,
el ejemplo adjunto muestra como subir un archivo por partes y, al mismo
tiempo, mostrar una barra de progreso.
Es fácil adaptarlo para descargar, pero si tienes algún problema en hacerlo
no dudes en decí­rmelo.
Por cierto, el ejemplo está escrito al vuelo y no lo he probado.
Saludos,
José Lalí­n
--

[Carlos Ortiz]

Muchas gracias José, apenas puedo lo pruebo. Hice un pero sin barra de
progreso. Me interesa mucho sino los usuarios se me ponen como locos cuando
nada se mueve. Vió como son...
Saludos y muy atento de tu parte.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:46cc3c25$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Carlos,
>
> el ejemplo adjunto muestra como subir un archivo por partes y, al mismo
> tiempo, mostrar una barra de progreso.
>
> Es fácil adaptarlo para descargar, pero si tienes algún problema en
> hacerlo
> no dudes en decírmelo.
>
> Por cierto, el ejemplo está escrito al vuelo y no lo he probado.
>
> Saludos,
> José Lalín
>

[notengo]

Carlos,
> Muchas gracias José, apenas puedo lo pruebo. Hice un pero sin barra de
> progreso. Me interesa mucho sino los usuarios se me ponen como locos cuando
> nada se mueve. Vió como son...
He pensado que quizá prepare un ejemplo para subir y bajar archivos y luego
publique un artí­culo en el blog de Xailer sobre este asunto.
> Saludos y muy atento de tu parte.
De nada.
Saludos,
José Lalí­n

[Carlos Ortiz]

Estaría barbaro un ejemplo mas completo de tu parte, por lo menos para mi
que soy nuevo en Xailer.
Actualmente tengo algo que me saca del apuro hecho con FiveWin via shocket
pero seria mejor realizar algo en Xailer que este disponible en la tray de
windows y avisos en pantalla.
Actualmente tengo un FTP con unos archivos de precios, en los clientes corro
la aplicacion que actualiza y recorre el directorio con un directory() de
dicho ftp, arma un array y se fija en la carpeta SistemUpdate del cliente
para ver que lo que falta y baja los archivos que no exista, luego los
procesa y termina.
A esto lo tengo funcionando con algunas limitaciones en fivewin, por ahora
safo.
Si lo que tengo sirve te lo mando por mail privado. Si queres que haga
pruebas con algo avisame.
Lo que he probado hasta ahora es con servidores ftp windows y linux y me
parece que mudare lo mio a un servidor linux por que con el windows anda
mal.
Gracias y saludos.
Carlos Ortiz.

[notengo]

Carlos,
en cuanto tenga algo de tiempo libre te aviso e intentamos hacer algo.
> Estarí­a barbaro un ejemplo mas completo de tu parte, por lo menos para mi
> que soy nuevo en Xailer.
En cuanto pueda lo preparo.
> Actualmente tengo algo que me saca del apuro hecho con FiveWin via shocket
> pero seria mejor realizar algo en Xailer que este disponible en la tray de
> windows y avisos en pantalla.
Tienes un ejemplo de cómo usar un NotifyIcon en samplesNotifyIcon.
Saludos,
José Lalí­n

[Paco V]

No se a los demas, pero a mi si es sencillo me vendria de pelicula.
Paco V
=?ISO-8859-1?Q?Jos=E9_Lal=EDn?= <notengo@correo.com> wrote:
>
>Carlos,
>
>en cuanto tenga algo de tiempo libre te aviso e intentamos hacer algo.
>
>> Estaría barbaro un ejemplo mas completo de tu parte, por lo menos para
mi
>> que soy nuevo en Xailer.
>
>En cuanto pueda lo preparo.
>
>> Actualmente tengo algo que me saca del apuro hecho con FiveWin via shocket
>> pero seria mejor realizar algo en Xailer que este disponible en la tray
de
>> windows y avisos en pantalla.
>
>Tienes un ejemplo de cómo usar un NotifyIcon en samplesNotifyIcon.
>
>Saludos,
>José Lalín

[notengo]

Paco,
> No se a los demas, pero a mi si es sencillo me vendria de pelicula.
He pensado en hacer un pequeño ejemplo de subida y bajada con TFtp y luego,
cada uno que lo adapte a sus necesidades particulares.
Saludos,
José Lalí­n

[Rolando]

Seria genial, gracias.
Saludos
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:46d2ca4e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Paco,
>
>> No se a los demas, pero a mi si es sencillo me vendria de pelicula.
>
> He pensado en hacer un pequeño ejemplo de subida y bajada con TFtp y
> luego, cada uno que lo adapte a sus necesidades particulares.
>
> Saludos,
> José Lalín