Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-09-2005
Avatar de MRSAM
MRSAM MRSAM is offline
Miembro
 
Registrado: may 2003
Ubicación: Guadalajara, Jalisco, Mexico
Posts: 59
Poder: 21
MRSAM Va por buen camino
Unhappy 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 .·.
__________________
J.·.
Responder Con Cita
  #2  
Antiguo 13-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 13-09-2005
Avatar de MRSAM
MRSAM MRSAM is offline
Miembro
 
Registrado: may 2003
Ubicación: Guadalajara, Jalisco, Mexico
Posts: 59
Poder: 21
MRSAM Va por buen camino
Ya pude muchas gracias por su ayuda
__________________
J.·.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:32:00.


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