Foros Club Delphi - Bucle For con Repeat.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Bucle For con Repeat. (https://www.clubdelphi.com/foros/showthread.php?t=95388)

ramonibk

10-09-2021 08:09:43

Bucle For con Repeat.

Hola a todos.

vuelvo a solicitar vuestra ayuda para poder aprender un poco mas.

Estoy realizando una aplicación para conexión por Telnet (https://www.clubdelphi.com/foros/showthread.php?t=95374) a un listado de equipos.
en un principio cuando se realiza la conexión a un solo equipo no tengo problema, me conecto ejecuto la consulta y desconecto.
el problema ocurre cuando le pongo una lista de IP para que so realice secuencialmente.
la Lista de Ip se encuentra en un ListBox.
El problema e que he intentado hacer algo como.

Código Delphi [-]Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
Begin
   Memo1.Text := 'Iniciando Conexión';
  //Ejecuto todo lo necesario.
   Memo1.Text := 'Finalizando conexión';
End;

pero esto parece que es demasiado rápido y se queda enganchado y no es capaz de realizar las tareas de echo no es capaz de pintar en el momo.
por lo que pense en depender de una bariable global para controlar el "For" la estructura que tenia pensada es mas o menos.

Código Delphi [-]Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
   Begin
      Repeat
         Begin;
           Memo1.Text := 'Iniciando Conexión';
          //Ejecuto todo lo necesario.
         End;
       Until  Terminado = True ;
         Begin
           Memo1.Text := 'Iniciando Conexión';
         End;
   End;
End;

Pero no soy capaz de que esto funcione. se me bloquea la aplicacion.

Alguna sugerencia????????

Muchas gracias.

engranaje

10-09-2021 10:27:09

No tengo claro haber entendido bien el problema. Creo que lo que estas diciendo es esperar a que el proceso termine lo que está haciendo antes de continuar con el flujo normal de la aplicación. Deduzco que cuando el proceso termina pone a true la variable terminado.

Si entendí bien puedes probar algo como esto:

Código Delphi [-]
Memo1.Text := 'Iniciando Conexión';


//Ejecuto todo lo necesario.


while not terminado do
   sleep(1000);


Memo1.Text := 'Finalizando conexión';

Puedes probarlo a ver si te he entendido bien, eso sí ya sabes cuidado con un bucle infinito, asegúrate bien de que sí o sí la variable terminado va a acabar siempre con un valor true.

Ya digo que eso es lo que he entendido que quieres hacer, no lo que hace el código que has puesto con el repeat. En tu código lo que se hace es volver a lanzar de nuevo el proceso que hace todo lo necesario en bucle sobre el mismo elemento de la lista hasta que termine, pero creo que eso no es lo que quieres.

ramonibk

10-09-2021 11:16:59

Bueno veré si me puedo explicar con un ejemplo.

He utilizado tanto tu opción como la que yo estaba intentando pero en ningún caso me ha funcionado.

En un Formulario tengo dos botones un Edit, dos Label y un timer.

La intención es que el timer cuente hasta el valor que se coloca en el edit tantas veces como l indiquemos en el "for"

Código Delphi [-]
// N es una variable global.

procedure TForm1.Button1Click(Sender: TObject);
Var
 I, Nrep : Integer;
begin
  I := StrToInt(Edit1.Text); //Defino cuando se debe parar de contar.
  for Nrep := 0 to 5 do //Numero de veces que se realiza la operacion.
     Begin
      Timer1.Enabled := True;
       Begin
           Label2.Caption := 'En marcha';
       End;
      while N = I do
       Begin
        Timer1.Enabled := False;
        Label2.Caption := 'Parado';
        N := 0;
       End;
     End;
end;
// Empieza a contar y no para al llegar a N = I

procedure TForm1.Button2Click(Sender: TObject);
Var
 I, Nrep : Integer;

begin
  I := StrToInt(Edit1.Text);
  for Nrep := 0 to 5 do
     Begin
      Timer1.Enabled := True;
       Repeat
        Begin
           Label2.Caption := 'En marcha';
        End;
       Until N = I;
       Begin
        Timer1.Enabled := False;
        Label2.Caption := 'Parado';
        N := 0;
       End;
     End;
end;

// Deja la aplicación colgada, no hace nada.

procedure TForm1.FormCreate(Sender: TObject);
begin
 N:=0
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 N := N+1;
 Label1.Caption := IntToStr(N);
end;

espero haber explicado menos el tema.

Muchas gracias.

bucanero

10-09-2021 12:35:39

hola!!

el problema que te surge es porque al activar el TIMER se inicia una especie de "ejecución en paralelo" sin llegar a ser un hilo como tal, y mientras en el hilo principal del programa entras en un bucle sin esperas y sin darle descanso a la CPU, a ejecutar el proceso del timer.

Esto lo puedes soluciona llamando a application.processmessages en el bucle de espera, pero el problema que te va a surgir es que si ejecutas el bucle muy rápido, llamando a processmessages continuamente sin esperas intermedias puedes llegara a saturar el S.O., Para evitar eso, te recomiendo que pongas además un sleep

Prueba con este código:

Código Delphi [-]procedure TForm2.Button2Click(Sender: TObject);
var
  i, Nrep: Integer;
begin
  i := StrToInt(Edit1.Text);
  for Nrep := 0 to 5 do begin
    Label2.Caption := format('Ciclo #%d:', [Nrep]);
    Timer1.Enabled := True;
    N := 0;
    while (n < i) do begin
      application.processMessages;
      // entra en modo sleep y el S.O. cambia el foco de la CPU a otros procesos, evitando sobrecargar el sistema
      sleep(200);
    end;
    Timer1.Enabled := False;
  end;
  Label2.Caption := 'Parado';
end;

ramonibk

10-09-2021 13:13:26

Hola Bucanero.

Muchas gracias me es de mucha utilidad.

un saludo.

Neftali [Germán.Estévez]

10-09-2021 13:52:19

Cita:

Empezado por ramonibk (Mensaje 542744)

Código Delphi [-]Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
   Begin
      Repeat
         Begin;
           Memo1.Text := 'Iniciando Conexión';
          //Ejecuto todo lo necesario.
         End;
       Until  Terminado = True ;
         Begin
           Memo1.Text := 'Iniciando Conexión';
         End;
   End;
End;

Pero no soy capaz de que esto funcione. se me bloquea la aplicacion.

Creo que la idea es la correcta.
Se puede hacer utilizando cosas más complejas (Threads por ejemplo), pero como primera solución debería servir.
El código sería algo así (en el que has puesto la ejecución está dentro de repeat y eso no soluciona el problema):

Código Delphi [-]Var
  N:Integer;
Begin
  For N := 0 To (ListBox1.Items.Count -1) do Begin
    Terminado := False;
    Memo1.Text := 'Iniciando Conexión';
    // Ejecuto todo lo necesario.... (dentro al acabar pongo    Terminado := True)

    // Espero mientras el proceso no acaba (Terminado=Falso)
    Repeat
      Sleep(1000);
    Until (Terminado = True);

    Memo1.Text := 'Iniciando Conexión';
  End;
end;

ramonibk

13-09-2021 13:19:34

Gracias Neftali Tambien me ha sido muy útil.

al final como era para una conexión telnet se me quedaba colgado con mucha facilidad.
al final el código que me ha funcionado a sido.

Código Delphi [-]procedure TForm2.BtnMultiClick(Sender: TObject);
Var
 N : Integer;
begin
   Repeat
     sleep(1000);
   Until (IdTelnet1.Connected = False);
    Begin
     for N := 0 to ListBox1.Items.Count -1 do
      Begin
       IdTelnet1.Host := ListBox1.Items[N];
       IdTelnet1.Port := StrToInt( EdPuerto.Text );
       IdTelnet1.Connect;
       Log.Lines.add(format('conexión a IP: '+ListBox1.Items[N]);
       Conectado := True;
       Log.SetFocus;
         Repeat
           application.processMessages;
           sleep(1000);
         Until (Conectado = False) ;
      End;
    End;
end;

Un saludo y gracias a todos.

La franja horaria es GMT +2. Ahora son las 20:08:50.