Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-05-2013
Nerox Nerox is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 3
Poder: 0
Nerox Va por buen camino
Post Velocidad de un timer

Hola a todos.

Estoy con un proyecto en delphi y necesito usar un timer con algo de velocidad, me da 600 clicks en 10 segundos, con intervalo 1. Probé poniendo dos timers pero da el mismo resultado, ¿Cómo podría subirle la velocidad? (Para que diese así unos 800 o 1000 en 10 segundos)

Saludos.
Responder Con Cita
  #2  
Antiguo 13-05-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.609
Poder: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Intenta con la clase TThread, en el foro encontrarás muchos ejemplos y en la ayuda de Delphi una explicación completa.

Saludos.
Responder Con Cita
  #3  
Antiguo 13-05-2013
Nerox Nerox is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 3
Poder: 0
Nerox Va por buen camino
Encontré esto es un blog:

Cita:
Para ello lo que hacemos es crear un hilo de ejecución heredando de la clase TThread del siguiente modo:

THilo = class( TThread )
Ejecutar: procedure of object;
procedure Execute; override;
end;


La definición anterior hay que colocarla dentro del apartado Type de nuestra unidad (en la sección interface). Le he añadido el procedimiento Ejecutar para poder mandarle que procedimiento queremos que se ejecute paralelamente.

En el apartado implementation de nuestra unidad redifinimos el procedimiento de la clase TThread para que llame a nuestro procedimiento Ejecutar:

procedure THilo.Execute;
begin
Ejecutar;
Terminate;
end;

Con esto ya tenemos nuestra clase THilo para crear todos los hilos de ejecución que nos de la gana. Ahora vamos a ver como se crea un hilo y se pone en marcha:

var
Hilo: THilo; // variable global o pública

procedure CrearHilo;
begin
Hilo.Ejecutar := ProcesarDatos;
Hilo.Priority := tpNormal;
Hilo.Resume;
end;

procedure ProcesarDatos;
begin
// Este es el procedimiento que ejecutará nuestro hilo
// Cuidado con hacer procesos críticos aquí
// El procesamiento paralelo de XP no es el de Linux
// Se puede ir por las patas abajo...
end;

Si en cualquier momento queremos detener la ejecución del hilo:

Hilo.Terminate;
FreeAndNil( Hilo );
¿Es eso a lo que te refieres?
Responder Con Cita
  #4  
Antiguo 14-05-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.609
Poder: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Cita:
Empezado por Nerox Ver Mensaje
Encontré esto es un blog [...] ¿Es eso a lo que te refieres?
En esencia, sí.

Mientras que un temporizador (clase TTimer) trabaja en el mismo "plano" que el resto de tu aplicación (se intercala el evento del temporizador con los eventos habituales de la interfaz de usuario y con los numerosos mensajes del sistema operativo), crear un hilo alterno, con las facilidades que ofrece la clase TThread, hace posible ejecutar tareas en segundo plano sin ninguna o poca interferencia por parte del resto de la aplicación.

Digamos que cuando buscas precisión de tiempo, es mejor crear un hilo alterno que usar un temporizador.

Saludos.
Responder Con Cita
  #5  
Antiguo 14-05-2013
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
Cita:
Empezado por Nerox Ver Mensaje
Hola a todos.

Estoy con un proyecto en delphi y necesito usar un timer con algo de velocidad, me da 600 clicks en 10 segundos, con intervalo 1. Probé poniendo dos timers pero da el mismo resultado, ¿Cómo podría subirle la velocidad? (Para que diese así unos 800 o 1000 en 10 segundos)

Saludos.
No entiendo lo que realmente deseas? A qué te refieres con un Click? A los click hechos por el usuario en 10 segs?
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #6  
Antiguo 14-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Nerox.

Te muestro como podes ajustar la cantidad de veces por segundo que deseas que se dispare el evento con bastante márgen:
Código Delphi [-]
unit uTimeThread;

interface

uses Windows, Classes;

type
  TTimeEvent = procedure of object;
  TTimeThread = class(TThread)
  private
    FFreq, FDesde, FHasta: Int64;
    FInterval : Integer;
    FOnTime : TTimeEvent;
    procedure SetInterval(const Value: Integer);
    procedure WaitInterval;
  public
    constructor Create;  reintroduce; overload;
    property Interval : Integer read FInterval write SetInterval;
    property OnTime   : TTimeEvent read FOnTime write FOnTime;
    procedure Execute; override;
    destructor Destroy; override;
  end;

var
  TimeThread: TTimeThread;

implementation

constructor TTimeThread.Create;
begin
  inherited Create(False);
  QueryPerformanceFrequency(FFreq);
  QueryPerformanceCounter(FDesde);
  Priority := tpNormal;
  FreeOnTerminate := True;
end;

procedure TTimeThread.SetInterval(const Value: Integer);
begin
  if (Value <> FInterval) then
    FInterval := Value
end;

procedure TTimeThread.WaitInterval;
begin
  QueryPerformanceCounter(FHasta);
  if (FHasta - FDesde) * 1000000 div FFreq >= FInterval then
  begin
    if Assigned(OnTime) then OnTime;
    FDesde := FHasta;
  end;
end;

procedure TTimeThread.Execute;
begin
  while not Terminated do
    Synchronize(WaitInterval);
end;

destructor TTimeThread.Destroy;
begin
  inherited ;
  TimeThread := nil;
end;

end.

Ejemplo de uso:
Código Delphi [-]
type
  TForm1 = class(TForm)
    btnComenzar: TButton;
    btnTerminar: TButton;
    procedure btnComenzarClick(Sender: TObject);
    procedure btnTerminarClick(Sender: TObject);
  private
    FCont: Integer;
    procedure TimeThreadOnTime;
  public
  end;
...

implementation 

uses uTimeThread; 

procedure TForm1.TimeThreadOnTime;
begin
  // aquí el proceso que desees
  Caption := IntToStr(FCont);
  Inc(FCont);
  // fin proceso 
  Application.ProcessMessages;
end;

procedure TForm1.btnComenzarClick(Sender: TObject);
begin
  if not Assigned(TimeThread) then
  begin
    FCont := 1;
    TimeThread:= TTimeThread.Create;
    // Intervalo expresado: 1/1000000 seg. (µs)
    TimeThread.Interval := 100000; {1/10 seg }
    TimeThread.OnTime   := TimeThreadOnTime;
    TimeThread.Execute;
  end;
end;

procedure TForm1.btnTerminarClick(Sender: TObject);
begin
  if Assigned(TimeThread) then
    TimeThread.Terminate;
end;

Saludos.

Edito: Casi me olvido... ¡ Bienvenido a Club Delphi !
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-05-2013 a las 21:57:16.
Responder Con Cita
  #7  
Antiguo 14-05-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Impresionante ejemplo
Responder Con Cita
  #8  
Antiguo 14-05-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
ecfisa,

Excelente

Nelson.
Responder Con Cita
  #9  
Antiguo 14-05-2013
Avatar de ozsWizzard
ozsWizzard ozsWizzard is offline
Miembro
 
Registrado: may 2004
Ubicación: Murcia
Posts: 190
Poder: 21
ozsWizzard Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola Nerox.

Te muestro como podes ajustar la cantidad de veces por segundo que deseas que se dispare el evento con bastante márgen:

...
Solamente puedo decir +1
__________________
La Madurez se llama...
~~~Gaia~~~
Responder Con Cita
  #10  
Antiguo 15-05-2013
Nerox Nerox is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 3
Poder: 0
Nerox Va por buen camino
Saludos ecfisa.

Muchas gracias el código funciono.
Responder Con Cita
  #11  
Antiguo 05-10-2023
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 43
Poder: 0
Badillo Va por buen camino
Necesito me aclaren que estoy haciendo mal

Gracias por al ayuda, esta muy buena la clase que propuso ecfisa, pero no logro que me funcione como necesito, quizas es que estoy haciendo algo mal o omitiendo algo, pudieran ayudarme.

Básicamente lo que necesito es que en lo que se va procesando el procedmiento ProcessFile, me actualice los contadores en pantalla (Label0000 hasta Label2110), pero no lo hace, solo cuando hago clic en el label para detener el hilo es que se ejecuta todo. de lo contrario nunca termina y le tengo puesto a la clase F835File la propiedad EndParse que inicia en falso y cuando termina el proceso toma el valor verdadero, para poder tener referencia que terminó el proceso. La duración de este proceso depende del tamaño del fichero que estoy procesando y me ha durado entre 30seg hasta 2 minutos en los casos que tengo como refrencia.

Código:
procedure TForm1.TimeThreadOnTime;
begin
  // aquí el proceso que desees
  Inc(FCont);
  if FStopThread = false then
  begin
    FStopThread := true;
    ProcessFile;
  end;

  Label0000.Caption := IntToStr(F835File.Loop0000MaxId);
  Label1000.Caption := IntToStr(F835File.Loop1000MaxId);
  Label2000.Caption := IntToStr(F835File.Loop2000MaxId);
  Label2100.Caption := IntToStr(F835File.Loop2100MaxId);
  Label2105.Caption := IntToStr(F835File.Loop2105MaxId);
  Label2110.Caption := IntToStr(F835File.Loop2110MaxId);

  // fin proceso
  Application.ProcessMessages;
  
  if F835File.EndParse then StopThread;

end;

procedure TForm1.ProcessFile;
begin
  if FileExists(FFileName) then
  begin
    F835File.Parse;
    if F835File <> nil then
    begin
        LabelLoop0000.Caption := IntToStr(F835File.Loop0000MaxId);
        LabelLoop1000.Caption := IntToStr(F835File.Loop1000MaxId);
        LabelLoop2000.Caption := IntToStr(F835File.Loop2000MaxId);
        LabelLoop2100.Caption := IntToStr(F835File.Loop2100MaxId);
        LabelLoop2105.Caption := IntToStr(F835File.Loop2105MaxId);
        LabelLoop2110.Caption := IntToStr(F835File.Loop2110MaxId);
        scMemoSchema.Lines.AddStrings(F835File.getSqlSchema);
        scMemoDelete.Lines.AddStrings(F835File.getSqlDelete);
        scMemoInsert.Lines.AddStrings(F835File.SqlData);
        scMemoFileParser.Lines.AddStrings(F835File.ParsedFile);
        scMemoLogError.Lines.AddStrings(F835File.LogError);
    end;
  end;
end;

procedure TForm1.BeginThread;
begin
  if not Assigned(TimeThread) then
  begin
    FCont := 1;
    TimeThread:= TTimeThread.Create;
    // Intervalo expresado: 1/1000000 seg. (µs)
    TimeThread.Interval := 100000; {1/10 seg }
    TimeThread.OnTime   := TimeThreadOnTime;
    TimeThread.Execute;
  end;
end;

procedure TForm1.StopThread;
begin
  if Assigned(TimeThread) then
    TimeThread.Terminate;
end;

procedure TForm1.scLabel21Click(Sender: TObject);
begin
  StopThread;
end;
Una vez más gracias y aguardo por su ayuda.
Responder Con Cita
  #12  
Antiguo 06-03-2024
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Badillo.

No puedo saber que hace la clase F835File, pero por lo que comentas mas abajo:
Cita:
Empezado por Badillo Ver Mensaje
...

Básicamente lo que necesito es que en lo que se va procesando el procedmiento ProcessFile, me actualice los contadores en pantalla (Label0000 hasta Label2110), pero no lo hace, solo cuando hago clic en el label para detener el hilo es que se ejecuta todo.
...
Creo que la accion de mostrar el valor de los contadores en pantalla y actualizar dichos valores deberías hacerlo en el método TimeThreadOnTimeñ
Código Delphi [-]
procedure TForm1.TimeThreadOnTime;
begin

  //
  // AQUI DEBERIAS ASIGNAR LOS VALORES DE LOS CONTADORES A LOS LABELS (Label0000 hasta Label2110) PARA MOSTRARLOS
  // Y SEGUIDAMENTE ACTUALIZAR LOS VALORES DE DICHOS CONTADORES
  // ( ¿ ProcessFile ? )

  Application.ProcessMessages;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 06-03-2024 a las 18:51:42.
Responder Con Cita
  #13  
Antiguo 07-03-2024
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 43
Poder: 0
Badillo Va por buen camino
Gracias, estoy fuera de casa por problemas de salud, en cuanto pueda pruebo lo que me recomiendas. La clase F835file lo único que hacer un parseo de un fichero de tipo EDI y pasar la información a sqlserver, por eso demora un poco ese proceso.

Muchas gracias
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Timer coso Trucos 1 14-07-2008 11:28:56
Timer comba OOP 3 18-06-2007 17:54:00
Timer nenufer Varios 7 10-05-2006 17:35:17
Timer ojimenezg2000 Gráficos 10 27-04-2006 15:56:02
timer +1 slim jim Varios 4 02-10-2005 05:03:11


La franja horaria es GMT +2. Ahora son las 01:12:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi