problemas con threads dentro de un componente

[elcigarra]

Amigos, estoy diseñando un componente visual que funciona como indicador. Dicho indicador alcanza su valor no directamente sinó simulando un movimiento que dura unos pocos segundos. Para que una aplicación que lo use pueda seguir funcionando mientras el control "se mueve" he puesto todo el código que simula el movimiento en un thread dentro del componente que se activa cuando el valor (a indicar) cambia y se suspende al llegar a dicho valor. El problema es que no logro que una aplicación con este componente siga funcionando mientras el control "se mueve". Todo se congela hasta que termine el movimiento como si no funcionara en hilos. ¿Tienen alguna idea de qué hice mal? Tratando de resumir, el esquema de código sería algo así:

procedure dibujar;
.....{dibuja todo el control y su escala en la posición requerida (dada por el "valor" temporal en el hilo), es un procedimiento público dentro de la unidad}

procedure mythread.mover;
begin
while not (valortemporal = valorfinal) do begin
{con un algoritmo calculo valor temporal en función del tiempo transcurrido desde que se inició el movimiento, es decir: empieza en el valor viejo y termina en el nuevo}
dibujar;
sleep(20); {esto hace que se redibuje cientos de veces todo el componente simulando el movimiento hasta llegar al valor}
end;
mythread.suspend; {hasta que el valor vuelva a cambiar}
end;

procedure mythread.execute
begin
Repeat
Synchronize(Mover);
until Terminated;
end;

{y dentro del código del componente y fuera del hilo, para cuando cambia el valor}
procedure mycomponent.SetValor(Value: Single);
begin
FValor:=Value;
mythread.Resume;
end;

Si no se entiende puedo profundizar o hasta mandar un demo.

[[Crandel]]

Hola, el código de primera vista parece estar bien.

Pero si decis que el programa se te congela, obviamente hay un problema.

Por lo que estuve mirando, me parece estar en el procedimiento mover;

un detalle que puede ser, pero no debería, es el valor del sleep muy pequeño, proba con valores mas grandes.

Lo que si genera mas sospechas es ciclo while que tenes dentro del mismo procedimiento. Pareciera que es el el que se dedica a actualizar la graficación del componente (ya que no indicas donde se hace). Si es asi, parece que no termina su ejecución hasta que termina de graficar, y ahi es el problema. Es como si estuvieras llamando al procedimiento mover directamente sin hilo.

Espero que te de una idea

Suerte

[elcigarra]

Crandel, evidentemente somos casi vecinos, por lo menos en internet ya que soy de Montevideo. Sabés que finalmente hoy a la 0:30 de la madrugada pude solucionarlo poniendo un Application.processmessages antes del sleep en el procedimiento mover. Yo tenía uno pero lo ejecutaba solamente una vez por proceso de movimiento. Poniéndolo de esta forma procesa los mensajes cada vez que dibuja una instancia del control.

Sin embargo tal vez puedas ayudarme en esto. Ahora funciona a la perfección, pero solamente cuando está solo, ya que si pongo dos o más controles iguales de estos, en un mismo form, solo funciona el último. Los primeros ni siquiera terminan de dibujarse bien, quedan como colgados mientras el otro funciona perfecto. Tenés idea si existe alguna interacción prohibida entre los threads iguales o hay que poner alguna restricción en los componentes que usan threads.? Se me ocurre que como el hilo esta dentro del componente si hay dos queda todo igual y el procesador se hace algún lío con esto. Tal vez lo que digo sea un disparate pero aviso que hace 15 días no sabía lo que era un thread :-).

[[Crandel]]

No hay ningún tipo de restricción en los holos de ls componentes. Cada componente ejecuta su propio hilo.

El problema que tenes es que estas poniendo Application.processmessages dentro del procedimiento mover y tu problema sigue siendo el mismo, tu componentes no esta corriendo multi hilo .

Con el processmessages, lo que le estas indicando a tu aplicación, es que procese los mensajes que tenga pendiente, pero eso no lo convierte en multihilo, dado que tu mientras los procesa, tu componente se deja de graficar. Sin embargo es una buena solución en muchas situaciones, pero no en la tuya.

Si queres mandame por mail tu código a crandel_z@yahoo.com.ar y te doy una mano.

Suerte

[jachguate]

El problema radica en el uso de synchronize que lo que hace es meterlo nuevamente todo al hilo principal de la VCL (via semaforos o un método equivalente). Te recomiendo leer la ayuda sobre este procedimiento para entender como funciona y en este caso dejar de usarlo, al menos donde lo usas, ya que probablemente sea necesario en todo o al menos en parte del método "dibujar".

Hasta luego.

[[Crandel]]

no creo que el problema sea el Synchronize, personalmente lo uso en un programa donde se actualiza un ProgressBar, dentro de un hilo.

[jachguate]

Empezado por Delphi help

Synchronize causes the call specified by Method to be executed using the main VCL thread, thereby avoiding multi-thread conflicts. If you are unsure whether a method call is thread-safe, call it from within the main VCL thread by passing it to the Synchronize method.

Execution of the thread is suspended while Method is executing in the main VCL thread.

¿te parece que no?

Saludos.

[[__hector]]

creo que en la instalacion de delphi viene un ejemplo de threads que muestra la eficiencia de diversos algoritmos de ordenacion (al menos venia en mi viejo delphi5) Es sencillo de analizar, y creo que se adapta bastante a lo que quieres lograr, asi que nada pierdes echandole un ojo.

[elcigarra]

jachguate, me parece que debes tener razón, el tema es que no entiendo el texto que enviaste de la ayuda (y no es porque no entienda inglés). Para más datos, el componente es una especie de progressbar y el código no es mucho más sobre Delphi que el esquema que mandé salvo que alguien quiera repasar sus lecciones de secundaria de movimiento armónico amortiguado, de Delphi no hay nada útil en el codigo (que lamento, crandel, no puedo mandartelo). Leete el esquema de mi primer mensaje. El metodo dibujar solamente dibuja una "foto" del control en las coordenadas del control, se me ocurre que el asunto es en el "mover" que es el lanzador del dibujo y es un método que no termina hasta alcanzar el valor final.

Mi idea inicial fue ponerlo TODO en un thread y esperaba que de esa forma si ponían dos componentes iguales funcionando en el mismo formulario, se verían moverse mismo tiempo (ya que cuando no utilizaba hilos, hasta que no terminaba uno no empezaba el otro). ¿Hay otra forma de lograr esto?.

Jachguate, ¿tu decís que no puedo utilizar synchronize en los VCL? ¿Cual es la alternativa entonces? Si tienes una variante a mi esquema tal vez pueda hacerlo funcionar. He visto ejemplos de VCL con threads pero en ningun caso se simulan movimientos continuos como en el mío.

Una última consecuencia curiosa, cuando pongo dos componentes de esos, no solamente se cualga uno de ellos. El segundo en actualizarse (que es el único que funciona) utiliza los valores de variables que pertenecen al primero. Es como que se le cruzan las variables del otro. ¿Alguna idea?