Asynchronous Calls/ru: what changed

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

Old	New		Line
1	1		## Постановка задачи
2	2
3	3		При обработке какого-либо события вам иногда нужно что-то сделать, но вы не можете сделать это сразу. Например, вам нужно освободить объект, но на него ссылаются или будут ссылаться позже где-то в родителе (или в его родителе и т.д.). Или вам нужно обновить элементы графического интерфейса, к которым обращаются несколько потоков, безопасным способом.
4	4
5	5		## Решение
6	6
7	7		Вызовите Application.[[doc:lcl/forms/tapplication.queueasynccall.html\|QueueAsyncCall]]:
8	8
9		-	~~[[doc:lcl/forms/tdataevent.html\|TDataEvent]]` = procedure (Data: PtrInt) of object;`~~
	9	+	``` pascal
	10	+	TDataEvent = procedure (Data: PtrInt) of object;
	11	+	```
10	12
11		-	~~`procedure `[[doc:lcl/forms/tapplication.queueasynccall.html\|QueueAsyncCall]]`(AMethod: TDataEvent; Data: PtrInt);`\~~
	13	+	``` pascal
	14	+	procedure QueueAsyncCall(AMethod: TDataEvent; Data: PtrInt);
	15	+	```
12	16
13	17		Это «поставит» данный метод с заданным параметром для выполнения в очередь в главном цикле событий, когда все остальные события будут обработаны. В приведенном выше примере ссылка на объект, который вы хотели освободить, исчезла, поскольку тогдашний родительский объект завершил выполнение, и объект, который вы хотели освободить, можно безопасно освободить.
14	18
15	19		Обратите внимание, что это более обобщенная версия [[doc: lcl / forms / tapplication.releasecomponent.html\|ReleaseComponent]], и ReleaseComponent вызывает этот метод.
16	20
17	21		## Примеры
18	22
19	23		### Передача в асинхронную функцию простых данных
20	24
21	25		Следующая программа демонстрирует использование [[doc:lcl/forms/tapplication.queueasynccall.html\|QueueAsyncCall]]. Если вы нажмете на кнопку CallButton, в LogListBox добавится 'Click 1', 'Click 2' и 'Async 1'. Обратите внимание, что асинхронный вызов выполняется только после завершения события CallButtonClick.
22	26
23	27		``` pascal
24	28		unit TestQueueAsyncCall;
25	29
26	30		{$mode objfpc}{$H+}
27	31
28	32		interface
29	33
30	34		uses
31	35		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
32	36		StdCtrls;
33	37
34	38		type
35	39
36	40		{ TQueueAsyncCallForm }
37	41
38	42		TQueueAsyncCallForm = class(TForm)
39	43		CallButton: TButton;
40	44		LogListBox: TListBox;
41	45		procedure CallButtonClick(Sender: TObject);
42	46		private
43	47		{ private declarations }
44	48		FCounter: PtrInt;
45	49		procedure Async(Data: PtrInt);
46	50		public
47	51		{ public declarations }
48	52		end;
49	53
50	54		var
51	55		QueueAsyncCallForm: TQueueAsyncCallForm;
52	56
53	57		implementation
54	58
55	59		{$R *.lfm}
56	60
57	61		{ TQueueAsyncCallForm }
58	62
59	63		procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject);
60	64		begin
61	65		LogListBox.Items.Add('Click 1');
62	66		FCounter := FCounter+1;
63	67		Application.QueueAsyncCall(@Async,FCounter);
64	68		LogListBox.Items.Add('Click 2');
65	69		end;
66	70
67	71		procedure TQueueAsyncCallForm.Async(Data: PtrInt);
68	72		begin
69	73		LogListBox.Items.Add('Async '+ IntToStr(Data));
70	74		end;
71	75
72	76		end.
73	77		```
74	78
75	79		### Передача в асинхронную функцию записи
76	80
77	81		Вот некоторый код, извлеченный из модуля MemoChannel MultiLog, который используется для потоковой записи сообщений в журнал для управления Memo. Благодаря QueueAsyncCall() все записи в Memo сериализуются. Здесь нет блокировок и конфликтов, даже если сотни потоков вызывают метод Write().
78	82
79	83		``` pascal
80	84		...
81	85		type
82	86		TLogMsgData = record // запись может содержать гораздо больше, чем простая строка :-)
83	87		Text: string;
84	88		end;
85	89		PLogMsgData = ^TLogMsgData;
86	90		...
87	91		procedure TMemoChannel.Write(const AMsg: string);
88	92		var
89	93		LogMsgToSend: PLogMsgData;
90	94		begin
91	95		New(LogMsgToSend);
92	96		LogMsgToSend^.Text:= AMsg;
93	97		Application.QueueAsyncCall(@WriteAsyncQueue, PtrInt(LogMsgToSend)); // помещаем содержимое msg в очередь, которая будет обработана в основном потоке сразу после обработки всех других сообщений
94	98		end;
95	99		...
96	100		procedure TMemoChannel.WriteAsyncQueue(Data: PtrInt);
97	101		var // вызывается в основном потоке после обработки всех других сообщений, чтобы обеспечить потокобезопасный доступ к TMemo
98	102		ReceivedLogMsg: TLogMsgData;
99	103		begin
100	104		ReceivedLogMsg := PLogMsgData(Data)^;
101	105		try
102	106		if (FMemo <> nil) and (not Application.Terminated) then
103	107		begin
104	108		...
105	109		FMemo.Append(ReceivedLogMsg.Text) // <<< полностью потокобезопасен
106	110		end;
107	111		finally
108	112		Dispose(PLogMsgData(Data));
109	113		end;
110	114		end;
111	115		```
112	116
113	117		## См.также
114	118
115	119		- [Новые фичи 0.9.26. Часть 1. SendMessage и PostMessage](http://lazarus-dev.blogspot.com/2008/01/new-0926-features-part-1-sendmessage.html)
116	120		- [[Main Loop Hooks]]
117	121		- [[Multithreaded Application Tutorial]]
118	122
119	123		---
120	124		From the Free Pascal wiki, page "Asynchronous Calls/ru", as it stood on 2019-09-27 after a change by FTurtle, 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