Esperar a que termine un proceso

[felixgo]

Hola

He creado un formulario que llama a un componente para enviar un fax (utilizo apro). He creado otro formulario que llama al primero para enviar un fax con un fichero bmp que he generado, necesito esperar a que termine de enviar el primer fax para seguir enviado faxes, pero no quiero utilizar un bucle de espera. Que puedo hacer para saber cuando ha terminado un proceso. El componente de apro tiene un evento que es onfinish, pero como hago para esperar a que salte ese evento sin consumir recursos en un bucle?

gracias

[delphi.com.ar]

¿Y porqué no quieres usar un bucle de espera?.... si le devuelves el control a la aplicación, esta entrará en "un bucle de espera" ...
Por otro lado, si tienes un evento OnFinish, será cuestión de escribir el código a realizar cuando termine en este evento, en lugar de escribirlo a continuación del llamado al proceso.

Saludos!

[jachguate]

Supongo que estas pensando en un bucle que envia todos los faxes:

algo como:

repeat
  EnviarFax(numero);
until NoHayMasNumeros;

De esta forma, no hay manera de "esperar" si no es con un "bucle de espera".

Pero si repensas el proceso de otra forma, no habra necesidad de él y podes valerte del evento OnFinish ya mencionado.

Mi idea es:

Declaras un método que envia solamente un fax. Este se llamará EnviarSiguienteFax y tendrá la lógica para tomar el número de fax de donde lo estes sacando. Por ejemplo, si es una base de datos, simplemente se ubicará en el siguiente registro y enviará el fax. Si no hay mas fax para enviar, no hara nada y saldrá.

Luego en el evento OnFinish del componente fax simplemente llamarás a EnviarSiguienteFax.

Para iniciar el envio, vamos a hacer una rutina llamada EnviarPrimerFax, que inicializará el DataSet y luego llamará a EnviarSiguienteFax.

Quedaria algo como:

Código Delphi [-]
Procedure TForm1.EnviarSiguienteFax;

Var
  Numero : String;

Begin
  if TablaFaxes.eof Then
    Exit; //no se hace nada mas!
  //Envia el fax del registro actual:
  Numero := TablaFaxes.FieldByName('NumeroFax').AsString;
  TablaFaxes.Next;  // ubica la tabla en el siguiente registro
  EnviarFax(Numero);
end;

Procedure TForm1.FaxOnFinish;

Begin
  EnviarSiguienteFax;
end;

Procedure EnviarPrimerFax;

Begin
  TablaFaxes.Active := True;
  TablaFaxes.First;
  EnviarSiguienteFax;
End;

Hay aqui cierta recursividad indirecta. Dependerá de como el componente envie el fax si esa recursividad es real o no. Entiendo que devuelve el control a la aplicación, con lo que se liberaría el stack. Si no es asi, bastaria con cambiar el evento OnFinish para que no llame directamente a EnviarSiguienteFax, sino que se valga de un timer, por ejemplo, que sea el que genere la siguiente llamada.

Espero que la idea general te sirva de ayuda.

Hasta luego

[roman]

Hombre, aunque no diga for, while ni repeat, a fin de cuentas es un bucle:

EnviarFax->OnFinish
    ^          |
    |__________|

[jachguate]

Digamos que es un bucle "indirecto"...

Entiendo que lo que ocurre es que el componente mencionado funciona de manera Asincrona... y el problema es que Felixgo lo que no quiere es tener que hacer algo del tipo:

Código Delphi [-]
componente.EnviarFax;
repeat
until not componente.busy;

Para mantener un bucle como el que describi en la primera parte de mi post anterior.

Hasta luego.