9 replies to this topic

[agag4]

Buen dia compañeros, alguien sabe de algun componente que se use para copiar archivos en windows y que tenga un evento para ver el progreso del copiado, para poner algun porciento ó tiempo restante a copiar....

[felipe]

Lo de copiar archivos lo podrias hacer por código, lo de los progresos pues Delphi cuenta con tres,

• Progressbar - La tipica barra de progreso verde de algunos programas.
  
• Shape - Se puede cambiar su apariencia, desde un cuadrado hasta un circulo y el progreso se muestra en azul.
  
• Animate -  Las tipicas animaciones de Win de eliminar, copiar, pegar.

Saludos!

[enecumene]

Aquí­ dejo un ejemplo rápido, tendrá sus fallas pero alguna idea te dará

Saludos.

[agag4]

Eso ya lo sé, uso el CopyFile, pero la aplicación aparentemente se queda colgada, se empieza a poner semi blanca la ventana, el usuario no sabe, pero internamente se esta copiando 1 archivo de 1GB de otra pc por medio de la red local, ya intente poner una animacion pero pasa lo mismo no se mira, puse un label llenando puntos y pasa igual, meti un timer que se activa cada 2 segs, con el codigo :

Application.ProcessMessages;

Pero sigue igual se queda en blanco la pantalla de la aplicación, es por eso que ando buscando algun componente que copie un archivo y que tenga algun envento donde se cache el avance del copiado, no se si me explique ?????

[enecumene]

Pues si ese es el caso, hay un code de nuestro estimado ChackAll para esos casos y se llama Busy!, espero que te ayude.

Saludos.

[agag4]

No puedo entrar al enlace BUSY, me marca este mensaje:

El tema o foro que estás buscando parece que no existe, o fuera de tus lí­mites.

[enecumene]

No puedo entrar al enlace BUSY, me marca este mensaje:

El tema o foro que estás buscando parece que no existe, o fuera de tus lí­mites.

Perdón es que es un foro platino :$, dejame reproducirte el tema:

Es muy común que nuestras aplicaciones aparenten estar “colgadas” cuando realizan alguna operación compleja; dicha operación puede ser realizada por el sistema operativo al haberse llamado a una determinada API, en la espera de la finalización de un “Commit” por un motor de base de datos, por que “cargamos” con una montaña de información a un componente de terceros o por otra razón.

Cuando la causa de dicho problema es un bucle que el propio programador ha escrito, comúnmente opta por llamar a “Application.ProcessMessages” en cada repetición para ir liberando la cola de mensajes, con lo cual WM_PAINT, WM_MOUSEMOVE y otros mensajes, al ser procesados refrescan el estado de la ventana. Conociendo también el inicio y el final de dicho proceso incluimos una barra de progreso en la aplicación y junto a la ya citada llamada solucionamos el problema.

Pero cuando la operación dura un tiempo indeterminable y/o es imposible incluir dicha llamada porque el “bucle” se encuentra en un lugar inaccesible, llega a ser complicado asegurarse que el usuario sepa que la aplicación está “ocupada” y no puede responde adecuadamente.

Las aplicaciones se quedan “colgadas” porque el hilo principal (el encargado de procesar los mensajes) no puede procesar la cola de mensajes porque está “ocupado”. En dicho contexto la solución serí­a “introducir” el proceso “complicado” en un hilo adicional pero esto puede llegar a ser todo una hazaña. Tampoco es aconsejable procesar los eventos desde otro hilo porque comúnmente hacemos aplicaciones que trabajen en varios hilos.

Para solucionarlo adjunto una unidad que implementa dos funciones, la primera se encarga de crear una nueva ventana de progreso compatible con las últimas versiones de Windows en un hilo nuevo, el cual procesa sus propios mensajes mientras nuestra aplicación se encuentra realizando una determinada operación. La segunda llamada cierra dicha barra de progreso utilizando un evento como método de sincronización con el hilo previamente creado.

Ejemplos;

delphi

uses _Busy;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 BusyBegin('Haciendo "algo"...', Handle);
 
// ReadFile(hCOM, Buffer, SizeOf(Buffer), Count, nil);
// StartService(hService, 0, PPChar(0)^);
// connect(hSocket, name, SizeOf(Addr));
// Busca('xxx*.mp*');
// Hell.CommitTrans;
// etc, etc...
 Sleep(6666);
 
 BusyEnd;
end;

delphi

program Delphi2010;
 
uses
 Forms, _Busy,
 Unit1 in 'Unit1.pas' {Form1};
 
begin
 Application.Initialize;
 BusyBegin('Iniciando...', Application.Handle);
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 Application.CreateForm(TForm3, Form3);
 Application.CreateForm(TForm4, Form4);
 Application.CreateForm(TForm5, Form5);
 Application.CreateForm(TForm6, Form6);
// ...
 BusyEnd;
 Application.Run;
end.

Enjoy!

Busy.pas

Saludos.

[escafandra]

Usa CopyFileEx definiendo una función callback CopyProgressRoutine. 

Saludos.

[agag4]

gracias por sus respuestas, encontre un ejemplo que me callo como anillo al dedo, se los dejo por si alguien busca lo mismo....


http://www.clubdelphi.com/trucos/index.php?id=423&scroll=0&scrollb=0

[escafandra]

Efectivamente, con CopyFileEx 

Saludos.