ERROR al compara archivos FTP

[pruz]

Amigos,

les cuento traspase todo el codigo a Delphi Tokio y me da los mismos errores le envio el codigo correcto para que lo revisen,
a veces nos nublamos tanto; que pueda que sea un error tonto.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdFTP, IdComponent, IdBaseComponent, IdUDPBase,
  IdUDPClient, IdSysLog, ComCtrls, IdEchoUDP;


begin


     FTP := TIdFTP.Create( nil );
     FTP.Username := 'xxxxxx';
     FTP.Password := 'xxxxx';
     FTP.Host := 'xxx.xxx.xxx.xx';
     FTp.Port := xx;
     FTP.Passive := True;
     FTP.TransferType := TIdFTPTransferType.ftBinary;  // Undeclared identifier: 'TIdFTPTransferType'


     sArchivo := 'esteArchivo.pdf' //nombre del archivo
     sOrigen  := OpenDialog1.FileName;  //ruta del origen del archivo

     sruta := '\copiar\aqui\' + sArchivo; //ruta destino

     FTP.Connect;

     try
        if ftp.Connected then begin
           ok := False;
           FTP.List(FileList, '*.pdf',True);   //aqui da el error descrito anteriormente (error "connection closed gracefully")

           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;

las probe en delphi 6 y delphi tokio


Saludos,

[Casimiro Noteví]

Está mal esa línea que muestra el error:

Código Delphi [-]
FTP.List(FileList, '*.pdf',True);

Ahí no puedes indicar que quieres listar los pdf, ahí va el directorio.

Código Delphi [-]
uses
  IdFTP, IdComponent, IdGlobal, SysUtils, Classes;

function ExistePDFEnFTP(Host, Usuario, Clave, Directorio, NombrePDF: string): Boolean;
var
  FTP: TIdFTP;
  ListaArchivos: TStringList;
  i: Integer;
begin
  Result := False;
  FTP := TIdFTP.Create(nil);
  ListaArchivos := TStringList.Create;
  try
    FTP.Host := Host;
    FTP.Username := Usuario;
    FTP.Password := Clave;
    FTP.Connect;

    if Directorio <> '' then
      FTP.ChangeDir(Directorio);

    // Obtener listado de archivos
    FTP.List(ListaArchivos, '', False);

    for i := 0 to ListaArchivos.Count - 1 do
    begin
      // Normaliza el nombre a minúsculas para evitar problemas con mayúsculas
      if SameText(ExtractFileExt(ListaArchivos[i]), '.pdf') then
      begin
        if (NombrePDF = '') or SameText(ListaArchivos[i], NombrePDF) then
        begin
          Result := True;
          Break;
        end;
      end;
    end;

    FTP.Disconnect;
  finally
    ListaArchivos.Free;
    FTP.Free;
  end;
end;

[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;