Ejecución bloqueada. Hilos de ejecución

[muli]

No estoy haciendo ninguna espera, lo que quiero es que mientras el query trae los registros se mueva la barra de progreso, para que no parezca que la aplicación está congelada, o sea, que el usuario vea movimiento mientras se realiza la consulta.

Algún enlace entendible para estudiar más del tema.

[[AgustinOrtu]]

Revisa este post

[mamcx]

Ya te explique el problema. Lee con cuidado.

Si simplementes copias/pegas un codigo por ahi sin entender como hacer multi-hilos terminaras sin querer incorporando bug(s) y/o haciendo el codigo mas ineficiente.

Un computador moderno (ie: De menos de 4 años para aca) es suficientemente rapido para hacer casi de todo en forma secuencial, y la mayoria de los lenguajes (como delphi) no son optimos para hacer concurrencia, asi que es facil hacer algo con problemas.

[[AgustinOrtu]]

Estoy casi completamente de acuerdo

Digo casi porque para el caso de mostrar un "espere por favor" mientras se hace cierto procesamiento y no bloquear la UI es algo bastante sencillo en Delphi. Aunque admito que si hay que realizar calculos en paralelo y sincronizacion con Delphi es bastante mas complicado

[NicolasP]

Tema viejo , pero hago un aporte. Después de buscar y leer por varios días post que dicen "lea este post..." lo pude hacer funcionar el AniIndicator para que se "mueva" con un proceso.
Me funciona en windows y también en Android 6.0 con D X7

Form Principal.

Código Delphi [-]
procedure TFmMAin.SB_DbReadClick(Sender: Tobject);

begin

 PAnelAviso.Visible := true;
 AniIndicator1.Enabled := true;
 Hilo := THilo.Create(True);
 Hilo.Start;
 while not Hilo.Finished do
  begin
   ProgressBar1.value := ProgressBar1.Value +1;
   sleep(20);
   if ProgressBar1.Value = 100 then
     ProgressBar1.Value := 0;
     Application.ProcessMessages;
  end;
 ProgressBar1.Value := 0;
 AniIndicator1.Enabled := false;
 PAnelAviso.Visible := false;

.....

Nota: El AniIndicator esta en un Panel. Le puse también un Progressbar para ver si funcionaban juntos. y funcionan!. Sin en el Application.ProcessMessages no funcionan.


Unidad para el proceso

Código Delphi [-]
unit procesos;

interface
uses
Classes, SysUtils;

type
  THilo = class(TThread)
  protected
  procedure Execute; override;
end;


implementation
 uses main;

procedure THilo.Execute;
begin
  FmMain.RestRequest1.Execute;
end;

end.

No se si es eficiente, pero no me importa. Lo importante que el usuario crea que lo es (ja) . Y vea que su dispositivo esta "pensando" ... después le podemos echar la culpa a las comunicaciones, etc....