Problemas lanzando el ejecutable desde tarea programada

[juggern]

Os enseño más pruebas que estoy haciendo.

El .ini tiene lo siguiente:

[FECHA]
UltFecha=24/02/2021 12:36:13

En el código me he creado 2 variables, una string sUltFecha y otra datetime dUltFecha.

He hecho que me escriba mensajes en un fichero.

El código es:

Código Delphi [-]
    sUltFecha:= oArchivo.ReadString('FECHA', 'UltFecha', '31/12/1999');
    WriteLN(Fich, 'FECHA STRING : '+sUltFecha);
    dUltFecha:= oArchivo.ReadDateTime('FECHA', 'UltFecha', 31/12/1999);
    WriteLN(Fich, 'FECHA DATETIME: '+DateTimetoStr(dUltFecha));

Si lo lanzo arrancando el exe y dándole al botón que llama al procedimiento, me escribe esto en el fichero:

FECHA STRING : 24/02/2021 12:35:02
FECHA DATETIME: 24/02/2021 12:35:02

Si lanzo el procedimiento a través de la tarea programada, me escribe esto en el fichero:

FECHA STRING : 24/02/2021 12:36:13
FECHA DATETIME: 12/30/1899 12:01:51 AM

No lo entiendo, en el equipo no veo nada raro y no se ha actualizado.

[juggern]

Perdón, copié mal la primera cita de las 2 de abajo, las horas son 12:36:13, es decir, coge bien el dato ejecutándolo así.

[[movorack]]

Hace unos días tuve un inconveniente parecido con el consumo de un servicio.

Al hacerlo el consumo desde la sesión de usuario el formato de decimales era con coma ",". Pero al hacerse por medio de un tarea programada el formato de decimales era con punto ".".

La solución fue copiar la misma configuración regional a todos los demás usuarios y cuentas del sistema.

Aplicar la configuración regional y de idioma a cuentas reservadas

[Casimiro Noteví]

Además de lo que comenta movorack, ¿Esto está bien o falta las comillas?

Código Delphi [-]
dUltFecha:= oArchivo.ReadDateTime('FECHA', 'UltFecha', 31/12/1999);  // ¿Faltan comillas?
dUltFecha:= oArchivo.ReadDateTime('FECHA', 'UltFecha', '31/12/1999');  // así

[juggern]

Hola chicos,

En cuanto pueda pruebo lo que comenta movorack y os digo.

Respecto a lo otro, está bien, funciona sin comillas, si le pongo comillas da error porque no espera un string.

Un saludo

[[movorack]]

Empezado por juggern

está bien, funciona sin comillas, si le pongo comillas da error porque no espera un string.
Un saludo

Debes tener en cuenta que la fecha en Delphi es un valor decimal, por ello no te genera error.

Empezado por Casimiro Notevi

Código Delphi [-]
dUltFecha:= oArchivo.ReadDateTime('FECHA', 'UltFecha', 31/12/1999);  // ¿Faltan comillas?

Pero lo que haces aquí es pasar como fecha el resultado de la división entre 31, 12 y 1999 = 0,00129 = 30/12/1899 12:01:51 a.*m.

Si quieres pasar el valor de fecha por defecto con una cadena puedes convertir el string a date

[juggern]

Hola de nuevo,

Acabo de probarlo y tienen todas la misma configuración. Aún así, por si acaso, lo he hecho pero nada, no funciona.

Si lo paso asi

Código Delphi [-]
oArchivo.ReadDateTime('FECHA', 'UltFecha', StrToDateTime('31/12/1999'));

No pasa de ahí, pero ese no es el principal problema, porque esa es la fecha por defecto si no hubiera nada en el .ini, pero si que tiene datos, el problema es que no me está cogiendo bien esos datos como fecha cuando lo ejecuto desde tarea.

En vista de que sí que me coge el dato del .ini como string, he probado a guardarlo en string y luego ese valor, guardarlo en otra variable TDateTime haciendo la conversión

Código Delphi [-]
WriteLN(Fich, '1');
fechacadena:= oArchivo.ReadString('FECHA', 'UltFecha', '31/12/1999');
WriteLN(Fich, '2');
fecha:= StrtoDateTime(fechacadena);
WriteLN(Fich, '3');

Pero haciendo esto, el programa se para en la instrucción como si diera error. En el fichero solo guarda hasta el 2, al 3 no llega. Esto, al igual que antes, pasa si lo lanzo desde el programador de tareas, si lo lanzo desde el botón, funciona bien, pinta el 3.