transferir archivo zip a un servidor web

[maycampana]

Hola a todos, estoy contenta porque funciona mi transferencia de backup gracias al código que me brindaron (como usar el componente idFTP). Pero ahora me encontré con otro inconveniente, necesito saber cuando termina la transferencia para así poder cerrar la ventana o el programa. Mil millón de gracias.

[newtron]

Hola.

Imagino que si después de la instrucción de enviar/recibir el fichero pones un Application.ProcessMessages la aplicación no continuará hasta que no esté el fichero enviado/recibido.

Saludos

[Delfino]

Mira el evento OnWorkEnd y OnStatus del componente IdFtp..

[maycampana]

Hola Amigos, ya he agregado ApplicationProcess aunque no se bien como se usa pero ya funciona mi subida de archivo a Ftp gracias a la ayuda que me dieron. Me gustaría agregarle la ProgressBar que tampoco se como se usa, si alguien quiere y puede apuntarme algo, muchísimas gracias.

[newtron]

Hola.

Para esto se puede hacer usando el evento OnWork del componente. Echa un vistazo a esto (http://www.clubdelphi.com/foros/showthread.php?t=56434&highlight=onwork) y si no haz una búsqueda por este termino que encontrarás más links.

Saludos

[maycampana]

Gracias newtron y delfino por sus apotes, les comento que al final funciona con este simple código
begin
progressbar1.Position := 0;
While progressbar1.Position < progressbar1.Max do
progressbar1.StepIt;
end;
pero por supuesto, no anda del todo bien, el inconveniente es que corre más rápido que un bombero. Debería cambiarle el valor a la propiedad Step o con que la apaciguo? En Step tengo 1, Max 10000 y Min 0. Gracias amigos.

[maycampana]

Gracias newtron y delfino por sus apotes, les comento que al final funciona con este simple código
begin
progressbar1.Position := 0;
While progressbar1.Position < progressbar1.Max do
progressbar1.StepIt;
end;
pero por supuesto, no anda del todo bien, el inconveniente es que corre más rápido que un bombero. Debería cambiarle el valor a la propiedad Step o con que la apaciguo? En Step tengo 1, Max 10000 y Min 0. Gracias amigos.

[newtron]

¿Y dónde has puesto ese código?

[kapcomx]

???? no entiendo ???? :confused:

[newtron]

Hola.

Te contesté a tu hilo original hace uno o dos días, no deberías abrir más hilos para el mismo tema y, por supuesto, con este nuevo hilo la gente que lo lea no tendrá ni remota idea de lo que estás hablando. (Todo esto es de buen rollito :))

Deberías echar un vistazo a la guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

[Casimiro Notevi]

Unidos :)
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración.