Comparação de hora
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
Curtidas 0
Respostas
Felipe Andrade
17/02/2020
Já consegui detectar o problema, estarei fechando o topico
GOSTEI 0
Anderson Gonçalves
17/02/2020
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.
GOSTEI 0