Programa no entra al OnCreate del datamodule.

[luisgabriel]

Saludos,

Soy nuevo en foro, soy de colombia desarrollador delphi hace unos años. temgo una duda que no he podido resolver.

Un programa que quiero ejecutar en Windows 2003 Server no carga correctamente.

En Windows Xp, en el entorno de desarrollo carga perfecto pero en el equipo del cliente no llega a cargar el fiormulario principal y se decarga de memoria.

Dejé mensajes (ShowMessage) en la creación de formularios y lo que sucede es que no está nisiquiera creando el DataModule principal del aplicativo.

Código Delphi [-]
  Application.Initialize;
  Application.Title := 'Solicitud de Préstamos';
  Showmessage('1');
  Application.CreateForm(TDtmGGenGn, DtmGGenGn);
  Showmessage('2');
  Application.CreateForm(TDtmGnProgr, DtmGnProgr);
  Showmessage('3');
  Application.CreateForm(TdtmNmLibNomina, dtmNmLibNomina);
  Showmessage('4');
  Application.CreateForm(TDtmBpSolpt, DtmBpSolpt);
  Showmessage('5');
  Application.CreateForm(TDtmBpLiquidacion, DtmBpLiquidacion);
  Showmessage('6');
  Application.CreateForm(TFrmBpSolpt, FrmBpSolpt);
  Showmessage('7');
  Application.CreateForm(TRptBpSolpt, RptBpSolpt);
  Application.CreateForm(TFrmBpPunsp, FrmBpPunsp);
  Application.CreateForm(TFrmBpDesem, FrmBpDesem);
  Application.CreateForm(TFrmBpLiqui, FrmBpLiqui);
  Application.CreateForm(TCaptura, Captura);
  Application.Run;

En Xp lanza todos los mensajes pero en Win2003 lanza 1,2,3,4 y luego se descarga de memoria.

En el OnCreate del datamodule tengo:Showmessage('OnCreate');
En el OnDestroy del datamodule tengo: Showmessage('9');

En XP lanza ambos mensajes pero en WinServ2003 solo lanza el mensaje del OnDestroy.

Llevo varios dias con este tema y no encuentro solución. si alguno de ustedes me pudiese colaborar. estaria muy agradecido.

Gracias por permitirme participar.

Luis Gabriel

[cloayza]

Bienvenido te recomiendo que pases por Guía Estilo.php...

Sobre tu problema poca información das...

Podrías colocar el codigo del datamodulo que dices tiene el problema...

Tambien podrías encerrar el código del OnCreate en un Try ..Exception para ver que produce el posible error...

Bueno eso por ahora...

[[Chris]]

Debe estar ocurriendo algún error en momento de ejecución. Sin embargo puede ser que este error no se esté viendo porque quizá tengas algún código así:

Código Delphi [-]
try
    // hacer todas las operaciones ...
except on Exception do
    ; { no hacer nada, mucho menos avisar que está pasando algo :-/ }
end;

Fíjate que el código que captura el error no hace nada. Simplemente no hace nada y menos avisar de lo que está sucediendo. A esto se le llama "excepciones silenciosas" y pueden ser una mala práctica de programación sino se utilizan bien.

Saludos,
Chris