Mi programa no responde mientras trabaja

[Sr_Sombrero]

Hola:
Puse una sección de código que está entre un "repeat" y un "until". Cuando se ejecuta funciona bien pero el programa no responde durante este lapso y la ventana se desdibuja si la muevo, cuando termina de ejecutarse ese código sigue funcionando normalmente. (uso Win98)

¿Como evito eso?
¿Serviría poner esa parte de código un otro unit ?

Saludos

-------------Codigo (por si les sirve verlo)---------------

Repeat

// suma 1 al offset de inicio

intNumeroArchivo:= (intNumeroArchivo) + 1;
strNumeroArchivoTmp:= IntToStr(intNumeroArchivo);

// agrega ceros segun el largo de la cadena para formar el nombre de archivo

if Length(strNumeroArchivoTmp)= 1 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 2 then
strNumeroArchivo:= '000000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 3 then
strNumeroArchivo:= '0000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 4 then
strNumeroArchivo:= '000' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 5 then
strNumeroArchivo:= '00' + strNumeroArchivoTmp;
if Length(strNumeroArchivoTmp)= 6 then
strNumeroArchivo:= '0' + strNumeroArchivoTmp;

// terminamos de armar el nombre del archivo destino

strArchivoDestino:= (EdtFileNameDestino.Text) + (strNumeroArchivo) + '.exe';

copyfile(Pchar (EdtFileNameOrigen.Text), PChar (strArchivoDestino), true);

AssignFile(archivo,(strArchivoDestino));
Reset(archivo);
Seek(Archivo,(intNumeroArchivo));
Write(Archivo,bytcero);
CloseFile(Archivo);

until
intNumeroArchivo = intNumeroFinal;

[delphi.com.ar]

Eso se produce porque tu aplicación empieza a poner en cola, todos los mensajes del sistema operativo, una forma de solucionar esto, es mediante el método ProcessMessages del objeto Application:

repeat
  Application.ProcessMessages;
until...

Saludos!

[Sr_Sombrero]

Agregé esa linea y funciona de maravilla

Gracias !!!

[jachguate]

Siempre que se añade esta clausula, es importante tener en cuenta que tu aplicación responderá nuevamente a todos los mensajes del sistema operativo, por lo que habrá que tener algunas consideraciones...

Si el proceso se inicia con alguna acción del usuario, digamos con un botón... entonces un usuario "travieso" o "desesperado" podrá conseguir iniciar nuevamente la ejecución del proceso mientras deja en el stack la(s) ejecuciones en proceso... lo que puede provocar un fallo de tu aplicación. Una solución típica es inhabilitar los mecanismos para iniciar el proceso al inicio del mismo, y habilitarlos al final.

El usuario también podrá cerrar el formulario mientras se lleva a cabo el proceso sin ningun tipo de confirmación, lo que es indeseable... podes, con la ayuda una bandera que se encienda al inicio y se apague al final del proceso, valerte del evento OnCloseQuery para confirmar al usuario.

Llamar a processMessages en cada iteración del ciclo, puede tener una consecuencia importante en el desempeño de la aplicación, ya que consume tiempo la sola llamada suponiendo que no hay mensajes que atender, y si los hay, sobre todo los que redibujan partes de la aplicación, el tiempo será mucho mayor. Un proceso fácilmente puede duplicar el tiempo necesario para correr de esta forma.

En fin, son consideraciones y cuidados que cada uno debe tener al momento de usar este método...

Hasta luego.