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
|