ERROR al compara archivos FTP

[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