Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 29-06-2006
Avatar de Sotrono
Sotrono Sotrono is offline
Miembro
 
Registrado: abr 2004
Ubicación: Buenos Aires - Argentina
Posts: 396
Poder: 23
Sotrono Va por buen camino
Declará a Inicio y T_Actual como Extended;
El codigo que iría antes de iniciar el proceso seria éste:
Código Delphi [-]
  Inicio:= GetTickCount; //En Inicio guardas el valor que te devuelve GetTickCount cuando inicias el proceso
  Timer1.Interval := 300;
  Timer1.Enabled := true;
  //Acá tendrias que inciar el proceso

Y éste es el evento OnTimer del Timer:
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var dif: extended;
begin
  T_Actual := GetTickCount;
  dif := (T_Actual - Inicio) / 1000; //En dif se almacena cuantos segundos pasaron desde que se inició el proceso
  Label1.Caption := FloatToStr(Round(dif)); //Se redondea dif y se muestra
end;

Cita:
Empezado por Bauhaus1975
Voy a documentarme sobre el TThread, ¿tendría que meter en una hebra ambos procesos?
No sé que tipo de proceso es el que estás ejecutando pero primero proba añadiendo Application.ProcessMessages.
Y si lo haces con Threads, tenés que poner en uno solo el proceso que vos manejas, ya que el TTimer crea un Thread propio.
Responder Con Cita
 



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
problemas en tiempo de ejecución Nelly Varios 4 05-04-2006 19:25:53
Problemas al tratar de crear varios componentes en tiempo de ejecucion ilichhernandez Conexión con bases de datos 2 13-11-2005 19:03:26
Cómo medir en unidades de tiempo? Gabriel2 Varios 2 31-10-2005 15:51:24
Problema con un Timer en tiempo de Ejecucion santiellupin OOP 4 15-05-2004 16:21:37
abrir BD mdb usando ADOconnections en tiempo de ejecución viajero2015 Conexión con bases de datos 3 25-09-2003 01:39:05


La franja horaria es GMT +2. Ahora son las 13:49:49.


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