La funcion que uso para obtener el tamaño es esta:
Código:
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
Código:
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:
Código:
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;