Threads sobre Componentes

[NeWNeO]

Hola:
Me gustaria usar threads en mis componentes. ¿Alguien me puede guiar?

[ruina]

Bueno, una pequeña busqueda en google arroja:

http://www.pergolesi.demon.co.uk/prog/threads/ToC.html
en ingles

http://www.gui.uva.es/login/17/delphi.html
en castellano, pero menos completa, a modo de introducción está bien.

[NeWNeO]

A ver ke anoche era mu tarde y no me explique muy bien. Yo creo mi componente, y ahora quiero implantar el thread. Creo el thread, pero a la hora de sincronizarlos no se por donde tirar (hay x ahí un ejemplo palpable?, 1 ejemplo vale más que 1000 lineas )
Gracias.

[Gydba]

Hola,

La verdad es que poco entiendo de tu mensaje por la poca info que das. Pero en una de esas esto te ayuda en algo:
http://community.borland.com/article...,22411,00.html

[NeWNeO]

Ok, voy a intentar aclarar esto:

Hace tiempo estuve trabajando en un componente de control de cd (que hay algunos comentarios por el foro). Finalmente conseguí hacer trabajar el AllocateHWND y el DeallocateHWND para captar mensajes de las unidades del sistema y pude hacer trabajar mi componente. Pero hay un problemita con todo esto: Cuando hago algún movimiento sobre las unidades (abrir, cerrar, obtener el ID etc..) la aplicación se queda "colgada" esperando el mensaje del lector hasta que este llega. La solución a esto es usar un thread que envie y reciba el mensaje en lugar del componente. Ejemplo:

Código Delphi [-]
 
Type
 TCDThread = Class(TThread)
  Private
   fresult: PAnsiChar;   //Aqui almacenamos el resultado
   procedure PostMCIString(Handle: HWND;Mensaje: String); // Con esto enviamos el comando a la unidad
  procedure GetBack; // Con este proceso enviamos el fResult al componente
  Public
 end;
 TCDControl = Class(TComponent)
 private
 procedure ProcessResult(P: PAnsiChar);
 public 
  property OpResult: PAnsiChar write ProcessResult;
...

// Mi problema viene cuando ejecuto el GetBack, y hago : 

...
procedure TCDThread.GetBack
begin
 TCDControl.OpResult := fResult;
end;

Cuando pongo TCDControl. no aparece ni OpResult ni ninguna de las variables, procesos o propiedades que tiene el componente... No se si me he explicado bien del todo... Si hay alguna duda sobre algo pliz ruego me lo pregunteis. Gracias por vuestro tiempo

NOTA: Gybda, ese link puede que solucione mi problema, lo aplico y ya comento el resultado. Gracias

[Gydba]

Empezado por NeWNeO

Cuando pongo TCDControl. no aparece ni OpResult ni ninguna de las variables, procesos o propiedades que tiene el componente...

Me parece que lo estás poniendo en el apartado public en vez de published...

Saludos

[ruina]

Espera que me parece que lo he pillao:

no puedes modificar TCDControl. porque no es el objeto-componente, eso es la Clase.
Seria necesario que al Thread le pasaras el "Owner" o la instancia del control al que debe llamar, ma o meno es asi:

Código Delphi [-]
TCDControl = class(...)
private 
   MiCDThread:TCDThread;
   procedure IniciarThread;
...
end;
 
procedure  TCDControl.IniciarThread;
begin
      MiCDThread:=TCDThread.create(true);
      MiCDThread.Componentellamada:=Self;
...
 
end;
 
 
TCDThread = class(thread)
public
      Componentellamada:TCDControl;
       ...
end;

Ahora ya tendrias el objeto Componentellamada para poder "jugar" con él, eso si, si quieres cambiar algo debes hacerlo en un método Syncronized del thread, por ejemplo creas un método llamado TCDThread.ActualizaControl y en el execute lo llamas con: Synchronize(ActualizaControl)

Código Delphi [-]
procedure TCDThread.ActualizaControl;
begin
      Componentellamada.Label1.Caption = 'pepe';
      Componentellamada.Variable:=56;
      ....
 
end;

Si creas el Thread mediante new... Thread Object, ya te escribira parte del código.