Multithreaded Application Tutorial/sk: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Prehľad
2	2
3	3		Táto stránka vám pomôže s pochopením vývoja a debugovania viacvláknových programov s použitím Free Pascale a Lazarusa.
4	4
5	5		Viacvláknový program je program, ktorý vytvorí dve a viacero vlákien pre vykonanie svojej práce v rovnaký čas.
6	6
7	7		Jedno z vlákien je hlavné. Hlavné vlákno je vlákno vytvorené operačným systémom pri štarte programu. Hlavné vlákno musí byt jediné, ktoŕe obnovuje komponenty, ktoré sú spojené s uživateľom (v opačnom prípade môže program uschnúť).
8	8
9	9		Hlavná myšlienka viacvláknového programovania spočíva v tom, že zatiaľ čo sa bude vykonávať vedľajšia činnosť ktorá by blokovoala, tak hlavné prostredie pre prácu s uživateľom môže fungovať ďalej ako hlavné vlákno.
10	10
11	11		Ďalšie použitie vlákien je ak chceme mať viacej raktívnu aplikáciu. Ak napr. vytvoríte aplikáciu v ktorej keď sa stlačí gombík tak sa spracuje veľa dát (spracovanie trvá..) tak by sa v normálnom prípade mohlo zdať že sa program "zasekol", čo nieje zrovna chcená vlastnosť. Ak by spracovanie bežalo vo vedlajšom vlákne, aplikácia zostáva reaktívnou ako keby sa nič nedialo. V takýchto prípadoch je dobrý zvyk povoliť štart len jedného vedlajšieho vlákna. (V opačnom prípade by mohli nastať nežiadúce situácie keď by užívateľ naštartoval viacej vlákien, ktoŕe by robili to isté)
12	12
13	13		Ďalšie možné využitie je pri sieťovom servery, kde sa musí obsluhovať naraz viac spojení.
14	14
15	15		## Trieda TThread
16	16
17	17		Najjednoduchší spôsob na vytvorenie viacvláknovej aplikácie je trieda TThread.
18	18
19	19		Táto trieda umožnuje vytvorenie dodatočného vlákna (popri hlavnom) jednoduchým spôsobom.
20	20
21	21		V štandardných prípadoch musíte overridnúť 2 metódy: konštruktor Create a procedúru Execute.
22	22
23	23		V konštruktore pripravíte vlákno na chod. Nastavíte základné hodnoty premenným alebo vlastnostiam podľa potreby. Nadriadený konštruktor TThreadu vyžaduje parameter nazívaný Suspended. Ako ste možno uhádli, byť Suspended = True zabráni vláknu aby sa spustilo automaticky po vytvorení. Ak Suspended = False, vlákno sa spustí hned po vytvorení. Ak ste vlákno vytvorili suspended, musíte ho "spustit" pomocou Resume.
24	24
25	25		Od verzie FPC 2.0.1 a vyžšej má TThread.Create aj implicitný parameter Stack Size. Od teraz môžete meniť veľkosť stacku pre jednotlivé vlákna. Dobrým príkladom využitia tohto parametra je, ak vo vlákne robíte hlboké rekurzie. Ak nešpecifikujete parameter Stack Size, tak je vybraná štandardná veľkosť v závislosti od operačného systému.
26	26
27	27		V overridnutej metóde Execute napíšete kôd ktorý sa má počas behu vlákna vykonať.
28	28
29	29		Trieda TThread ma jednu veľmi dôležitú vlastnost: Terminated : boolean;
30	30
31	31		Ak má vlákno cyklus (čo je obvyklé), musí sa v cykle kontrolovať, či je Terminated true (štandardne je false). Takže je nutné sa v každom prechode v cykle pozrieť, či je Terminated True, a ak áno, musí sa metóda Execute ukončiť tak rýchlo ako je to možne. (netreba zabúdať na uvolnenie pamäťe ak bola nejaka naalokovaná)
32	32
33	33		Zapamätajte si že vlasnosť Terminate nerobí sama o sebe nič. Je nutné naprogramovať metódu Execute tak, aby ju brala do úvahy.
34	34
35	35		Ako bolo vysvetlené, nieje možné aby sa z vedlajšieho vlákna nejakým spôsobom ovlivnovalo grafické prostredie a komponenty. Aby sme niečo uživateľovi ukázali, musíme to spraviť cez hlavné vlákno. Z tohto dôvodu existuje metóda Synchronize. Synchronize vyžaduje metódu (bez argumentov) ako argument. Keď svoju metódu zavoláte cez Synchronize(@MojaMetoda), vlákno bude "zapauznuté" a kód v MojaMetoda sa vykoná v hlavnom vlákne, po čom sa následne uvoľní vedlajšie vlákno.
36	36
37	37		Ďalšou dôležitou vlastnosťou je FreeOnTerminate. Ak je táto vlastnosť true, tak je objekt TThreadu automaticky uvoľnený z pamäti po dokončení vykonávania (metódy .Execute). V opačnom prípade musí aplikácia uvoľniť objekt sama.
38	38
39	39		Príklad:
40	40
41	41		` Type`\
42	42		` TMyThread = class(TThread)`\
43	43		` private`\
44	44		` fStatusText : string;`\
45	45		` procedure ShowStatus;`\
46	46		` public`\
47	47		` Constructor Create(Suspended : boolean); override;`\
48	48		` procedure Execute; override;`\
49	49		` end;`
50	50
51	51		` constructor TMyThread.Create(Suspended : boolean);`\
52	52		` begin`\
53	53		` inherited Create(Suspended);`\
54	54		` FreeOnTerminate := True;`\
55	55		` end;`
56	56
57	57		` procedure TMyThread.ShowStatus;`\
58	58		` begin`\
59	59		` Form1.Caption := fStatusText;`\
60	60		` end;`\
61		-	\
	61	+
62	62		` procedure TMyThread.Execute;`\
63	63		` var`\
64	64		` newStatus : string;`\
65	65		` begin`\
66	66		` fStatusText := 'Starting...';`\
67	67		` Synchronize(Showstatus);`\
68	68		` fStatusText := 'Running...';`\
69	69		` while (not Terminated) and ([vaša podmienka]) do`\
70	70		` begin`\
71	71		` ...`\
72	72		` [sem vložte kód hlavného cyklu]`\
73	73		` ...`\
74	74		` if NewStatus <> fStatus then`\
75	75		` begin`\
76	76		` fStatusText = newStatus;`\
77	77		` Synchronize(Showstatus);`\
78	78		` end;`\
79	79		` end;`\
80	80		` end;`
81	81
82	82		On the application,
83	83
84	84		` var`\
85	85		` MyThread : TMyThread;`\
86	86		` begin`\
87	87		` MyThread := TMyThread.Create(True); // Takto sa vlákno vytvorí "suspended"`\
88	88		` ...`\
89	89		` [sem vložte inicializačný kód]`\
90	90		` ...`\
91	91		` MyThread.Resume;`\
92	92		` end;`
93	93
94	94		## Dôležité veci na ktoré je treba dávať pozor
95	95
96	96		Ak vo Windowse používate vlákna a máte zapnutú kontrolu pretečenia stacku (-Ct), vlákno sa nevykoná. Z dôvodu implementácie kontroly stacku sa po TThread.Create vlákno nevykoná ale vyvolá vínimku. Táto vínimka NIEJE vyvolaná v hlavnom vlákne, čo znamená že nieje zaznamenaná. Správny spôsob vytvárania vlákien aby ste výnimky zaznamenali je:
97	97
98	98		` MyThread:=TThread.Create(False);`\
99	99		` if Assigned(MyThread.FatalException) then`\
100	100		` raise MyThread.FatalException;`
101	101
102	102		Tento kód zaruči, že ak sa pri vytváraní vlákna vyvolá vínimka, bude vyvolaná aj v hlavnom vlákne. Jeviný spôsob ako sa vo Windowse vyhnút tejto chybe je nepoužívať kontrolu stacku (prepínač -Ct). Kontrola stacku je štandardne vypnutá.
103	103
104	104		## Unity podrebné na viacvláknové programovanie
105	105
106	106		Vo windowse nieje treba žiadnych špeciálnych unít. V linuxe je treba použiť unitu cthreads, ktorá musí byť prvá v hlavnom programe!
107	107
108	108		Váš program bude vizerať takto:
109	109
110	110		` program MyMultiThreadedProgram;`\
111	111		` {$H+}`\
112	112		` uses`\
113	113		` {$ifdef linux}`\
114	114		` cthreads,`\
115	115		` {$endif}`\
116	116		` Interfaces, // this includes the LCL widgetset`\
117	117		` Forms`\
118	118		` { add your units here },`
119	119
120	120		## Podpora SMP
121	121
122	122		------------------------------------------------------------------------
123	123
124	124		Dobrá správa je, že pokiaľ vaša aplikácia beži na viacerých vláknach má automaticky podporu SMP!
125	125
126	126		## Debugovanie viacvláknových programov v Lazaruse
127	127
128	128		Debugovanie v lazaruse ešte nieje úplne funkčné. Ale ak sa pokúsite debugovat viacvláknovú aplikáciu v Linuxe uschne vám X server.
129	129
130	130		Nieje známe riešenie ale jeden dočasný spôsob je:
131	131
132	132		Vytvorenie novej inštancie X pomocou:
133	133
134	134		` X :1 &`
135	135
136	136		Naštartuje sa nový X a keď prepnete do ďalšej plochy (stlačením CTRL+ALT+F7) budete môcť ísť späť do novej grafickej plochy stlačením CTRL+ALT+F8 (ak skratky nefungujú skúste CTRL+ALT+F2... to fungovalo na Slackware).
137	137
138	138		Potom môžete ak chcete vytvoriť nové sedenie na X:
139	139
140	140		` gnome-session --display=:1 &`
141	141
142	142		Potom v Lazaruse v nastavení projektu / run parameters zašktnite "Use display" a vložte :1.
143	143
144	144		Teraz sa aplikácia spustí na X serveri č. 2 a vy ju môžete debugovať zo servera 1.
145	145
146	146		Toto bolo otestované s Free Pascal 2.0 a Lazarus 0.9.10 na Windowse a Linuxe
147	147
148	148		---
149	149		From the Free Pascal wiki, page "Multithreaded Application Tutorial/sk", as it stood on 2006-05-28 after a change by Msmat, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history