ERROR al compara archivos FTP

[pruz]

Buenas amigos.
Estoy haciendo una aplicacion FTP, para subir archivos a un servidor

Necesito compara o saber si ya el archivo existe en el servidor donde voy a subirlo.

Pero me da el siguiente error "connection closed gracefully". Estoy usando Indy y el comando List. y delphi 7.
Ya verifique que la coneccion esta abierta, ya verifique el directorio donde esta la informacion.
he qui el codigo

Código Delphi [-]
   if ftp.Connected then begin
      ya_existe := False;
      FileList := TStringList.Create;

      FTP.ChangeDir(sruta);

      FTP.List(FileList, '*.pdf',True); ///aqui me da el error

      for I := 0 to FileList.Count - 1 do  begin
        if SameText(FileList.Strings[i], sArchivo) then    begin
          ya_existe := True;
          Break; // Encontramos el archivo, salimos del bucle
        end;
      end;
   end;

Gracias.

[navbuoy]

deberias primero hacer un List() normal para luego comprobar la estructura de listing de archivos

te paso un codigo a ver si sacas algo en claro, (RUTA_HOSTING es una cadena mia propia donde pongo el directorio, ajustalo como tu veas)

AnsiString RUTA_HOSTING = "RECROAK_GAME";

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

procedure VerificarArchivoFTP(IdFTP1: TIdFTP; const ArchivoABuscar: string);
var
  i: Integer;
  ExisteEnServidor: Boolean;
begin
  ExisteEnServidor := False;

  try
    IdFTP1.Connect;
    IdFTP1.ChangeDir('/'); //Se situa en el Raiz del hosting
    IdFTP1.ChangeDir('RUTA_HOSTING'); // Reemplazá por tu ruta
    IdFTP1.List;

    for i := 0 to IdFTP1.DirectoryListing.Count - 1 do
    begin
      if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then
      begin
        if AnsiCompareText(IdFTP1.DirectoryListing.Items[i].FileName, ArchivoABuscar) = 0 then
        begin
          ExisteEnServidor := True;
          Break;
        end;
      end;
    end;

    if ExisteEnServidor then
      ShowMessage('El archivo ya existe en el servidor.')
    else
      ShowMessage('El archivo no existe. Se puede subir.');
  // Aquí hacés el Put
  // IdFTP1->Put(".\\data\\Game_Design_Document.pdf");

  finally
    IdFTP1.Disconnect;
  end;
end;

�� Cómo usarlo:
Llamalo así desde un botón, por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  VerificarArchivoFTP(IdFTP1, 'miarchivo.pdf');
end;

[navbuoy]

perdona si algunas cosas siguen la convencion de C++ Builder, es que he tenido que convertirlo, yo programo en C++ Builder

[pruz]

navbuoy,
gracias por responder, pero me sigue dando el mismo error

Código Delphi [-]
if ftp.Connected then begin
      
      ExisteEnServidor := False;

      FTP.ChangeDir('/');
      FTP.ChangeDir(sruta);
      FTP.List;          ///aqui me da el mismo error

     for i := 0 to FTP.DirectoryListing.Count - 1 do begin
        if FTP.DirectoryListing.Items[i].ItemType = ditFile then begin  //supongo que el ditFile es type de archivo
        if AnsiCompareText(FTP.DirectoryListing.Items[i].FileName, sArchivo) = 0 then
        begin
          ExisteEnServidor := True;
          Break;
        end;
     // end;
    end;

    if ExisteEnServidor then
      ShowMessage('El archivo ya existe en el servidor.')
    else
      ShowMessage('El archivo no existe. Se puede subir.');

gracias

[navbuoy]

prueba a configurar estas propiedades del componente IdFTP

tambien podria ser que Firewall o antivirus bloquea puertos pasivos
A veces parece que conecta pero al hacer List cierra la sesión.

FTP.Passive := True;
FTP.TransferType := ftBinary;
FTP.ListFormat := flUnix;

si, ditFile indica que es un archivo y no un directorio

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

Yo lo tengo configurado de esta forma:

Código Delphi [-]
  IdFTP.Passive := True;
  IdFTP.TransferType := TIdFTPTransferType.ftBinary;

Y con el código que ves más abajo (muy similar al tuyo) me funciona perfectamente.

Código Delphi [-]
var
  items:TIdFTPListItems;
...
begin
...
  try
    // Cargar contenido
    IdFTP.List;
    items := IdFTP.DirectoryListing;
    for i := 0 to (items.Count - 1) do begin
      item := idftp.directorylisting.Items[i];
      if (item.ItemType = ditFile) and AnsiContainsText(AnsiString(Item.FileName), AnsiString(MiFichero)) then begin
        ...

[pruz]

Buena tardes amigos:

Queria agredecer sus consejos, pero aun me sigue dando el mismo error en el momento codigo "TIdFtp.list".(error "connection closed gracefully")

Pero ademas no me reconoce el comando "IdFTP.TransferType := TIdFTPTransferType.ftBinary" o "IdFTP.TransferType := ftBinary".

[Error] UFrmFtp.pas(86): Undeclared identifier: 'TIdFTPTransferType'


Solo hacer una correccion: Estoy usando delphi 6 con Indy 10.

Otra Pregunta puedo hacer una DLL en delphi Tokio?


Saludos

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

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

[navbuoy]

Ese error "Connection Closed Gracefully" en IdFTP 9.0 (Indy Components en Delphi/C++ Builder) significa lo siguiente, dicho sin rodeos:

✅ El servidor FTP cerró la conexión de forma normal y voluntaria — no hubo error de red ni fallo del cliente, pero el servidor decidió que ya no necesitaba mantener la conexión abierta.

�� ¿CUÁNDO pasa esto?
Las causas más comunes:
Tiempo de inactividad (timeout)
El servidor FTP te desconectó porque estuviste demasiado tiempo sin enviar comandos (como NOOP o listar/subir/bajar).

Terminaste una operación y el servidor corta después
Algunos servidores cortan automáticamente tras completar ciertas operaciones si no pedís mantener la sesión.

Agregá un NOOP cada cierto tiempo si vas a mantener la sesión abierta:

IdFTP1->Noop();

Modo pasivo o activo mal configurado
Si el modo de conexión está mal, el servidor puede cerrar la conexión luego de intentar una transferencia fallida.

Desconexión intencional desde el servidor (config)
Algunos servidores están configurados para permitir solo un número limitado de comandos por sesión o tienen límites estrictos de tiempo.

Cierre manual de la sesión
Si llamás a Disconnect() justo después de una operación, este error puede aparecer como parte del cierre.

revisa la propiedad TIMEOUT en el componente, podria ser eso?

y ponle el modo PASIVO ese modo suele ser el habitual mas que el activo

ftBinary está correctamente declarado (normalmente definido en la unidad IdFTP o IdFTPCommon)

quizas (y digo quizas) tengas que usar esto en los units

Código Delphi [-]
uses
  IdAllFTPListParsers;

yo recuerdo que no me funcionaba en C++ Builder y tuve que incluirlo en los includes