Článek předložil Marcus Junglas
Při programování obsluhy událostí v Delphi (jako je Při kliknutí událost TButton), přichází čas, kdy je třeba vaši aplikaci chvíli zaměstnat, např. kód musí psát velký soubor nebo komprimovat některá data.
Pokud to uděláte, všimnete si toho vaše aplikace se zdá být uzamčena. Váš formulář již nelze přesunout a tlačítka neukazují žádné známky života. Zdá se, že se zhroutil.
Důvod je ten, že aplikace Delpi je jednovláknová. Kód, který píšete, představuje pouze spoustu procedur, které jsou vyvolány hlavním vláknem Delphi při každé události. Zbytek času hlavní vlákno zpracovává systémové zprávy a další věci, jako jsou funkce zpracování formulářů a komponent.
Pokud tedy nedokončíte zpracování událostí pomocí zdlouhavé práce, zabráníte aplikaci, aby tyto zprávy zpracovávala.
Běžným řešením takových typů problémů je volání aplikace. ProcessMessages ". „Aplikace“ je globální objekt třídy TApplication.
Aplikace. Processmessages zpracovává všechny čekající zprávy, jako jsou pohyby oken, kliknutí na tlačítka atd. Běžně se používá jako jednoduché řešení, aby vaše aplikace zůstala funkční.
Mechanismus za „ProcessMessages“ má bohužel své vlastní vlastnosti, které by mohly způsobit velké zmatky!
Co ProcessMessages?
PprocessMessages zpracovává všechny čekající systémové zprávy ve frontě zpráv aplikací. Windows používá zprávy k "mluvení" ke všem běžícím aplikacím. Interakce uživatele je do formuláře přenesena prostřednictvím zpráv a zpracovává je „ProcessMessages“.
Pokud například myš klesá na TButton, ProgressMessages udělá vše, co by se mělo při této události stát, jako je přepsat tlačítko do stavu „stisknuto“ a samozřejmě volání procedury OnClick (), pokud jste ji přidělili.
To je problém: každé volání ProcessMessages může obsahovat rekurzivní volání kteréhokoli obsluhy události. Zde je příklad:
Následující kód použijte pro sudý manipulátor OnClick tlačítka („work“). For-Statement simuluje dlouhou úlohu zpracování s občasnými voláními ProcessMessages.
To je zjednodušeno pro lepší čitelnost:
{in MyForm:}
WorkLevel: integer;
{OnCreate:}
WorkLevel: = 0;
postup TForm1.WorkBtnClick (odesílatel: TObject);
var
cyklus: celé číslo;
začít
inc (WorkLevel);
pro cyklus: = 1 na 5 dělat
začít
Memo1.Lines. Přidat ('- Work' + IntToStr (WorkLevel) + ', Cycle' + IntToStr (cycle);
Aplikace. ProcessMessages;
spánek (1000); // nebo nějaké jiné práce
konec;
Memo1.Lines. Přidat ('Work' + IntToStr (WorkLevel) + 'skončil.');
dec (WorkLevel);
konec;
BEZ "ProcessMessages" jsou do řádku zapsány následující řádky, pokud bylo tlačítko stisknuto dvakrát za krátkou dobu:
- Práce 1, cyklus 1
- Práce 1, cyklus 2
- Práce 1, cyklus 3
- Práce 1, cyklus 4
- Práce 1, cyklus 5
Práce 1 skončila.
- Práce 1, cyklus 1
- Práce 1, cyklus 2
- Práce 1, cyklus 3
- Práce 1, cyklus 4
- Práce 1, cyklus 5
Práce 1 skončila.
Zatímco procedura je zaneprázdněna, formulář nevykazuje žádnou reakci, ale druhé kliknutí bylo vloženo do fronty zpráv Windows. Hned po dokončení „OnClick“ bude znovu vyvolán.
Včetně "ProcessMessages", výstup může být velmi odlišný:
- Práce 1, cyklus 1
- Práce 1, cyklus 2
- Práce 1, cyklus 3
- Práce 2, cyklus 1
- Práce 2, cyklus 2
- Práce 2, cyklus 3
- Práce 2, cyklus 4
- Práce 2, cyklus 5
Práce 2 skončila.
- Práce 1, cyklus 4
- Práce 1, cyklus 5
Práce 1 skončila.
Tentokrát se zdá, že formulář funguje znovu a přijímá jakoukoli interakci uživatele. Tlačítko je tedy stisknuto do poloviny během vaší první „pracovní“ funkce AGAIN, která bude okamžitě zpracována. Všechny příchozí události jsou zpracovávány jako každé jiné volání funkce.
Teoreticky se při každém volání na „ProgressMessages“ může „na místě“ objevit jakékoli množství kliknutí a zpráv uživatelů.
Takže buďte opatrní s kódem!
Jiný příklad (v jednoduchém pseudokódu!):
postup OnClickFileWrite ();
var myfile: = TFileStream;
začít
myfile: = TFileStream.create ('myOutput.txt');
Snaž se
zatímco BytesReady> 0 dělat
začít
myfile. Zápis (DataBlock);
dec (BytesReady, sizeof (DataBlock));
DataBlock [2]: = # 13; {test line 1}
Aplikace. ProcessMessages;
DataBlock [2]: = # 13; {test line 2}
konec;
Konečně
myfile.free;
konec;
konec;
Tato funkce zapíše velké množství dat a pokusí se "odemknout" aplikaci pomocí "ProcessMessages" pokaždé, když je zapsán blok dat.
Pokud uživatel znovu klikne na tlačítko, bude stejný kód proveden během zápisu souboru. Soubor tedy nelze otevřít podruhé a postup selže.
Možná vaše aplikace provede nějakou obnovu chyb, jako je uvolnění vyrovnávacích pamětí.
Jako možný výsledek bude „Datablock“ uvolněn a první kód „najednou“ vyvolá „porušení přístupu“, když k němu dojde. V tomto případě: testovací řádek 1 bude fungovat, testovací řádek 2 se zhroutí.
Lepší způsob:
Pro usnadnění je možné nastavit celý Formulář "enabled: = false", který blokuje veškerý vstup uživatele, ale NEZOBRAZUJE to uživateli (všechna tlačítka nejsou zobrazena šedě).
Lepším způsobem by bylo nastavení všech tlačítek na „deaktivováno“, ale to by mohlo být složité, pokud například chcete ponechat jedno tlačítko „Zrušit“. Musíte také projít všechny komponenty, abyste je deaktivovali, a když jsou znovu povoleny, musíte zkontrolovat, zda by ve stavu deaktivace neměly zůstat nějaké další.
Mohl bys zakázat podřízené ovládací prvky kontejneru, když se změní vlastnost Povoleno.
Jak napovídá název třídy "TNotifyEvent", měl by být použit pouze pro krátkodobé reakce na událost. Pro časově náročný kód je nejlepší způsob, jak IMHO vložit veškerý „pomalý“ kód do vlastního vlákna.
Pokud jde o problémy s "PrecessMessages" a / nebo aktivací a deaktivací komponent, použití a druhé vlákno Zdá se, že není příliš komplikovaný.
Nezapomeňte, že i jednoduché a rychlé řádky kódu mohou viset na vteřiny, např. otevření souboru na diskové jednotce bude možná muset počkat, dokud se jednotka neroztočí. Nevypadá moc dobře, pokud se zdá, že se vaše aplikace zhroutí, protože jednotka je příliš pomalá.
A je to. Při příštím přidání aplikace. ProcessMessages “, zamyslete se dvakrát;)