Aprendiendo Hilos, (no corre como un hilo)

[flystar]

Hola Hermanos.

Estoy aprendiendo a programar hilos, hice un ejemplo muy simple
de un programa que cada segundo que pasa le cambia el titulo a una venta
a 1 y luego 2 y luego 3 y asi sucesivamente, el objetivo es que dicha acción
la haga por medio de un hilo de ejecución, y la forma de saber si lo esta haciendo así es que durante el proceso podamos arrastrar nuestra aventana
con el mouse o apretarle a otro boton y que haga algo simple como cambiar el color de la ventana etc, ustedes saben.

El problema es que al ejecutar el hilo...si funciona, pero no me libera la ventana, pareciera que no se estuviera ejecutando realmente en un hilo.

Quiero ver si alguien de alma caritativa me pudiera decir que estoy haciendo mal.

Enseguida tratare de explicar el código simple que uso:

Aqui, simplemente declaro un nuevo objeto de clase TThread:

type
  CambiaTituloEnHilo= class(TThread)
  private
    Procedure Actualiza_Ttitulo_Ventana;
    { Private declarations }
  protected
    procedure Execute; override;
  end;

Luego declaro el constructor que manda llamar al procedimiento del objeto hilo:

procedure CambiaTituloEnHilo.Execute;
begin
  Synchronize(Actualiza_Ttitulo_Ventana)
end;

Luego declaro el procedimiento Actualiza_Ttitulo_Ventana:

Procedure CambiaTituloEnHilo.Actualiza_texto;
var
inicio:integer;
begin
  inicio:=1;
  for inicio:=1 to 400 do
  begin
        form1.Caption:=inttostr(inicio);
        sleep(1000); //Espera un segundo
   end
end;

y luego para arrancar el hilo, pues solo creo un objeto de la clase
CambiaTituloEnHilo, esto puede ser al apretar un boton y cuando eso pase pues el constructor execute
se mandara llamar:

  MiHilo:=CambiaTituloEnHilo.Create(false);

y listo....pero que creen??? NO funciona jejeje
Osea si funciona..si cambia el titulo de la ventana pero me inhibe la ventana.

Pues que estoy haciendo mal?

Gracias.

[DarkMan]

Te aconsejo que te informes sobre el procedimiento "Synchronize", porque al parecer no has entendido la dinámica ni el funcionamiento del mismo.

Todo lo que ejecutes en el procedimiento pasado a "Synchronize" se ejecuta en el hilo principal, logrando una sincronización de todos los hilos. Por ello se produce el "cuelgue" de tu aplicación. Ese cuelgue se debe al procedimiento "Sleep", el cual bloquea al hilo durante 1000 milisegundos. Tan solo debes alterar el código como te indico a continuación, ejecutando dicho procedimiento dentro del "Execute" del hilo:

Código Delphi [-]
procedure CambiaTituloEnHilo.Execute;
var
inicio:integer;
begin
  for inicio:=1 to 400 do
  begin
        Synchronize(Actualiza_Ttitulo_Ventana);
        sleep(1000); //Espera un segundo
  end;
end;

Código Delphi [-]
Procedure CambiaTituloEnHilo.Actualiza_Ttitulo_Ventana;
begin
        form1.Caption:=inttostr(inicio);
end;

[flystar]

y si lo bloquea por que lo volviste a poner??

Saludos

[DarkMan]

Empezado por flystar

y si lo bloquea por que lo volviste a poner??

Saludos

La cuestión no es si ponerlo o no, la cuestión es dónde ponerlo.
Tu error era colocarlo dentro del procedimiento que ejecutas mediante Synchronize().

Creo que debes releer mi respuesta anterior de nuevo, con detenimiento.

Un saludo.

[flystar]

Tienes razon, ya lo arregle,

La onda es que quiero hacer un auto arranque de un programa
para que se actualize solo a la nueva version y luego arranque,

para tal motivo necesitaba de hilos para que al ir bajando el programa
con otro hilo fuera consultando el tamaño del archivo bajado,
ahora la bronca es que el hilo que mide el tamaño del archivo bajandose
solo funciona en los primeros momentos de la descarga, y luego cuando termina de descargar el archivo, vuelve a recuperar su funcion el hilo que da el tamaño.

Es normal?

[flystar]

La funcion que uso para obtener el tamaño es esta:

function tamanoFichero2 (sFileToExamine: string) : Integer;
var
  SearchRec: TSearchRec;
  sgPath: string;
  inRetval, I1: Integer;
begin
  sgPath := ExpandFileName(sFileToExamine);
  try
    inRetval := FindFirst(ExpandFileName(sFileToExamine), faAnyFile, SearchRec);
    if inRetval = 0 then
      I1 := SearchRec.Size
    else
      I1 := -1;
  finally
    SysUtils.FindClose(SearchRec);
  end;
  Result := I1;
end;

La pongo en otro hilo mediante otra clase de clase hilo jeje.
Creo el hilo que va bajar el archivo y luego el hilo que va a ir midiendolo

  midescarga:=TDescarga.Create(false);
        miDiceElTamanio:=TDiceTamanio.Create(false)

nomas que el seguno hilo nomas jala durante los primeros amomentos
y luego ya se frenaz y cuando termina el otro entonces ya se recupera.
Algo quizas haga mal...que sera? Alguien lo sabe?

La parte donde declaro los objetos es esta:

TDescarga = class(TThread)
  private
  protected
    procedure Execute; override;
end;

TDiceTamanio = class(TThread)
  private

  protected
    procedure Execute; override;
    procedure llamaDecirTamanio;
    function tamanoFichero2 (sFileToExamine: string) : Integer;
end;