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