ERROR al compara archivos FTP

[Neftali [Germán.Estévez]]

Para ir descartando cosas.
En el código, al menos en ese trozo, no veo la creación de FileList (imagino que está en otro sitio).

En cuanto al TransferType, prueba a añadir la unit: idFTPCommon

Por ejemplo, este código funciona (al menos no falla en el punto que tú comentas):

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  FTP:TIdFTP;
  ok:boolean;
  FileList:TStrings;
  i:integer;
  sArchivo:string;
begin
     FTP := TIdFTP.Create( nil );
     FTP.Username := 'demo';
     FTP.Password := 'password';
     FTP.Host := 'test.rebex.net';
     FTp.Port := 21;
     FTP.Passive := True;
     FTP.TransferType := ftBinary; 

     sArchivo := 'esteArchivo.pdf'; //nombre del archivo
{    sOrigen  := OpenDialog1.FileName;  //ruta del origen del archivo
     sruta := '\copiar\aqui\' + sArchivo; //ruta destino
}
     FileList := TStringList.Create;
     FTP.Connect;

     try
        if ftp.Connected then begin
           ok := False;
           FTP.ChangeDir('pub');
           FTP.ChangeDir('example');
           FTP.List(FileList, edtExtension.Text,True);  

           ShowMessage(Format('He encontrado <%d> ficheros', [FileList.Count]));           
           for I := 0 to FileList.Count - 1 do  begin
              if SameText(FileList.Strings[i], sArchivo) then // Usa SameText para ignorar mayúsculas/minúsculas
               // if FileList.Items[i] = AFileName then // Usa esto para una comparación sensible a mayúsculas/minúsculas
              begin
               ok := True;
               Break; // Encontramos el archivo, salimos del bucle
             end;
          end;
       end;
     finally
        FileList.Free;
     end;

     if ok then begin
       ShowMessage('Archivo ya existe.');
     end else begin
//          FTP.Put( sOrigen, sRuta, false );  //subir archivo sino existe
     end;

     FTP.Disconnect;
end;

Está compilado en Delphi7 y contra un servidor de prueba de los muchos que hay.
He comentado algunas líneas para la prueba y porque el servidor al ser de pruebas tiene restricciones (como la de no poder subir ficheros), pero para la prueba es suficiente.

Si lo ejecutas te debería dar algún resultado.
Si pruebas con extension "*.*" verás que es capaz de encontrar 16 ficheros, mientras que si pruebas con "*.pdf" obtendrás 0. Pero en ningún caso falla.

[Neftali [Germán.Estévez]]

Si este mismo código que funciona en el de pruebas, falla contra tu servidor, ya sabemos que es una configuración diferente (no es del código).

Aquí tienes una lista de servidores de pruebas, aunque si buscas encontrarás más.
https://www.smartftp.com/es-es/support/kb/2779

Según el servidor puedes probar FTP/SFTP, subidas y bajadas,...

[Casimiro Noteví]

¿En qué versión puedes indicar la máscara de lo que va a listar?
FTP.List(FileList, edtExtension.Text,True);
En la versión que tengo yo, de la indy 10, ahí no va eso.

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

¿En qué versión puedes indicar la máscara de lo que va a listar?
FTP.List(FileList, edtExtension.Text,True);
En la versión que tengo yo, de la indy 10, ahí no va eso.

Yo estoy usando la que viene instalada en Delphi 7.
Lo he probado en una máquina virtual antigua que tenía por ahí.



Ya he encontrado la versión:

Código Delphi [-]
  gsIdProductName = 'Indy';  {do not localize}
  gsIdVersion = '9.00.10';   {do not localize}

[Casimiro Noteví]

Empezado por Neftali [Germán.Estévez]

gsIdProductName = 'Indy'; {do not localize}
gsIdVersion = '9.00.10'; {do not localize}

Cierto, me había confundido.

[pruz]

Hola Amigos:

Bueno probe el codigo de Neftali y me funciono

lo unico que me sigue dando el error "connection closed gracefully" cuando realizo el FTP.List


Pero funciona.

Muchas Gracias

[Casimiro Noteví]

Si es una versión antigua de delphi, pon:

Código Delphi [-]
FTP.TransferType := ftBinary;

[pruz]

Casimiro,

Ya probe con esa opcion y me da error de // Undeclared identifier: FTP.TransferType := ftBinary;


gracias

[Casimiro Noteví]

Empezado por pruz

Casimiro,
Ya probe con esa opcion y me da error de // Undeclared identifier: FTP.TransferType := ftBinary;
gracias

Justamente dijiste lo contrario:

Código Delphi [-]
FTP.TransferType := TIdFTPTransferType.ftBinary;  // Undeclared identifier: 'TIdFTPTransferType'

[Neftali [Germán.Estévez]]

Empezado por pruz

Casimiro,
Ya probe con esa opcion y me da error de // Undeclared identifier: FTP.TransferType := ftBinary;
gracias

¿Pero cuando pones el FTP. te aparece la propiedad?
Tienes acceso al código. ¿Aparece esa propiedad?