Guardar un archivo en sitio web

[maycampana]

Hola a todos!, tengo una aplicación creada con Delphi6 y base de datos Paradox7 que genera el backup correspondiente en .zip, necesito hacer que también se guarde una copia en un sitio web. Estoy viendo los componentes Indy pero no se cual corresponde elegir, MUCHAS GRACIAS al que me pueda orientar, estoy aprendiendo muchos de uds. Saludos

[Casimiro Notevi]

Lo habitual puede ser usar un servidor FTP para alojarlos, así que supongo que tendrás que usar un cliente ftp, creo que TidFTP, si mal no recuerdo.
Haz una búsqueda por clubdelphi, es un tema tratado en diversas ocasiones.

[maycampana]

Empezado por Casimiro Notevi

Lo habitual puede ser usar un servidor FTP para alojarlos, así que supongo que tendrás que usar un cliente ftp, creo que TidFTP, si mal no recuerdo.
Haz una búsqueda por clubdelphi, es un tema tratado en diversas ocasiones.

Gracias por su ayuda, voy a ver que puedo hacer y a investigar sobre ese componente, estoy aprendiendo, cuando lo logre les cuento, mil gracias.

[Neftali [Germán.Estévez]]

Lo suyo (y creo que los más sencillo) es usar los de FTP.
¿Tienes o puedes montar un acceso FTP en el servidor?

[maycampana]

Empezado por Neftali

Lo suyo (y creo que los más sencillo) es usar los de FTP.
¿Tienes o puedes montar un acceso FTP en el servidor?

Gracias Neftali por contestar, tenemos un servidor con el que trabajamos y en el que me dan un sitio para que se guarden automáticamente los backups que los usuarios hacen desde una opción en el programa. No se que componentes usar, solo con IdFTP?, y con qué comando envio un archivo .zip o .rar a ese sitio? Millón de gracias.

[[newtron]]

Hola.

Aquí tienes un ejemplo de envío de un fichero a un servidor ftp usando el componente idFTP:

Código Delphi [-]
         IdFTP1.Host:= NombreDelHost;
         IdFTP1.UserName := NombreUsuario;
         IdFTP1.Password := Password;
         Try
           IdFTP1.Connect;
         except
           ShowMessage('¡ATENCION! Problema de conexion, fichero no enviado');
           Exit;
         end;
         IDFTP1.TransferType:=ftBinary;
         IDFTP1.ChangeDir('CarpetaDestino'); // Ruta fichero destino
         Try
           IDFTP1.Put('C:\RutaOrigen\NombreArchivoOrigen','NombreArchivoDestino');
         except
           ShowMessage('ATENCION! Problema al enviar el archivo');
         end;

Espero que te sirva.
Saludos

[maycampana]

Mil gracias, ya lo voy a probar y despúes les cuento. Gracias por la ayuda que dan.

[maycampana]

Hola newtron, funcionó perfectamente el código que me ofreciste, luego le agreguè una ProgressBar que me hizo renegar bastante pero logré que funcione. Ahora necesito poner en la línea del IdFTP1.Put( ) una ruta que no sea fija, debería utilizar ExtractFilePath o algo así ? Además el nombre del archivo también debería extraerlo porque en la aplicación el usuario puede guardar su backup con el nombre que quiera .zip . Bueno muchas gracias, me ayudan un montón con su sabiduría.