Foros Club Delphi - Problemas al utilizar sleep

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

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

- - Problemas al utilizar sleep (https://www.clubdelphi.com/foros/showthread.php?t=78361)

escorpionrojo43

12-04-2012 03:39:35

Problemas al utilizar sleep

Hola Compañeros del foro
Estoy realizando un proyecto de prueba para el puerto lpt1
el asunto es el siguiente.

Código Delphi [-]procedure TForm1.Button10Click(Sender: TObject);
var x,i,tiempo,numero:integer;
begin
tiempo := strtoint(edit3.Text); //tiempo que tardara en espera para repetir 
numero := strtoint(edit2.Text);// es la cantidad de numeros que va a contar
    for i := 0 to numero do
    begin
      Out32($378,i);
      label2.Caption := inttostr(i);  // aqui tiene que mostrarme valor de (i) pero se friza el programa y solo veo el valor final del conteo
      Sleep(tiempo); //tiempo que tardara en espera para repetir
    end;
end;

el asunto es que al utilizar sleep(tiempo) el programa no responde pero si hace su trabajo con el puerto osea envia los datos. necesito que el programa siga respondiendo por si deseo detener el contador o pausarlo. espero me den una manito con esto.

marcoszorrilla

12-04-2012 06:55:38

Cita:

Empezado por escorpionrojo43 (Mensaje 429828)

Hola Compañeros del foro
Estoy realizando un proyecto de prueba para el puerto lpt1
el asunto es el siguiente.

Código Delphi [-]procedure TForm1.Button10Click(Sender: TObject);
 var x,i,tiempo,numero:integer;
 begin tiempo := strtoint(edit3.Text); //tiempo que tardara en espera para repetir
  numero := strtoint(edit2.Text);// es la cantidad de numeros que va a contar 
    for i := 0 to numero do    
 begin
Application.ProcesMessages;
 Out32($378,i);     
  label2.Caption := inttostr(i);  // aqui tiene que mostrarme valor de (i) pero se friza el programa y solo veo el valor final del conteo
       Sleep(tiempo); //tiempo que tardara en espera para repetir 
    end; 
end;

Un Saludo.

javier7ar

12-04-2012 16:55:07

yo pondria el Application.ProcesMessages; antes del Sleep, despues de haber actualizado el label

Igualmente, si te interesa saber todos los nros que lees, yo los pondria en un memo, asi te quedan todos los nros.

Saludos

escorpionrojo43

14-04-2012 06:05:08

Gracias chicos ya lo había encontrado, pero muchas gracias por el aporte, es bueno contar con su ayuda.
bueno pero el único detalle es que tiene el retaso de 1 segundo osea que lo pauso en el 3 y se detiene al llegar a 4

La franja horaria es GMT +2. Ahora son las 09:52:19.