Ver Mensaje Individual
  #1  
Antiguo 27-11-2012
JAI_ME JAI_ME is offline
Miembro
 
Registrado: ene 2006
Posts: 188
Reputación: 19
JAI_ME Va por buen camino
Crear Hilos de Ejecución con TIdFTP

Buenas tardes, he subido un archivo por ftp con los componentes indy usando el siguiente código

FTP := TIdFTP.Create( nil );
FTP.OnWork := FTPWork;

FTP.Username := miusuario;
FTP.Password := miclave;
FTP.Host := localhost;
try
FTP.Connect;
except
raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
end;
FTP.Put( sArchivo, ExtractFileName( sArchivo ), False );
FTP.Disconnect;
FTP.Free;

Cuando subo un archivo no hay problema, el problema viene cuando intento subir muchos archivos casi que a la ves, me saca el siguiente error

raised exception class EIDSocketError with message 'Socket Error # 10048 Address already in use.'
Process stopped. Use Step or Run to continue.

Hey leído y una posible solución seria crear varios hilos de ejecución. pero a que se refieren con hilos, crear en tiempo de ejecución varios TidFTP ???

Como logra hacer esto o solucionar este problema muchas gracias de ante mano.
__________________
JaiMelendez
Responder Con Cita