Asynchronous Calls/fr: what changed

Revision 4 to 5. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Position du problème
2	2
3	3		Quand vous manipulez certains événements, vous avez besoin de faire quelque chose, mais vous ne pouvez le faire correctement. Exemple : vous devez libérer un objet, mais il est ou sera référencé quelque part dans le parent (ou son parent etc.) plus tard.
4	4
5	5		# Solution
6	6
7	7		Appeler 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;
10	11
11		-	~~`procedure `[[doc:lcl/forms/tapplication.queueasynccall.html\|QueueAsyncCall]]`(AMethod: TDataEvent; Data: PtrInt);`\~~
	12	+	procedure QueueAsyncCall(AMethod: TDataEvent; Data: PtrInt);
	13	+	```
12	14
13	15		Cela placera en file d'attente la méthode donnée avec le paramètre donné pour execution dans la boucle principale des événements, quand tous les autres événements auront été traités. Dans l'exemple du dessus, la référence à l'objet que vous vouliez libérer est partie, depuis le parent d'alors a fini son exécution et l'objet que vous vouliez libérer peut l'être de manière sûre.
14	16
15	17		Remarquez qu'il y a une version plus générique de [[doc:lcl/forms/tapplication.releasecomponent.html\|ReleaseComponent]], et ReleaseComponent appele cette méthode.
16	18
17	19		# Exemple
18	20
19	21		Le programme suivant montre l'utilisation de [[doc:lcl/forms/tapplication.queueasynccall.html\|QueueAsyncCall]]. Si vous pressez sur le CallButton, 'Click 1', 'Click 2' et 'Async 1' sont ajoutés dans le LogListBox. Remarquez que l'appel Async est seulement exécuté après que l'événement CallButtonClick s'est terminé.
20	22
21	23		``` pascal
22	24		unit TestQueueAsyncCall;
23	25
24	26		{$mode objfpc}{$H+}
25	27
26	28		interface
27	29
28	30		uses
29	31		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
30	32		StdCtrls;
31	33
32	34		type
33	35
34	36		{ TQueueAsyncCallForm }
35	37
36	38		TQueueAsyncCallForm = class(TForm)
37	39		CallButton: TButton;
38	40		LogListBox: TListBox;
39	41		procedure CallButtonClick(Sender: TObject);
40	42		private
41	43		{ private declarations }
42	44		FCounter: PtrInt;
43	45		procedure Async(Data: PtrInt);
44	46		public
45	47		{ public declarations }
46	48		end;
47	49
48	50		var
49	51		QueueAsyncCallForm: TQueueAsyncCallForm;
50	52
51	53		implementation
52	54
53	55		{$R *.lfm}
54	56
55	57		{ TQueueAsyncCallForm }
56	58
57	59		procedure TQueueAsyncCallForm.CallButtonClick(Sender: TObject);
58	60		begin
59	61		LogListBox.Items.Add('Click 1');
60	62		FCounter := FCounter+1;
61	63		Application.QueueAsyncCall(@Async,FCounter);
62	64		LogListBox.Items.Add('Click 2');
63	65		end;
64	66
65	67		procedure TQueueAsyncCallForm.Async(Data: PtrInt);
66	68		begin
67	69		LogListBox.Items.Add('Async '+ IntToStr(Data));
68	70		end;
69	71
70	72		end.
71	73		```
72	74
73	75		# Voir aussi
74	76
75	77		- [Fonctionnalité ajoutée dans la 0.9.26. Partie 1. SendMessage et PostMessage](http://lazarus-dev.blogspot.com/2008/01/new-0926-features-part-1-sendmessage.html)
76	78		- [[Main Loop Hooks/fr\|Crochet (hooks) dans la boucle principale]]
77	79		- [[Multithreaded Application Tutorial/fr\|Tutoriel sur les application Multithreadées]]
78	80
79	81		---
80	82		From the Free Pascal wiki, page "Asynchronous Calls/fr", as it stood on 2020-02-09 after a change by Trev, 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