Crear Hilos de Ejecución con TIdFTP

[JAI_ME]

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.

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[JAI_ME]

Gracias casimiro, lo tendré en cuenta para la próxima.

[[movorack]]

Hola JAI_ME

Para el tema de los hilos de ejecución, te recomiendo leas un poco al respecto.

- Los Hilos de Ejecución
- Threading in Delphi

Eso te dará algunas ideas de como implementar lo que necesitas sobre los hilos de ejecución o te aclarará si necesariamente los requieres para solucionar tus problemas.

[Casimiro Notevi]

De todas formas, si quieres hacerlo con lo que tienes ahora, puedes controlar al llamar a esa función si ya está enviando algo, en ese caso esperas.
Puedes meter todos los envíos en una cola, una simple lista, y un timer que vaya comprobando si ya acabó de enviar, en cuanto está libre entonces envía el siguiente de la cola, y hasta que se terminen todos.

[JAI_ME]

Empezado por Casimiro Notevi

De todas formas, si quieres hacerlo con lo que tienes ahora, puedes controlar al llamar a esa función si ya está enviando algo, en ese caso esperas.
Puedes meter todos los envíos en una cola, una simple lista, y un timer que vaya comprobando si ya acabó de enviar, en cuanto está libre entonces envía el siguiente de la cola, y hasta que se terminen todos.

Ya estoy estudiando el caso de los hilos, pero es interesante lo que comentas, a manera de ejemplo estoy haciendo lo siguiente.

En un boton tengo el siguiente código donde hago la llamada al procedimiento que envia al servidor

procedure TForm1.Button1Click(Sender: TObject);
begin
for i := 1 to 10000 do begin
SubirArchivo('C:\mi_archivo.jpg');
Caption := inttostr(i);
end;
end;

como se dan cuenta envío el mismo archivo al servidor y hay veces que envía mas de 1000 archivos sin sacar el error, en este ejemplo como implemento lo que me comentas.

PD. la función subirArchivo tiene el código que expuse al principio.