Como se usa el IDFTP

[dec]

Hola,

Puedes utilizar, básicamente, el método "Put" del componente. Al contrario que el método "Get", sirve para subir archivos al Servidor FTP. A continuación se muestra cómo podría crearse uno de estos componentes y utilizarlo para subir un archivo a un Servidor FTP.

Código Delphi [-]
uses
   IdFTP;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   clienteFtp: TIdFTP;
 begin
   clienteFtp := TIdFTP.Create(Self);
   try
     with clienteFtp do
     begin
       Username := 'MRSAM';
       Password := '*****';
       Host := 'ftp.servidor.com';
       Connect; // Conectamos
       // Creamos un nuevo directorio
       SendCmd('MKD nuevoDirectorio');
       // Nos desplazamos al mismo
       SendCmd('CWD nuevoDirectorio');
       // Subimos un archivo al nuevo directorio
       Put('C:\archivo.txt', 'archivo.txt');
       Disconnect; // Desconectamos
     end;
   finally
     clienteFtp.Free;
   end;
 end;