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

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-02-2005
[Nbull] Nbull is offline
Miembro Premium
 
Registrado: nov 2004
Ubicación: Valencia-España
Posts: 168
Poder: 20
Nbull Va por buen camino
Question Que se me active el segundo timer

Hola a tod@s de nuevo, despues de estar un tiempo desconectado vuelvo al club con mis dudillas,siento ser tan pesado.

Bueno,lo que me pasa ahora es que he colocado dos timer, vi en otro Hilo que explicabais como hacer que se ejecute mi aplicación a una hora, con ese ejemplo me funciona mi aplicación de lujo pero, a mi se me plantea el problema de que quiero que el ususario pueda cerrar la aplicación a los dos minutos por ejemplo.
Para eso me he colocado otro timer y le he llamado TimerEstablecido, pero no llega ha hacerlo.
Para llamar a ese timer lo que he echo es activarlo desde el timer que me inicia la aplicación a la hora que le diga, os paso el codigo y haber si veis vosotros algo mal:
Código Delphi [-]
 
procedure TForm1.TimerConexion1Timer(Sender: TObject);
var
Str: String;
ahora, mediaNoche : Tdatetime;
faltanMilisegundos : int64;
tiempoes,min : Word;
begin
 
{Miro si ha habido cambios en el Archivo ini}
ArchivoIni:= Tinifile.Create(Sinidir+'\config.Ini');
Hora :=StrToint(ArchivoIni.ReadString('Hora','H','00'));
Minutos := StrToint(ArchivoIni.ReadString('Minutos','Min','00'));
NTelefono := ArchivoIni.ReadString('NumTelefono','TLF','');
Testablecido := ArchivoIni.ReadString('TiempoConexion','Conexion','120');
ArchivoIni.Free;
 
{Calculo el tiempo que falta para cerrar}
ahora := now;
medianoche := ahora;
tiempoes := Strtoint(Testablecido);//Me lo pasan al Ini en segundos 
//desde la configuración
tiempoes := Tiempoes div 60;//Lo paso a minutos
min :=tiempoes + minutos;//Se lo sumo a los minutos de la 
//Hora que inicia mi aplicación
medianoche := RecodeTime(medianoche,Hora,min,00,999); // a la fecha actual, 
//le cambio la hora
faltanMilisegundos:= MillisecondsBetween(mediaNoche, ahora);
TimerEstablecido.Interval := faltanMilisegundos;
TimerEstablecido.enabled:= true;//Lo activo

Me pasan dos cosas o no me entra al codigo y no la cierra la aplicación o entra a la misma hora que se ejecuta mi aplicación, no se que puede ser

Un Saludo a todos y Gracias por vuestro tiempo.

Última edición por Nbull fecha: 08-02-2005 a las 10:35:28.
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


La franja horaria es GMT +2. Ahora son las 09:59:53.


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