Articolo presentato da Marcus Junglas
Quando si programma un gestore di eventi in Delphi (come il Al clic evento di un pulsante TB), arriva il momento in cui l'applicazione deve essere occupata per un po ', ad es. il codice deve scrivere un file di grandi dimensioni o comprimere alcuni dati.
Se lo fai, lo noterai la tua applicazione sembra essere bloccata. Non è più possibile spostare il modulo e i pulsanti non mostrano alcun segno di vita. Sembra essere andato in crash.
Il motivo è che un'applicazione Delpi è a thread singolo. Il codice che stai scrivendo rappresenta solo un mucchio di procedure che vengono chiamate dal thread principale di Delphi ogni volta che si verifica un evento. Il resto del tempo il thread principale gestisce i messaggi di sistema e altre cose come le funzioni di gestione di moduli e componenti.
Quindi, se non completi la gestione degli eventi facendo un lungo lavoro, impedirai all'applicazione di gestire quei messaggi.
Una soluzione comune per questo tipo di problemi è chiamare "Applicazione. ProcessMessages". "Applicazione" è un oggetto globale della classe TApplication.
L'applicazione. Processmessages gestisce tutti i messaggi in attesa come movimenti delle finestre, clic sui pulsanti e così via. È comunemente usata come soluzione semplice per mantenere "funzionante" l'applicazione.
Sfortunatamente il meccanismo alla base di "ProcessMessages" ha le sue caratteristiche, il che potrebbe causare grande confusione!
Cosa significa ProcessMessages?
PprocessMessages gestisce tutti i messaggi di sistema in attesa nella coda dei messaggi delle applicazioni. Windows utilizza i messaggi per "parlare" con tutte le applicazioni in esecuzione. L'interazione dell'utente viene portata al modulo tramite messaggi e "ProcessMessages" li gestisce.
Se il mouse scende su un pulsante TB, ad esempio, ProgressMessages fa tutto ciò che dovrebbe accadere su questo evento come il ridipingere il pulsante in uno stato "premuto" e, ovviamente, una chiamata alla procedura di gestione di OnClick () se ne è stata assegnata una.
Questo è il problema: qualsiasi chiamata a ProcessMessages potrebbe contenere nuovamente una chiamata ricorsiva a qualsiasi gestore di eventi. Ecco un esempio:
Utilizzare il seguente codice per l'handler di OnClick di un pulsante ("lavoro"). L'istruzione for simula un lungo processo di elaborazione con alcune chiamate a ProcessMessages di tanto in tanto.
Questo è semplificato per una migliore leggibilità:
{in MyForm:}
WorkLevel: intero;
{OnCreate:}
WorkLevel: = 0;
procedura TForm1.WorkBtnClick (Mittente: TObject);
var
ciclo: intero;
inizio
inc (WorkLevel);
per ciclo: = 1 per 5 fare
inizio
Memo1.Lines. Add ('- Work' + IntToStr (WorkLevel) + ', Cycle' + IntToStr (ciclo);
Applicazione. ProcessMessages;
sonno (1000); // o qualche altro lavoro
fine;
Memo1.Lines. Add ('Work' + IntToStr (WorkLevel) + 'finito.');
dec (WorkLevel);
fine;
SENZA "ProcessMessages" le seguenti righe vengono scritte nel memo, se il pulsante è stato premuto DUE VOLTE in breve tempo:
- Lavoro 1, ciclo 1
- Lavoro 1, ciclo 2
- Lavoro 1, ciclo 3
- Lavoro 1, ciclo 4
- Lavoro 1, ciclo 5
Il lavoro 1 è terminato.
- Lavoro 1, ciclo 1
- Lavoro 1, ciclo 2
- Lavoro 1, ciclo 3
- Lavoro 1, ciclo 4
- Lavoro 1, ciclo 5
Il lavoro 1 è terminato.
Mentre la procedura è occupata, il modulo non mostra alcuna reazione, ma il secondo clic è stato inserito nella coda dei messaggi da Windows. Subito dopo la fine di "OnClick" verrà richiamato.
COMPRESO "ProcessMessages", l'output potrebbe essere molto diverso:
- Lavoro 1, ciclo 1
- Lavoro 1, ciclo 2
- Lavoro 1, ciclo 3
- Lavoro 2, Ciclo 1
- Lavoro 2, ciclo 2
- Lavoro 2, ciclo 3
- Lavoro 2, ciclo 4
- Lavoro 2, ciclo 5
Il lavoro 2 è terminato.
- Lavoro 1, ciclo 4
- Lavoro 1, ciclo 5
Il lavoro 1 è terminato.
Questa volta il modulo sembra funzionare di nuovo e accetta qualsiasi interazione dell'utente. Quindi il pulsante viene premuto a metà durante la prima funzione "lavoratore" ANCORA, che verrà gestita all'istante. Tutti gli eventi in arrivo vengono gestiti come qualsiasi altra chiamata di funzione.
In teoria, durante ogni chiamata a "ProgressMessages" QUALSIASI quantità di clic e messaggi dell'utente potrebbe avvenire "sul posto".
Quindi fai attenzione con il tuo codice!
Esempio diverso (in semplice pseudo-codice!):
procedura OnClickFileWrite ();
var myfile: = TFileStream;
inizio
myfile: = TFileStream.create ('myOutput.txt');
provare
mentre Byte Pronto> 0 fare
inizio
il mio file. Scrivi (DataBlock);
dec (BytesReady, sizeof (DataBlock));
DataBlock [2]: = # 13; {test line 1}
Applicazione. ProcessMessages;
DataBlock [2]: = # 13; {test line 2}
fine;
infine
myfile.free;
fine;
fine;
Questa funzione scrive una grande quantità di dati e tenta di "sbloccare" l'applicazione utilizzando "ProcessMessages" ogni volta che viene scritto un blocco di dati.
Se l'utente fa di nuovo clic sul pulsante, lo stesso codice verrà eseguito mentre il file è ancora in fase di scrittura. Quindi il file non può essere aperto una seconda volta e la procedura non riesce.
Forse l'applicazione eseguirà alcuni ripristini degli errori come liberare i buffer.
Come possibile risultato "Datablock" verrà liberato e il primo codice "improvvisamente" genererà una "violazione di accesso" quando vi accede. In questo caso: la linea di test 1 funzionerà, la linea di test 2 andrà in crash.
Il modo migliore:
Per semplificare, è possibile impostare l'intero modulo "enabled: = false", che blocca tutti gli input dell'utente, ma NON lo mostra all'utente (tutti i pulsanti non sono in grigio).
Un modo migliore sarebbe quello di impostare tutti i pulsanti su "disabilitato", ma questo potrebbe essere complesso se si desidera mantenere un pulsante "Annulla", ad esempio. Inoltre, è necessario esaminare tutti i componenti per disabilitarli e, quando sono nuovamente abilitati, è necessario verificare se alcuni elementi devono rimanere nello stato disabilitato.
Potresti disabilitare i controlli figlio del contenitore quando cambia la proprietà Enabled.
Come suggerisce il nome della classe "TNotifyEvent", dovrebbe essere usato solo per reazioni a breve termine all'evento. Per un codice che richiede tempo, il modo migliore è IMHO di inserire tutto il codice "lento" in un proprio thread.
Per quanto riguarda i problemi con "PrecessMessages" e / o l'abilitazione e la disabilitazione dei componenti, l'uso di a secondo thread sembra non essere affatto complicato.
Ricorda che anche linee di codice semplici e veloci potrebbero rimanere in sospeso per secondi, ad es. l'apertura di un file su un'unità disco potrebbe dover attendere il completamento dell'operazione di rotazione dell'unità. Non sembra molto bello se l'applicazione sembra bloccarsi perché l'unità è troppo lenta.
Questo è tutto. La prossima volta che aggiungi "Applicazione. ProcessMessages ", pensaci due volte;)