FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Despues de mucho buscar dentro del foro pude ubicar este hilo, que es justamente lo que ando buscando, comparar la fecha de un archivo con otra que esta en un PC, eso si el problema que tengo ahora es que al intentar conectar dice "invalid point operation" alguna idea de que podria estar pasando????
Estoy usando Delphi 2007, el nombre de usuario y la contraseña son validos, los uso en un programa de FTP que tengo para subir los archivos al servidor, estoy considerando mayusculas y minusculas por si acaso manejo re poco los componentes Indy Saludos y Gracias por su tiempo |
#2
|
|||
|
|||
Simplemente agregue un componente idftp y elimine la variable que lo crea (self) y ahora funciona, el "changedir" tampoco funciono pero con sendcmd si funciona, el problema de ahora es que el list no funciona
|
#3
|
|||
|
|||
Este es el codigo que estoy usando pero cuando llega el minuto de armar la lista de archivos se cae y no logro encontrar el problema
Estoy usando Delphi 2007 con las librerias Indy que trae, nombre de usuario y clave funcionan, no se me ocurre que otro dato agregar para que tengan mas informacion Cualquier ayuda sera bienvenida, Saludos y Gracias por su tiempo Código:
var Archivos:TStringList; begin Archivos := TStringList.Create; Archivos.Clear; IdFTP.Username := 'usuario'; IdFTP.Password := 'contraseña'; IdFTP.Host := 'ftp.servidor.com'; IdFTP.Connect; // Conectamos... if idftp.Connected then begin try Idftp.SendCmd('CWD /var/www/html/programas/'); Edit1.text:=Idftp.RetrieveCurrentDir; IdFTP.List(Archivos,'',false); //probe tambien con IdFTP.List(Archivos,'*.*',false); y con IdFTP.List(Archivos,'*.*',true); if (IdFTP.DirectoryListing <> nil) then ShowMessage(DateTimeToStr(IdFTP.DirectoryListing.Items[0].ModifiedDate)) else raise Exception.Create('Asegúrate que el archivo exista en el Servidor'); except Archivos.Free; showmessage('no se pudo cambiar la carpeta'); end; end; IdFTP.Disconnect; Archivos.free; Última edición por tocomi fecha: 27-01-2009 a las 21:08:40. |
#4
|
|||
|
|||
Alguien seria tan amable de traducirme esto al español???, seria ideal un ejemplo, es un comando de Indy 10.1.1 que es la que trae Delphi 2007
ChangeDir(AContext: TIdFTPServerContextBase,var VDirectory: string ) |
|
|
|