Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-03-2010
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
Question El programa se queda "colgado" mientras copia y luego "despierta"

Buenos tardes.

Tengo una aplicacion que entre otras cosas tiene que copiar unos archivos de un directorio a otro, para luego poder tratar esos archivos sin ningun tipo de riesgo ni nada parecido.

La aplicacion hace todo lo que tiene que hacer, pero estoy intentando pulirla, el problema que tengo es que en el momento de copiar los archivos la aplicacion se queda "colgada" mientras los copia, y no se como hacer para disimular eso, ya que queda un poco fea.

He intentando hacer un form nuevo con un circulo que vaya dando vueltas mientras copia, y cuando acabe de copiar se cierre ese form, eso funciona pero tendria que hacer lo siguiente:

- Sabiendo que archivos hay q copiar
- Se abre el form de espera
- Se activa el circulo
- Copia los archivos
- Desactiva el circulo
- Cierra el Form

Y a mi lo que me hace es:

- Se abre el form de espera y se queda en blanco
- Supuestamente tendria q activar el circulo pero no lo hace
- Copia los archivos
- Se ve el circulo un momento
- Se cierra el Form.

Espero que me den algun consejo, mas que nada para que quede mas bonita la aplicación.

Por si sirve para algo, al copiar los archivos lo hago con CopyFile, no me interesa tener barra de progreso ni nada, simplemente quiero un "Cargando" con el circulito.

Muchisimas gracias por adelantado.
Responder Con Cita
  #2  
Antiguo 10-03-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola NeWsp, añade esta línea donde copias los archivos.

Código Delphi [-]
  Application.ProcessMessages;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 10-03-2010
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
Hola Caro,

Gracias por contestar tan rapido, he estado buscando informacion de el comando que me has dicho, y le veo utilidad en un bucle, pero en mi caso no consigo hacer lo que necesito, pero bueno ha mejorado un poco.

Al añadir el comando, ahora si que aparece el circulito, pero no da vueltas hasta que ha acabado de copiar, si no te importa te pego la parte del codigo a ver si es que no lo coloco en el lugar adecuado, aunque creo que lo he probado en todos.

Código Delphi [-]
form2.AdvCircularProgress1.Enabled:=true;
          form2.AdvCircularProgress1.Position:=0;
          form2.Show;
          Application.ProcessMessages;
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclil.dbf'), PChar(DirAplic+'\TEMP\pedclil.dbf'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\clientes.dbf'), PChar(DirAplic+'\TEMP\clientes.dbf'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclil.cdx'), PChar(DirAplic+'\TEMP\pedclil.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\clientes.cdx'), PChar(DirAplic+'\TEMP\clientes.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclit.cdx'), PChar(DirAplic+'\TEMP\pedclit.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclit.dbf'), PChar(DirAplic+'\TEMP\pedclit.dbf'), False );
          CopyFile( PChar('c:\prueba.exe'), PChar(DirAplic+'\TEMP\prueba.exe'), False );

          form2.Timer1.Enabled:=true;

El timer lo que hace es que cuando se acaben de copiar los archivos espere 1 segundo mas, se desactive el circulo, y cierre el form.

al no ser un bucle, e intentado poner el processMessages despues de cada linea del copy, pero sigue haciendo lo mismo.

Gracias otra vez.

Gracias
Responder Con Cita
  #4  
Antiguo 10-03-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Podrías poner el Application.ProcessMessage después de cada CopyFile. Pero, aunque ayudaría un poco, lo mejor sería que pusieras el copiado de archivos en un hilo aparte. Busca en la ayuda de Delphi acerca de la clase TThread.

// Saludos
Responder Con Cita
  #5  
Antiguo 10-03-2010
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
Gracias Roman, estoy buscando información en google, y la verdad es que me estoy estresando un poco T_T es un poco complicado de entender, pero bueno, seguire investigando los Tthread.

Gracias.

Última edición por NeWsP fecha: 10-03-2010 a las 21:49:11.
Responder Con Cita
  #6  
Antiguo 10-03-2010
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Poder: 21
NeWsP Va por buen camino
Bueno, creo que lo he ido cogiendo, tengo una dudita mas, que no se si es correcto exponerla en este mismo post pero bueno, es sobre el mismo tema.

He hecho un thread y este es su execute, la parte que le marco toda la ruta sin variables funciona, pero la parte del "codseleccionado" no funciona.

Código Delphi [-]
procedure TCopiar.execute;
begin
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclil.dbf'), PChar(DirAplic+'\TEMP\pedclil.dbf'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\clientes.dbf'), PChar(DirAplic+'\TEMP\clientes.dbf'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclil.cdx'), PChar(DirAplic+'\TEMP\pedclil.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\Clientes.cdx'), PChar(DirAplic+'\TEMP\Clientes.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclit.cdx'), PChar(DirAplic+'\TEMP\pedclit.cdx'), False );
          CopyFile( PChar(RutaCorrecta+'\dbf'+codseleccionado+'\pedclit.dbf'), PChar(DirAplic+'\TEMP\pedclit.dbf'), False );
          CopyFile( PChar('c:\prueba.exe'), PChar(DirAplic+'\TEMP\prueba.exe'), False );
end;

Asi que he estado buscando y he declarado esa variable de la siguiente manera:

Código Delphi [-]
threadvar
  codseleccionado:string;

y la forma en que llamo al Thread es la siguiente:

Código Delphi [-]
codseleccionado:=DBLookupCombobox1.KeyValue;
form2.AdvCircularProgress1.Enabled:=true;
form2.AdvCircularProgress1.Position:=0;
form2.Show;
Copiar:=TCopiar.Create(false);
form2.Timer1.Enabled:=true;

La parte de mostrar el form2 y del tiempo que dure me da igual, ahora solo necesito que copie los archivos.

La copia de archivos no la hace correcta porque la variable codseleccionado no coge el valor que tiene que ser,

Ejemplo con palabras (perdon no me sale la palabra) :

Código:
Tendria que ser:
COPIAR C:\PROGRAMA_ORIGINAL\dbf02\pedclil.dbf a C:\Mi_Programa\TEMP\pedclil.dbf

Pero ahora sale:
COPIAR C:\PROGRAMA_ORIGINAL\dbf\pedclil.dbf a C:\Mi_Programa\TEMP\pedclil.dbf
El problema esta en que el valor que tendria que coger del ComboBox no se porque no lo almacena, o el Thread no puede leerlo correctamente.

Espero que se entienda el problema, lo he intentado exponer lo mas claro posible.

Gracias por adelantado (Si, otra vez)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
"OBJECT OR CLASS TYPE REQUIRED" en "APPLICATION EXENAME" Xavierator Varios 3 27-10-2008 10:09:50
Necesito llamar a métodos de clases "hija" desde su clase "padre" Flecha OOP 17 20-04-2007 01:03:53
Por qué el "die" luego de un "header" dec PHP 5 29-01-2007 12:06:21
porque no me reconoce los caracteres "*" ni "%" cuando filtro mrmago Conexión con bases de datos 10 27-01-2006 05:21:16
Programa "colgado" alxrufino API de Windows 1 21-10-2004 22:36:02


La franja horaria es GMT +2. Ahora son las 21:07:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi