Componente Indy (IndyFtpServer)

[Joviali]

Buenas tardes, utilizo el componente IndyFtpServer por el cual me conecto a un ftp donde puede descargar y cargar archivos.Tengo una aplicación que se conecta por ftp , el problema viene cuando ese servidor esta saturado y al parecer mi aplicación se queda enganchada.

¿Como puedo saber si estoy enganchado?

¿Puedo saber cuantos usuarios estan conectados a este servidor?(Ya que por ejempro preguntaria si hay mas de 4 usuarios conectados intentalo mas tarde)


Os paso algo de codigo que tengo programado en el evento On estatus
procedure TF_comunicacion.FTP_ActualizadorStatus(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
case AStatus of

ftpAborted:begin
//ShowMessage('ftpaborted '+AStatusText);
grabalog_actualizador('Abortado...->',AStatusText);
end;
ftpReady:begin
// conexion establecida
// cortando del servidor -transfer complete-
//ShowMessage('ftpready '+AStatusText);
grabalog_actualizador('Trabajando->',AStatusText);
end;
ftpTransfer:begin
// empezando transferencia
//ShowMessage('ftptransfer '+AStatusText);
grabalog_actualizador('Transferiendo->',AStatusText);
end;
hsConnected:begin
// cuando esta conectado
//ShowMessage('hsconnected '+AStatusText);
grabalog_actualizador('Conectado->',AStatusText);
label_conexion_ftp.Caption:='FTP CONECTADO';
label_conexion_ftp.Repaint;

end;
hsConnecting:begin
// Cuando se esta conectando y el nombre
//ShowMessage('hsconnecting '+AStatusText);
grabalog_actualizador('Conectando->',AStatusText);
label_conexion_ftp.Caption:='FTP Conectando';
label_conexion_ftp.Repaint;

end;
hsDisconnected:begin
// desconectado
//ShowMessage('hsdisconnected '+AStatusText);
grabalog_actualizador('Desconectado->',AStatusText);
label_conexion_ftp.Caption:='FTP desconectado';
label_conexion_ftp.Repaint;
end;
hsDisconnecting:begin
// desconectando del servidor
//ShowMessage('hsdisconnecting '+AStatusText);
grabalog_actualizador('Desconectando->',AStatusText);
end;
hsResolving:begin
//ShowMessage('hsresolving '+AStatusText);
grabalog_actualizador('resolving->',AStatusText);
label_conexion_ftp.Caption:='FTP Resolviendo';
label_conexion_ftp.Repaint;

end;
hsStatusText:begin
//ShowMessage('hsstatustex '+AStatusText);
grabalog_actualizador('statustex->',AStatusText);
end;


end;

end;

[Casimiro Notevi]

¿Puedo saber cuantos usuarios estan conectados a este servidor?(Ya que por ejempro preguntaria si hay mas de 4 usuarios conectados intentalo mas tarde)
Eso lo puedes controlar en el software servidor ftp.

[Casimiro Notevi]

En teoría debes tener algunas propiedades para controlarlo, en el componente.

[Joviali]

Buenas, tiene razon si limito el servidor de ftp lo tiengo listo, no hace falta complicarme la vida.Gracias a veces uno se enfusca en algo y no ve otras opciones.Gracias