Aprendiendo Hilos, (no corre como un hilo)

[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;