cuando finaliza un evento

[jonmendi]

Hola!
tengo un pequeño lío.
tengo una aplicación que recibe datos de un escaner.
Cada vez que el escaner lee un código de barras válido, salta un evento. En este evento recojo la cadena leída. Hasta aquí todo normal. Pero lo que quiero es:

Una vez leída la cadena, que el evento de recogida del escaner finalice, y DESPUÉS de que haya acabado el evento, procesar la cadena.

Por eso querría "algo" para saber que el evento ha finalizado y poder procesar la cadena.

No sé si me he explicado...
Muchas gracias por vuestra atención.

Un saludo,
Jon

[[newtron]]

Hola.

Podrías probar con un application.processmessages al final del evento y si no te sirve lo único que se me ocurre es declarar una variable y ponerla en false o true dependiendo si ha finalizado o no.

Saludos

[ecfisa]

Hola jonmendi.

Otra alternativa es enviar un mensaje al finalizar la lectura de la cadena. Sólo a modo de ejemplo, supongamos que la cadena es enviada por el scanner hacia un TEdit y utilizamos el evento OnChange del mismo:

Código Delphi [-]
...
const
  WM_AFTER_EVENTO = WM_USER + 300;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    procedure WMAfterEvento(var Msg: TMessage); message WM_AFTER_EVENTO;
  public
  end;
....

implementation

procedure TForm1.WMAfterEvento(var Msg: TMessage);
begin
  // procesar resultado
  ShowMessage('Cadena leida. Procesando resultado...');
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Sleep(500);  // simular proceso de captura
  PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);
end;
...

Un saludo.

[jonmendi]

gracias Newtron y ecfisa!

Newtron:
si pongo un application.processmessages al final del evento, todavía no lo ha finalizado, con lo que no creo que me sirva. Y si cambio el valor de una variable, debería tener algo como un ttimer para ir leyendo el valor de la variable, pero no es eso lo que quiero.

Ecfisa:
Efectivamente el escaner envía la cadena a un TEdit, pero si hago algo en el evento OnChange, ANTES de que finalice el evento de captura del escaner, salta el evento onchange, y después vuelve al evento de captura del escaner a finalizar. Con lo que tampoco me serviría.

De todos modos, muchísimas gracias por vuestro tiempo.

Un saludo,
Jon

[ecfisa]

Empezado por jonmendi

Efectivamente el escaner envía la cadena a un TEdit, pero si hago algo en el evento OnChange, ANTES de que finalice el evento de captura del escaner, salta el evento onchange, y después vuelve al evento de captura del escaner a finalizar. Con lo que tampoco me serviría.

Hola jon.

La idea fue indicarte el uso de mensajes con un ejemplo, tál como lo expresé en mi mensaje anterior: "Sólo a modo de ejemplo,...".

Cada vez que el escaner lee un código de barras válido, salta un evento. En este evento recojo la cadena leída.

En tu caso, creo que deberías poner la línea:

Código Delphi [-]
  PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);

como finalización del código del procedimiento asociado a ese evento que estás mencionando (y que desconozco).

Un saludo.

[jonmendi]

ops!
perdona por no haber comprendido bien el mensaje anterior. Debo estar espeso por no haber hecho la siesta...

Lo pruebo y te comento, gracias!

Jon

[jonmendi]

Gracias a todos! he probado diversas alternativas, como el

 
PostMessage(Handle, WM_AFTER_EVENTO, 0, 0);

pero al final me he quedado con el evento que hace saltar el escaner OPOS

 
procedure TfPerifericos.EscanerOPOSDataEvent(ASender: TObject;
  Status: Integer);

Muchas gracias por vuestro tiempo y consejos!

Un saludo,
Jon