Fórum Comparação de hora #608190
17/02/2020
0
Bom dia Galera tranquilo?
Estou com um problema na comparação de hora...basicamente estou tentando programar um agendador aonde ele irá executar o bat.
Porém ao chegar no horário ele entra em um loop infinito....podem me dar uma força?
Código:
Label1.Caption:= timetostr(now);
procedure TFrmBackupOnline.Timer2Timer(Sender: TObject);
begin
if hora1.Text = Label1.Caption then
//ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);
ShowMessage(''''Teste'''');
end;
Estou com um problema na comparação de hora...basicamente estou tentando programar um agendador aonde ele irá executar o bat.
Porém ao chegar no horário ele entra em um loop infinito....podem me dar uma força?
Código:
Label1.Caption:= timetostr(now);
procedure TFrmBackupOnline.Timer2Timer(Sender: TObject);
begin
if hora1.Text = Label1.Caption then
//ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);
ShowMessage(''''Teste'''');
end;
Felipe Andrade
Curtir tópico
+ 0
Responder
Posts
17/02/2020
Felipe Andrade
Já consegui detectar o problema, estarei fechando o topico
Responder
Gostei + 0
17/02/2020
Anderson Gonçalves
Bom dia Galera tranquilo?
Estou com um problema na comparação de hora...basicamente estou tentando programar um agendador aonde ele irá executar o bat.
Porém ao chegar no horário ele entra em um loop infinito....podem me dar uma força?
Código:
Label1.Caption:= timetostr(now);
procedure TFrmBackupOnline.Timer2Timer(Sender: TObject);
begin
if hora1.Text = Label1.Caption then
//ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);
ShowMessage(''''Teste'''');
end;
Estou com um problema na comparação de hora...basicamente estou tentando programar um agendador aonde ele irá executar o bat.
Porém ao chegar no horário ele entra em um loop infinito....podem me dar uma força?
Código:
Label1.Caption:= timetostr(now);
procedure TFrmBackupOnline.Timer2Timer(Sender: TObject);
begin
if hora1.Text = Label1.Caption then
//ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);ShellExecute(0,nil, PChar(''''cmd''''),Pchar(''''/c backups3aws422.bat''''),nil,1);
ShowMessage(''''Teste'''');
end;
Querido, você está comparando ALFANUMÉRICOS e não horas, observa o seu IF que está hora1.TEXT = label1.CAPTION os dois são textos, tenta converter ou passar para uma variável em horas para comparar, já começa por ai.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)