Componente Indy (IndyFtpServer)
 

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

Código Delphi [-]
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;

Eso lo puedes controlar en el software servidor ftp.

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

Tienes razón,
 

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