Error con put del componente TIDFTP en Delphi5
 

Buenas tardes compañeros

Me esta sucediento un error con el componente TIDFtp al realizar la acción put en Delphi5.

El código es el siguiente

Código Delphi [-]
var
  sArchivo: string;
begin
  try
    FTP.Username := 'XXXXXX';
    FTP.Password := 'XXXXXX';
    FTP.Host := 'XXXXXX';
    FTP.Port := 21;
    FTP.Connect;
    ShowMessage('Conecto de forma correcta.');
    FTP.ChangeDir('/public_html/');
    sArchivo:='XXXXXX';
    FTP.Put(sArchivo, ExtractFileName( sArchivo ), False );
    ShowMessage('Subio.');
    FTP.Disconnect;
  except
    raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
  end;

AL realizar la linea FTP.Put me tira el error access violation 0x0040740b read of address 0xa8445ced, url captura del error (https://ibb.co/hyrxff)



Si alguien puede ayudarme se lo agradecería.

En principio no parece haber motivo para ese error.

Lo único "anormal" es la ruta tipo *nix del directorio: '/public_html/'
¿Seguro que se produce el error en la línea que mencionas?

¿Has ejecutado paso a paso?
¿Sabes en qué línea exacta de da la Violación de acceso?
¿Conectas a FTP o FTPS?

Si es en la linea que digo en el Put, le realizo paso a paso y en tal linea tira el error, uso Indy 10.0.52 en delphi5, porque pruebo el codigo en un editor de XE8 y funciona correctamente, pero en delphi 5 me tira el error mencionado anteriormente. Ya desinstale los Indy y los instale nuevamente pero el error continua. Y requiero que me funcione en delphi 5.

¿Es la misma versión de indy?

Si utilizo la misma version.

Quita el try except para ver qué mensaje de error es el que da realmente.

El error que tira es el adjuntado en la imagen.

Entonces hay que insistir en la pregunta: ¿seguro que el error es ahí?

Sólo se me ocurre que haya una incompatibilidad entre verisones.
Un "Access Violation" como te está dando es porque se está accediendo a una zona de memoria no permitida. Tu código parece que está correcto (lo que se confirma que en una versión posterior funcione).

Por lo tanto me hace pensar que sean las Indy. Como están muy probadas y un PUT no debería fallar, me inclino a que es problema de incompatibilidad. Delphi 5 es bastante antiguo y no se si compatrble 100% con la indy 10.
No comentas si estás utilizando otras librerías (OpenSSL, per ejemplo). Imagino que no, porque no lo comentas. Si fuera que sí, puede ser otro punto para buscar problemas.

No solo estoy utilizando las Indy para ello. Igual muchas gracias por las apreciaciones.