Fallo en tarea programada. Lanzar programa con interfaz gráfica

[[fjcg02]]

Hola a todos,
intentaré ir por partes.

Mi código se conecta a excel vía servidores. He dejado en el código lo más relevante, tal como está o funciona pero es para que os hagais una idea.

Código Delphi [-]
...
    ExcelApplication1: TExcelApplication;
...

procedure TForm1.LLevaraExcel( Data: TClientDataSet);
var ...;
begin
LCID := GetUserDefaultLCID;
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Workbooks.Open(DBEPlantilla.Text, False, False,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,LCID);


ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkBook);

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);
  try
    Data.First;
    while not(Data.eof) do
    begin
      bla, bla, bla...
      Data.Next;
    end;
  Except
     ShowMessage('Atención, se produjo un error en la transmisión.');
  end;
ExcelWorkbook1.SaveAs(DBEFicheroGenerado.Text,
                              -4143 {51}, emptyParam , emptyParam, false, false,
                              1, emptyParam, false, emptyParam, emptyParam,
                               emptyParam, 0);
ExcelWorkbook1.Close;
ExcelApplication1.Disconnect;
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;

end;

1- ¿Como se llama la Librería Free que mencionas?, ¿Cual es el link de la misma?.
La liberia que he nombrado es ésta

http://avemey.com/
ZEXMLSS for Lazarus, Delphi and C++Builder - Works with OpenDocument Format (ods)/Excel XML Spreadsheet/Office Open XML (xlsx) file format without installed Excel/OO Calc..
ZEXMLSSLIB 0.0.6 (beta)
Lazarus, Delphi 7, C++Builder 6.
Borland Developer Studio 2005, BDS 2006, CodeGear Delphi 2007,
CodeGear RAD Studio 2009, 2010, Delphi XE è Delphi XE2.

Permite crear ficheros en varios formatos.

La librería no permite abrir ficheros en Delphi, sí en Lazarus:
fichero xexlsx.pas de la libreria

Código Delphi [-]
...
{$IFDEF FPC}
function ReadXSLX(var XMLSS: TZEXMLSS; FileName: string): integer; deprecated {$IFDEF FPC}'Use ReadXLSX!'{$ENDIF};
function ReadXLSX(var XMLSS: TZEXMLSS; FileName: string): integer;
{$ENDIF}
...

2- ¿Probastes usar Automatización de Excel (Msg #4 Opción 2) en lugar de los componentes ExcelApplication, ExcelWorkbook y ExcelWorksheet ?.
No he probado la automatización Excel como indicas en el msg#4. Lo probaré. De hecho , me he dado cuenta ahora de que proponías otra solución.

3- ¿Tienes instalado Excel en el Servidor?, ¿Con que versión de Excel interactúa tu aplicación?, ¿En que versión de Windows Server se ejecuta tu aplicación?.
El programa se ejecuta en un equipo con W2008 server R2 y Excel 2007. Se ejecuta bien con la sesión abierta, se queda congelado con la aplicación lanzada desde una tarea programada. He revisado la configuración DCOM completa, dando permisos a todos los usuarios tal como indican en mensajes anteriores.
El programa también funciona en equipos con WXP, W7 y cualquier versión de Office , 2000, 2007 ó 2010, incluso con varias versiones instaladas.

Gracias a todos por vuestra ayuda.

Seguiremos informando...

[[fjcg02]]

Empezado por fjcg02

2- ¿Probastes usar Automatización de Excel (Msg #4 Opción 2) en lugar de los componentes ExcelApplication, ExcelWorkbook y ExcelWorksheet ?.
No he probado la automatización Excel como indicas en el msg#4. Lo probaré. De hecho , me he dado cuenta ahora de que proponías otra solución.

He probado cambiando la parte de invocar excel sin componentes de la paleta servers y tampoco me funciona. Es decir, con sesión abierta OK, desde el planificador de tareas MAL.

Saludos

[[nlsgarcia]]

fjcg02,

...He probado cambiando la parte de invocar Excel sin componentes de la paleta Servers y tampoco me funciona...con sesión abierta OK...desde el planificador de tareas MAL...

Pregunto:

1- ¿Probastes la opción 1 del Msg #4?, allí se indica como iniciar un proceso como Administrador y como un Usuario Particular.

2- ¿Has probado hacer un programa de pruebas con acceso a una BD y ejecutarlo con la sesión abierta y cerrada?, la idea es simular las condiciones del programa en cuestión pero eliminando la variable de Excel y ver si el comportamiento es similar al descrito.

Espero sea útil

Nelson.

[[fjcg02]]

Lo primero muchas gracias por tu ayuda Nelson.

Del último mensaje que incluyes, tengo una duda. ¿ es lo mismo ejecutarlo como administrador tal y como propones con el código que aportas de RunAs y ejecutar la tarea programada con un usuario con privilegios de administrador del equipo ?
El usuario con el que ejecuto la tarea programada es administrador de la máquina.

Respecto a las pruebas, estoy seguro de que si ejecuto el programa sin invocar a excel, funciona.

[[nlsgarcia]]

fjcg02,

...¿es lo mismo ejecutarlo como administrador tal y como propones con el código que aportas de RunAs y ejecutar la tarea programada con un usuario con privilegios de administrador del equipo?...

Te comento:

1- En algunas ocasiones realizando trabajos técnicos en Windows, aun teniendo un usuario con privilegios de administrador, he tenido que usar el usuario administrator de Windows que se creo durante la instalación del SO.

2- Te sugiero hacer las pruebas comentadas y ver cual es el comportamiento de la aplicación en cuestión.

3- Te sugiero hacer una prueba con un programa muy básico sin GUI que haga uso de Automatización en Excel y ver cual es el comportamiento de la aplicación en cuestión.

Espero sea útil

Nelson.

[[fjcg02]]

Buenas de nuevo.

He realizado varias pruebas. Estos programas los he lanzado desde el task scheduler, es decir desde tareas programadas configurando la sesión con un usuario administrador del equipo donde se ejecuta.
Los resultados han sido los siguientes, a saber:

1.- Programa simple con GUI con un timer que se cierra a los 20 segundos-> Resultado OK.

2.- Programa simple con GUI con una consulta a la bbdd que se cierra tras realizar la consulta-> Resultado OK

3.- Programa de producción con toda la artillería con llamada a excel usando TExcelApplication de la paleta servers de delphi-> Nunca acaba.

4.- Programa de producción con toda la artillería con llamada a excel sin usar TExcelApplication de la paleta servers de delphi y utilizando automatismos como Nelson plantea -> Nunca acaba.

Me falta hacer la última prueba, que es modificar la aplicación para que no tenga GUI, pero no tengo suficiente tiempo para hacerlo. Intentaré hacerlo ( qué remedio ) pero no sé cuando, ya que me supone tirar el actual programa a la basura y hacer uno nuevo.


Si tengo algún avance, os informo.

Gracias a todos por aguantar la paliza...

[[nlsgarcia]]

fjcg02,

Empezado por fjcg02

...Programa de producción con toda la artillería con llamada a Excel sin usar TExcelApplication de la paleta Servers de Delphi y utilizando Automatismos como Nelson plantea -> Nunca acaba...

Empezado por fjcg02

...la última prueba...modificar la aplicación para que no tenga GUI...me supone tirar el actual programa a la basura y hacer uno nuevo...

Te sugiero que antes de modificar todo el programa para ver si funciona sin GUI, hagas un ejemplo básico sin GUI que use Excel por medio de los componentes ExcelApplication, ExcelWorkbook, ExcelWorksheet y con Automatización en Excel y ver cual es el comportamiento de la aplicación, para ello sería conveniente incluir un log dentro del programa de pruebas para verificar en que punto falla la aplicación con ambos métodos.

Voy a hacer unas pruebas en un Servidor con Windows 2003 Standard y en lo que tenga los resultados te comento.

Nota: Si te es posible publica un ejemplo del uso de los componentes ExcelApplication, ExcelWorkbook y ExcelWorksheet.

Saludos,

Nelson.