uso del WaitFor() en Threads

[chalitox]

Hola como andan.

al llamar a WaitFor sobre un thread me lanza la excepción EThread con el siguiente mensaje...

Thread Error: Controlador no válido (6).

Alguien sabe que quiere decir con eso, o una página donde se documente bien esta excepción.
¿Por que las excepciones en Delphi estan tan poco documentadas?

Muchas gracias, saludos
Ramiro

[delphi.com.ar]

Fíjate que el mensaje es en español, lo me hace sospechar que se trata de un error del sistema operativo (Ademas de ser un error conocido y detestado ).
¿Puedes mostrarnos algo de código?..

[chalitox]

Este el codigo que ejecuto...

Código Delphi [-]
procedure TMonitor.FinalizarMonitoreoDeStats;
begin
    {:
        Indica el estado actual de monitoreo.
        -1: Terminar de monitorear
        0: Monitero detenido
        1: Primer monitoreo
        2: Monitoreando
        3: Time out
        4: No conectado a la red

        Con esto, si estado > 0 siempre estara monitoreando o intentando monitorear.
    }
  estado := -2;

    // por si no estaba monitoreando
    if self.Suspended then
    self.Resume;    
end;

procedure TForm1.Logout;
var
    i, count, r: Integer;
    {
        TMonitor = class(TThread)
        Lo que hace este monitor es monitorear un servidor.
    }
    monitor: TMonitor;
begin
    // rutina de loguot
    if self.panelSplit.Visible then
        begin

        count := self.monitres.Count;
        // Detener todos los monitores
        for i:=0 to count-1 do
            begin
            monitor := TMonitor(self.monitres.Items[0]);
            monitres.Delete(0);
            
            // FinalizarMonitoreo lo que hace es cambiar el estado interno 
            // del monitor para que termine su ejecucion lo mas rapido 
            // posible, y como notifica muchos eventos
            // por ej:
            //    Detenido
            //    Desconectado
            // es que debo esperarlo, porque se puede dar que se termine
            // cerrar el Form y el thread no termino de cerrarse... y asi
            // con c/u de los monitores
            monitor.FinalizarMonitoreo;
            r := monitor.WaitFor;
            end;

        // Ocultar y desactivar componentes
        self.SetActivoComponentesDeMonitoreo(False);
        self.SetActivoComponentesLogin(False);

        end;
end;

Vale aclarar que el "Terminate := True" lo hace el mismo TMonitor dentro del Execute cuando consulta el estado y se da cuenta de que tiene que terminar.

Gracias de ante mano, saludos
Ramiro

[delphi.com.ar]

Que tipo de lista es monitres ???...
Si un thread termina inesperadamente antes de TForm1.Logout, es quitado de esta lista??

[[seoane]]

Déjeme adivinar, tienes la propiedad FreeOnTerminate del Thread a TRUE. Si es así, cuando finaliza el thread el objeto es destruido, por eso al llamar a WaitFor te da ese error.

¿Acerte?

[chalitox]

Antes que nada... perdon por borrame 6 dias y hola.

Que tipo de lista es monitres ???...
Si un thread termina inesperadamente antes de TForm1.Logout, es quitado de esta lista??

monitores es un TList, no hace flata que sea un TThreadList porque solo es tocada por el Form. En cuanto a la eliminacion del monitor de la lista fijate que lo elimino antes del WaitFor()...
Código Delphi [-] // Detener todos los monitores for i:=0 to count-1 do begin monitor := TMonitor(self.monitres.Items[0]); //ACA lo elimino de la lista monitres.Delete(0); // FinalizarMonitoreo lo que hace es cambiar el estado interno // del monitor para que termine su ejecucion lo mas rapido // posible, y como notifica muchos eventos // por ej: // Detenido // Desconectado // es que debo esperarlo, porque se puede dar que se termine // cerrar el Form y el thread no termino de cerrarse... y asi // con c/u de los monitores monitor.FinalizarMonitoreo; r := monitor.WaitFor; end;

lo hago antes porque tengo decidido destruir monitor.

seoane... vos decis que si llamo al WaitFor y el thread esta Terminated explota!

Gracias por el tiempo, ya me pongo otra vez con eso... espero traeles buenas nuevas.

Ramiro

[[seoane]]

Empezado por chalitox

seoane... vos decis que si llamo al WaitFor y el thread esta Terminated explota!

No, yo no digo eso. Yo digo que si llamas a WaitFor y el OBJETO Tthread ya no existe, o se destruye mientras se esta ejecutando WaitFor, entonces si que hay problemas.

Si la propiedad FreeOnTerminate esta a true, pasaría lo siguiente. Con "FinalizarMonitoreo" mandas finalizar el thread, el thread finaliza, el objeto Thread se destruye y la llamada a WaitFor "explota" como dices tu.

Pero insisto, si no tienes la propiedad FreeOnTerminate a TRUE, todo lo anterior no es la explicación a tu problema, y tendrás que buscar la causa en otro sitio.

[delphi.com.ar]

Empezado por seoane

...Yo digo que si llamas a WaitFor y el OBJETO Tthread ya no existe, o se destruye mientras se esta ejecutando WaitFor, entonces si que hay problemas.

A lo mismo me refiero yo al decir:

Empezado por delphi.com.ar

Si un thread termina inesperadamente antes de TForm1.Logout, es quitado de esta lista??

¿Quién se encarga de mantener la lista?...
Ademas, aparentemente no estas escribiendo código Thread-Safe, porque el mismo item de la lista puede estar siendo eliminado por tu procedimiento TForm1.Logout o el mismo Thread.