Ver Mensaje Individual
  #6  
Antiguo 30-11-2011
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.478
Reputación: 21
newtron Va camino a la fama
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
__________________
Be water my friend.
Responder Con Cita