Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Como se usa el IDFTP (https://www.clubdelphi.com/foros/showthread.php?t=25138)

MRSAM 13-09-2005 19:35:16

Como se usa el IDFTP
 
Hola amigos del club ... asi como viene mi pregunta es real.. resulta que estoy haciendo una aplicacion la cual una de sus funciones es poder almacenar en un servidor FTP unas imagenes que se asignan remotamente, el detalle es que no tengo la mas remota idea de como se usa este componente, ya estube viendo algunos ejemplo que vienen en la pagina de los indy pero no me sacaron de una duda.. alguien poejemplo me puede decir que instruccion se usa para subir un archivo... lo unico que necesito es que se conecte suba un archivo y se desconecte, no ocupo listas ni nada por el estilo.

Espero me puedan ayudar .·.

dec 13-09-2005 20:19:55

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;

MRSAM 13-09-2005 20:29:58

Ya pude muchas gracias por su ayuda


La franja horaria es GMT +2. Ahora son las 15:41:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi