manejo de threads ...

[ecfisa]

Hola anubis.

En este enlace: Velocidad de un timer, tenes un ejemplo de como implementar un timer con thread. Escribí el código para Delphi pero lo acabo de probar en Lazarus y funciona perfectamente con solo hacer unos pequeños cambios.

En la unidad uTimeThread:

Código Delphi [-]
procedure TTimeThread.Execute;
begin
  while not Terminated do
    Synchronize(@WaitInterval);  // <--- "@" agregado
end;

Y en el ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnComenzarClick(Sender: TObject);
begin
  if not Assigned(TimeThread) then
  begin
    FCont := 1;
    TimeThread:= TTimeThread.Create;
    // Intervalo expresado: 1/1000000 seg. (µs)
    TimeThread.Interval := 100000; {1/10 seg }
    TimeThread.OnTime   := @TimeThreadOnTime; // <--- "@" agregado
    TimeThread.Execute;
  end;
end;

La adaptación a un TProgressBar es tan simple como:

Código Delphi [-]
procedure TForm1.TimeThreadOnTime;
begin
  if (ProgressBar1.Position = 100) and Assigned(TimeThread) then
    TimeThread.Terminate;
  ProgressBar1.Position:= FCont;
  Inc(FCont);
  Application.ProcessMessages;
end;

Saludos

[anubis]

Gracias, ya lo implemente, pero me surgen algunas dudas.

En teoria siempre hay que usar un timer para el thread?.

Tengo que ver mas a fondo los threads porque no me aclaro mucho la verdad.

Si pongo el inicio del thread en el form1.activate, hago lo que tiene que hacer los procesos, cuando acaban de inicio, ya le pongo la procedure finalizar. Aun asi, con todo y todo, se tarda algo.

En el create no se puede porque todavia no esta creado el form.

Si es un poco de lio los threads. Sabeis algun enlace donde pueda ver bien los threads?. Ya vi los del wiki, pero me lian.

gracias

[ecfisa]

Hola anubis

En teoria siempre hay que usar un timer para el thread?.

No, los hilos se pueden utilizar para realizar cualquier proceso.

En el create no se puede porque todavia no esta creado el form.

Podes hacer:

Código Delphi [-]
...
uses ..., Windows, Messages;

const
  WM_AFTER_CREATE = WM_USER + 300;
type
  TForm1 = class(TForm)
  ...
  private
    ...
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  end;
...
implementation

procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
  if not Assigned(TuThread) then
  begin  
     TuThread := TTread.Create;
     ...
     TuThread.Execute;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_AFTER_CREATE ,0, 0);
end;
...

Sabeis algun enlace donde pueda ver bien los threads?. Ya vi los del wiki, pero me lian.

Busca artículos, documentos, tutorials, etc en referencia a Delphi, existe mas información que para Lazarus y como ya has visto, la implementación no es tan diferente.

Saludos