Discussion :

[SergioMaster]

Bonjour,

Las de me battre avec le compilateur qui me dit "Use FMX.DialogService methods" et donc MessageDialogSync ou MessageDialogAsync, j'ai décidé de pondre un petit template qui va écrire le plus gros à ma place

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
<?xml version="1.0" encoding="utf-8" ?>
<codetemplate	xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
				version="1.0.0">
	<template name="msgdual" invoke="manual">
		<description>
		 MessageDialog
		</description>
		<author>
		  Serge Girard
		</author>
       <point name="MsgServiceASync">
            <text>
                Service
            </text>
            <hint>
                Service Dialogue ASynchrone (Android)
            </hint>
        </point>
       <point name="MsgServiceSync">
            <text>
                Service
            </text>
            <hint>
                Service Dialogue Synchrone (non Android)
            </hint>
        </point>
       <point name="MsgText">
            <text>
                Text
            </text>
            <hint>
                Texte du message
            </hint>
        </point>
        <point name="Msgtype">
            <text>
               type
            </text>
            <hint>
                Type de message mtWarning, mtInfo, mtError
            </hint>
        </point>
		<code language="Delphi" delimiter="|"><![CDATA[{$IFDEF ANDROID}
|MsgServiceASync|.MessageDialogAsync('|MsgText|',
                        TMsgDlgType.|MsgType|,
                        [TMsgDlgBtn.mbOk],
                        TMsgDlgBtn.mbOk,
                        0);
{$ELSE}
|MsgServiceSync|.MessageDialogSync('|MsgText|',
                        TMsgDlgType.|MsgType|,
                        [TMsgDlgBtn.mbOk],
                        TMsgDlgBtn.mbOk,
                        0);
{$ENDIF}]]>
		</code>
	</template>
</codetemplate>

Qu'en pensez-vous ? Y aurait-il des améliorations à y faire ?
Bien sûr j'ai également écrit deux templates plus succincts pour n'avoir que les messages asynchrones ou synchrones en réduisant ce même XML en fonction.

Questions subsidiaires, plus "langage" :
- A votre avis quel est le mieux obtenir une variable pointant sur le service dans un DataModule ou dans une forme toujours utilisée (forme principale)?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use ..., FMX.PlatForm;
public 
  MessageService : IFMXDialogServiceSync;
...
TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceSync,MessageService);

- Y aurait-il un moyen de n'avoir qu'une seule variable de type IFMXDialogService qui ferait office aussi bien pour le synchrone que pour l'asynchrone ?

[Charly910]

Merci Serge, je suis peu familiarisé avec les templates maison, mais cela semble pratique.

Dans ton template, il ne manque pas les arguments "procédures" des fonctions MessageDialogAsync et MessageDialogSync ?

A+
Charly

[SergioMaster]

Si, mais cette procedure anonyme n'est pas forcément nécessaire. Je voulais quelque chose qui soit presque aussi simple que le showmessage "obsolète".

je suis peu familiarisé avec les templates maison

c'est presque mon premier du genre, en tout cas ça l'est pour du code, je ne l'avais fait jusqu'à présent que pour des commentaires de documentation

[SergioMaster]

En réfléchissant à ta demande il me semble que j'écrirai un second script, un peu comme nous pouvons avoir les if, ifb, ife ....

en pj le résultat de mes cogitations matinales. Je rappelle qu'il faut les mettre dans le répertoire code_templates (.../Embarcadero/Studio/code_templates) ... étant l'emplacement documents utilisateur à moins que vous ne préféreriez les documents public (jamais essayé cette option )

- Y aurait-il un moyen de n'avoir qu'une seule variable de type IFMXDialogService qui ferait office aussi bien pour le synchrone que pour l'asynchrone ?

P.S. cette question reste, ce serait tellement plus simple

[pprem]

Ouch, un peu complexe pour un premier template de code, mais bien.

Par contre ShowMessage fonctionne bien sur toutes les plateformes, c'est MessageDlg() qui ne passe pas sur plateformes mobiles.

Un truc qui vous a peut-être échappé : pas besoin de prendre les versions "sync" ou "async" des méthodes : TDialogService.MessageDialog() s'adapte tout seul à la plateforme et se code de la même façon, même si c'est long à écrire.

De plus il y a un moyen de forcer le fonctionnement synchrone/asynchrone si on veut avoir un fonctionnement identique partout avec TDialogService.PreferredMode qui permet de forcer le fonctionnement avec TDialogService.TPreferredMode.Sync (sauf Android) ou TDialogService.TPreferredMode.Async (partout).

Pour les projets qui partagent du code entre plateformes desktop et mobiles je recommande vivement de penser asynchrone (et donc de forcer ce mode sur les fenêtres) afin de ne pas se mélanger les pinceaux.

MessageDlg en tant que fonction était pratique pour la VCL, ce mode de fonctionnement est révolu. Evitez de bidouiller pour le retrouver à tout prix.

[SergioMaster]

Bonjour

Ouch, un peu complexe pour un premier template de code.

pas tant que ça quand on prend le coup de main
D'autre part il s'agit du cas où je voulais essayer une "génération" avec {$IFDEF ANDROID}, tu remarqueras qu'il y a un template "plus simple" dans les fichiers proposés : msgsync, c'est surtout ce dernier que j'ai utilisé en écrivant l'appli
je n'ai pas fait le async pour cause de non besoin mais il est aussi facile à faire (peu de modifications à apporter, un changement de nom, une modifcation de nom de méthode).

AMHA on oublie trop que l'on peut faire nos propres templates, pour preuve appli bouclée je l'avais oublié Aloïs quand tu nous tient !

Par contre ShowMessage fonctionne bien sur toutes les plateformes, c'est MessageDlg() qui ne passe pas sur plateformes mobiles.

oui mais showmessage ne propose pas un choix de bouton

Un truc qui vous a peut-être échappé : pas besoin de prendre les versions "sync" ou "async" des méthodes : TDialogService.MessageDialog() s'adapte tout seul à la plateforme et se code de la même façon, même si c'est long à écrire.

c'est certainement ça qui m'échappe

De plus il y a un moyen de forcer le fonctionnement synchrone/asynchrone si on veut avoir un fonctionnement identique partout avec TDialogService.PreferredMode qui permet de forcer le fonctionnement avec TDialogService.TPreferredMode.Sync (sauf Android) ou TDialogService.TPreferredMode.Async (partout).
Pour les projets qui partagent du code entre plateformes desktop et mobiles je recommande vivement de penser asynchrone (et donc de forcer ce mode sur les fenêtres) afin de ne pas se mélanger les pinceaux.

Comme je l'ai indiqué j'ai mis ma déclaration de service dans mon datamodule m'évitant ainsi de le déclarer chaque fois que besoin (sinon le template eut été plus complexe )

Maintenant, mode ronchon oblige, un bémol, le style ne s'applique pas sur la fenêtre message à moins que cela ait changé avec 10.4, alors que le style s'applique sur un InputQuery par exemple

[Charly910]

Bonjour pprm,

Ok, MessageDlg s'adapte mais sous Android, ce code ne va pas fonctionner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button3Click(Sender: TObject);
Var
  Reply : Integer ;
begin
  Reply := 0;
  TDialogService.MessageDialog('Voulez-vous ? ', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYes, 0,
    procedure(const AResult: TModalResult)
    begin
      Reply := AResult;
    end
  );
  if Reply <> mrYes then Label1.Text := 'No' Else Label1.Text := 'Yes' ;
end;

On est obligé de mettre tout le traitement dans la procédure ?

A+
Charly

[SergioMaster]

Mais pourquoi tu veux absolument mettre la procédure anonyme ?

[pprem]

Mais pourquoi tu veux absolument mettre la procédure anonyme ?

parce que c'est le seul moyen de fonctionner en asynchrone

[pprem]

Bonjour pprm,

Ok, MessageDlg s'adapte mais sous Android, ce code ne va pas fonctionner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button3Click(Sender: TObject);
Var
  Reply : Integer ;
begin
  Reply := 0;
  TDialogService.MessageDialog('Voulez-vous ? ', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbYes, 0,
    procedure(const AResult: TModalResult)
    begin
      Reply := AResult;
    end
  );
  if Reply <> mrYes then Label1.Text := 'No' Else Label1.Text := 'Yes' ;
end;

On est obligé de mettre tout le traitement dans la procédure ?

A+
Charly

Affirmatif : le mode asynchrone fait que les fenêtres s'affichent mais le code appelant continue sans bloquer.

Tel quel ce que tu as écrit ne fonctionnera qu'en mode synchrone (donc synchrone forcé partout (sauf Android) ou sous Windows).

J'en ai parlé sur la session 23 de ma formation "coronapocalypse" en avril. Jetez un coup d'oeil aux rediffusion et éventuellement aux sources sur GitHub.

[SergioMaster]

parce que c'est le seul moyen de fonctionner en asynchrone

Donc le template présenté au début est faux
et devrait se présenter ainsi

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
{$IFDEF ANDROID}
|MsgServiceASync|.MessageDialogAsync('|MsgText|',
                        TMsgDlgType.|MsgType|,
                        [TMsgDlgBtn.mbOk],
                        TMsgDlgBtn.mbOk,
                        procedure (AResult : TModalResult)
                        begin
                         /* traitement
                        end);
{$ELSE}

J'en ai parlé sur la session 23 de ma formation "coronapocalypse" en avril.

corana pas regardé, ça sentait trop la pomme P.S Houlà tu prends des risques ou alors cela s'arrange

[Charly910]

Ok merci