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.