Estoy tratando de programar un cliente FTP en Delphi, el cual la unica accion a realizar es conectarse - subir archivo - desconectarse.
He intentado programarlo con Indy en Delphi 7 y Delphi 2006 y me da error 10054, tambien intente con los componentes de ICS y se me congela.
Estoy programado ahora en base a el ejemplo que tiene la web de
JM que hace uso directo de wininet y sube el archivo correctamente pero nunca me avisa que subio correctamente y se congela la aplicacion.
Se que subio correctamente ya que consulto con filezilla y si esta arriba el archivo y al descargarlo se ejecuta sin problemas.
Por cierto pensando en que pudiera ser el server he subido el mismo archivo desde filezilla y desde bulletproof y no me da ningun problema.
Este es el codigo que uso para subir los archivos:
Código Delphi
[-]
if ftp.Upload(Edit_File.Text, ExtractFileName(Edit_File.Text)) then
MessageBox(handle, PChar('El archivo local [' + Edit_File.Text + '] ha sido almacenado en "'
+ ExtractFileName(Edit_File.Text) + '".'), 'Envío', MB_ICONINFORMATION)
else
MessageBox(handle, PChar('Ha ocurrido un error durante el envío del archivo:' #10#13
+ ftp.ResponseText), 'Envío', MB_ICONERROR);
A alguien le a pasado lo mismo?
Alguna ayuda?
Agradesco mucho su atencion!!!
Saludos.