FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Jalo pero a medias
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; 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) 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;
__________________
"Los unicos que no se equivocan son aquellos que no intentan hacer algo." Iván Caballero Cano... ivanhalen77@gmail.com |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Como paso el alias a un programa que corre en un PC sin delphi ? | Parsec | Conexión con bases de datos | 4 | 06-06-2008 01:12:24 |
Como usar dbExpress en hilos ? | rolandoj | Conexión con bases de datos | 7 | 05-03-2008 21:12:32 |
cuando llamo ejecutar un hilo dentro del proceso del hilo no lo hace | robertosc | Varios | 1 | 14-08-2007 22:11:09 |
Como grabar mientras la aplicacion corre? | principiante22 | Varios | 3 | 01-07-2007 19:12:01 |
Como detectar el S.Operativo donde corre Firebird | pcicom | Conexión con bases de datos | 2 | 23-06-2005 23:16:30 |
|