[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

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;