Error al entrar en sesion windows

[LuisAlf::]

Que onda!!

Gracias por responder...

Sabes que encontre el motivo de porque sale ese error...

Estuve programando el xeyes en otra aplicacion y me di cuenta que tambien le pasa lo mismo....

Y Yo creo que es por las propiedades del objeto mouse.curpos.X y mouse.curPos.y.....

Ya que en los dos utilizo el acceso a las propiedades del mouse....

Cualquiera que quiera intentarlo para probar lo que les dijo..

pongan un timer que se este ejecutando muy rapido para que este leyendo estas propiedades del mouse....claro en una lap con windows 7..no se si pase lo mismo en una pc...

Código Delphi [-]
var coordenadax:integer;
begin
      coordenadax:=mouse.curPos.X;
end;

y traten de suspenderla y entrar otra vez a su session y el error se produce luego restaurada la session...

La verdad no se como proceder...

[Ñuño Martínez]

¡Pues claro que falla, jomío! ¿A quién se le ocurre utilizar un "timer" para leer la posición del ratón? Si es que...

Después de la bronca, te recomiendo que replantees la aplicación. Casi es mejor que utilices un bucle (cuasi)infinito para hacer esto. Lo que no tengo muy claro es dónde colocarlo, pero sería tal que así:

Código Delphi [-]
TMiForm = CLASS (TFORM)
{ ... blablabla ... }
PRIVATE
(* Marca de final.  Poner a FALSE en "OnCreate" y a TRUE en "OnClose". *)
  Terminar: BOOLEAN;
{ ... blablabla ... }
(* El meollo de la cuestión. *)
  PROCEDURE BuclePrincipal;
  BEGIN
    REPEAT
      coordenadax:=mouse.curPos.X;
      coordenadax:=mouse.curPos.X;
      Application.ProcessMessages;
    UNTIL Terminar;
  END;

Como digo, el problema aquí reside en desde dónde llamar al método "BuclePrincipal".

[mcs]

Empezado por Ñuño Martínez

¡Pues claro que falla, jomío! ¿A quién se le ocurre utilizar un "timer" para leer la posición del ratón? Si es que...

Después de la bronca, te recomiendo que replantees la aplicación. Casi es mejor que utilices un bucle (cuasi)infinito para hacer esto. Lo que no tengo muy claro es dónde colocarlo, pero sería tal que así:

Código Delphi [-]TMiForm = CLASS (TFORM) { ... blablabla ... } PRIVATE (* Marca de final. Poner a FALSE en "OnCreate" y a TRUE en "OnClose". *) Terminar: BOOLEAN; { ... blablabla ... } (* El meollo de la cuestión. *) PROCEDURE BuclePrincipal; BEGIN REPEAT coordenadax:=mouse.curPos.X; coordenadax:=mouse.curPos.X; Application.ProcessMessages; UNTIL Terminar; END;


Como digo, el problema aquí reside en desde dónde llamar al método "BuclePrincipal".

No lo entiendo... Dónde está el problema en usar un timer para leer las coordenadas del mouse? Si se deja un intervalo "generoso" (seguro que con 100ms es suficiente), no debe haber ningún problema.

Por lo que entiendo, el problema lo tiene cuando se cierra la sesión y no finaliza el programa. Por lo que imagino, lo que ocurre es que el programa de LuisAlf no puede acceder a los datos del mouse, porque este está deshabilitado para la sesión o algo similar.

Por tanto, la solución sería capturar la salida de sesión (no sé como), y si se sale de sesión, parar de leer las coordenadas. O quizá con un bloque try..finally se solucionaría todo...

[LuisAlf::]

Empezado por mcs

¿A quién se le ocurre utilizar un "timer" para leer la posición del ratón?...

Jajajaja....pues a mi..claro!!!

Mira exacto!!! No hay ningun problema al utilizar un timer para este objetivo, ya que es un procedimiento que se llama cada determinado tiempo y es exactamente lo que tu me planteaste un procedimiento que lee las posiciones del cursor...cada cierto tiempo...

Empezado por mcs

O quizá con un bloque try..finally se solucionaría todo...

Esto ya lo habia contemplado, ya que un amigo me dijo algo de manejo de la excepcion... para encapsular el error y si...por hay fue mi solucion, yo batallando con la suspension de la sesion...jajaja mal enfoque del problema

Asi es lo que hice ayer fue eso, manipule el evento manejador de excepciones

Código Delphi [-]
 private
    { Private declarations }
    procedure TratarExcepciones (sender: tObject; e : Exception);
....

procedure TForm1.FormCreate(Sender: TObject);
begin
...
                    Application.OnException := TratarExcepciones;
.....
end;

creando un procedimento de tipo object, y que creen lo que puse en el procedure...
pues "nada"
jajaja

Código Delphi [-]
procedure tForm1.TratarExcepciones (sender: tObject; e:Exception);
begin
//NADADENADA
 end;

Dejenme explicarme, lo que pasa es que puse un showmessage en el procedimento para ver si encapsulaba el error que me mostraba windows y si efectivamente el showmessage se muestra en lugar de las otras ventanas del error que el propio windows me mostraba...

Y como yo no quiero que muestre ningun mensaje pues le quite el showmessage... de esta forma el error no se muestra y la aplicacion sola se estabiliza, trabajando correctamente despues de restaurada la sesion....

No se si sea la forma mas ortodoxa de solucionarlo pero funciona....

[Ñuño Martínez]

Empezado por mcs

Dónde está el problema en usar un timer para leer las coordenadas del mouse?

Pues, precisamente, en que el timer puede "activarse" fuera de contexto (que es lo que sospecho que le pasa a nuestro compañero LuisAlf:. No se puede garantizar que las interrupciones se produzcan en un momento determinado: se producirán cuando se produzcan y ya está.

Un ejemplo práctico es el procedimiento "Sleep". Tú le puedes decir que duerma durante 100 milisegundos, pero nada garantiza que exactamente 100 milisegundos después el sistema devuelva el control al programa. No sé cómo implementa los timer Delphi (supongo que usando MSG_TIMER del API, y posiblemente con un hilo [fork] paralelo) pero las posibilidades de que pase lo mismo son importantes. No olvidemos, tampoco, que Windows no es un sistema operativo de "tiempo real", como sí lo es MS-DOS, por ejemplo.

Si se quiere utilizar un timer, habrá de asegurarse de eliminarlo antes de que se salga del contexto, o al menos evitar que funcione si está fuera de él. Se me ocurre que antes de obtener las coordenadas del ratón, quizá se pueda comprobar si el objeto "mouse" o el contenedor del mismo sigue existiendo. Algo así como:

Código Delphi [-]
  IF mouse <> NIL THEN
  BEGIN
     CoordenadaX := mouse.curPos.x;
  END;

O quizá usar "SELF" o "Application" en lugar de "mouse".

<-- Evitar doble post -->

Empezado por LuisAlf::

Jajajaja....pues a mi..claro!!!

Mira exacto!!! No hay ningun problema al utilizar un timer para este objetivo, ya que es un procedimiento que se llama cada determinado tiempo y es exactamente lo que tu me planteaste un procedimiento que lee las posiciones del cursor...cada cierto tiempo...


Esto ya lo habia contemplado, ya que un amigo me dijo algo de manejo de la excepcion... para encapsular el error y si...por hay fue mi solucion, yo batallando con la suspension de la sesion...jajaja mal enfoque del problema

Asi es lo que hice ayer fue eso, manipule el evento manejador de excepciones

Código Delphi [-]
 private
    { Private declarations }
    procedure TratarExcepciones (sender: tObject; e : Exception);
....

procedure TForm1.FormCreate(Sender: TObject);
begin
...
                    Application.OnException := TratarExcepciones;
.....
end;

creando un procedimento de tipo object, y que creen lo que puse en el procedure...
pues "nada"
jajaja

Código Delphi [-]
procedure tForm1.TratarExcepciones (sender: tObject; e:Exception);
begin
//NADADENADA
 end;

Dejenme explicarme, lo que pasa es que puse un showmessage en el procedimento para ver si encapsulaba el error que me mostraba windows y si efectivamente el showmessage se muestra en lugar de las otras ventanas del error que el propio windows me mostraba...

Y como yo no quiero que muestre ningun mensaje pues le quite el showmessage... de esta forma el error no se muestra y la aplicacion sola se estabiliza, trabajando correctamente despues de restaurada la sesion....

No se si sea la forma mas ortodoxa de solucionarlo pero funciona....

No se me había ocurrido esta solución.

Aunque funcionar, funcionar... El problema aquí es que si se produce otro error, entonces no te enterarás... Quizá sea buena idea dejar constancia de los errores en algún sitio, como por ejemplo en un archivo de disco, por si las moscas.

[LuisAlf::]

Empezado por Ñuño Martínez

No se me había ocurrido esta solución.

Aunque funcionar, funcionar... El problema aquí es que si se produce otro error, entonces no te enterarás... Quizá sea buena idea dejar constancia de los errores en algún sitio, como por ejemplo en un archivo de disco, por si las moscas.

Gracias por la respuesta Ñuño!!

Pues la verdad no se me habia ocurrido lo del mouse<>nil
Creo que tambien podria funcionar!!, voy a intentarlo, en cuanto a los errores, no cre oque se produzca otro error importante, yo creo que en este era en lo que estaba batallando y ya funciona bien...
jjaja

Gracias!!!

[LuisAlf::]

No, lo del mouse<>nil no funciona...

Lo que pasa es que el "objeto" o referencia si esta creado, el problema es que no se puede acceder a las propiedades antes mencionadas...

Hablando del procedimiento que no hace nada, es posible encapsular nada mas el error EOeserror del objeto mouse, en el parametro "e" del procedimiento, y no hacer nada con el...