Discussion :

[JP CASSOU]

Bjr à vous,

Le calvaire du dev FMX Android continue

Ici, je veux utiliser un truc extrêmement complexe segment utilisateur:



qui devrait se coder en une ligne

Bon, çà ne marche pas tout à fait comme çà ... Ce code ne fonctionne pas

C'est quant même incroyable la difficulté de développer pour Android !!! Des choses aussi basiques nécessitent des dizaines de lignes de code là ou la VCL n'en requiert qu'une seule

Je vous invite à lire L'imposture informatique , de François de Closets et Bruno Lussato, 2000.

Il y a vingt ans naissait la micro-informatique. Depuis lors, si elle a fait des progrès stupéfiants, il nous faut bien constater que les ordinateurs sont toujours chers, de plus en plus compliqués, de plus en plus lents, de moins en moins fiables. Est-ce normal ? Pourquoi nous faudrait-il subir tous ces ennuis comme une fatalité ou nous convaincre que nous en sommes responsables ? Pourquoi les entreprises devraient-elles continuer à s'équiper en matériels surpuissants, inadaptés à leurs besoins réels ? Pourquoi supporter cette imposture ?

Code :

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
 
 
unit unitAndroidDialogs;
interface
uses
  Classes
  , System.SysUtils
  , System.UITypes
  , FMX.Dialogs
  , FMX.DialogService
  , FMX.Platform
  ;
function GHTopoQuestionOuiNon(const Msg: string): boolean;
 
implementation
var 
  // Variable semi globale qui est modifiée par QProcYes()
  FLastYesNoQuestion: boolean; 
 
procedure QProcYes();
begin
  FLastYesNoQuestion := True; // 
end;
 
procedure QProcNo();
begin
   FLastYesNoQuestion := false;
end;
 
procedure QGHtopoDlgYesNo(const msg: string; const ProcYes, ProcNo: TProcedure);
begin
  FLastYesNoQuestion := false;
  MessageDlg(Msg, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
  procedure(const AResult: TModalResult)
  begin
    case AResult of
      mrYes: ProcYes();
      mrNo : ProcNo();
    end;
  end);
end;
 
function GHTopoQuestionOuiNon(const Msg: string): boolean;
begin
  QGHtopoDlgYesNo(Msg, QProcYes, QProcNo);
  Result := FLastYesNoQuestion;
end;
 
procedure GHTopoMsgBox(const Msg: string);
begin
  ShowMessage(Msg);
end;
 
initialization
  FLastYesNoQuestion := false;
end.

[SergioMaster]

Le fait que les routines de FMX.DialogService sont presque toutes déclarées obsolètes ne t'a pas titillé l'esprit ?
pourtant la doc indique clairement :

Avertissement*: MessageDlg est obsolète. Veuillez utiliser Platform.IFMXDialogServiceAsync.MessageDialogAsync.

[anapurna]

Bjr à vous,

Le calvaire du dev FMX Android continue

Ici, je veux utiliser un truc extrêmement complexe segment utilisateur:



qui devrait se coder en une ligne

Bon, çà ne marche pas tout à fait comme çà ... Ce code ne fonctionne pas

C'est quant même incroyable la difficulté de développer pour Android !!! Des choses aussi basiques nécessitent des dizaines de lignes de code là ou la VCL n'en requiert qu'une seule

Je vous invite à lire L'imposture informatique , de François de Closets et Bruno Lussato, 2000.

Il y a vingt ans naissait la micro-informatique. Depuis lors, si elle a fait des progrès stupéfiants, il nous faut bien constater que les ordinateurs sont toujours chers, de plus en plus compliqués, de plus en plus lents, de moins en moins fiables. Est-ce normal ? Pourquoi nous faudrait-il subir tous ces ennuis comme une fatalité ou nous convaincre que nous en sommes responsables ? Pourquoi les entreprises devraient-elles continuer à s'équiper en matériels surpuissants, inadaptés à leurs besoins réels ? Pourquoi supporter cette imposture ?

Code :

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
 
 
unit unitAndroidDialogs;
interface
uses
  Classes
  , System.SysUtils
  , System.UITypes
  , FMX.Dialogs
  , FMX.DialogService
  , FMX.Platform
  ;
function GHTopoQuestionOuiNon(const Msg: string): boolean;
 
implementation
var 
  // Variable semi globale qui est modifiée par QProcYes()
  FLastYesNoQuestion: boolean; 
 
procedure QProcYes();
begin
  FLastYesNoQuestion := True; // 
end;
 
procedure QProcNo();
begin
   FLastYesNoQuestion := false;
end;
 
procedure QGHtopoDlgYesNo(const msg: string; const ProcYes, ProcNo: TProcedure);
begin
  FLastYesNoQuestion := false;
  MessageDlg(Msg, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
  procedure(const AResult: TModalResult)
  begin
    case AResult of
      mrYes: ProcYes();
      mrNo : ProcNo();
    end;
  end);
end;
 
function GHTopoQuestionOuiNon(const Msg: string): boolean;
begin
  QGHtopoDlgYesNo(Msg, QProcYes, QProcNo);
  Result := FLastYesNoQuestion;
end;
 
procedure GHTopoMsgBox(const Msg: string);
begin
  ShowMessage(Msg);
end;
 
initialization
  FLastYesNoQuestion := false;
end.

Salut

Un truc plus simple du genre :

Code :

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
 
procedure QGHtopoDlgYesNo(const msg: string) : Boolean;
var
  Lres : Boolean;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceASync, IInterface(ASyncService)) then
  begin
    ASyncService.MessageDialogAsync(msg, TMsgDlgType.mtConfirmation,[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], TMsgDlgBtn.mbNo, 0,
   	  procedure(const AResult: TModalResult)
      begin
        case AResult of
          mrYES : Lres := True;
	   mrNO  : Lres := false;
        end;
      end);
  end;
  Result := Lres;
end;

Ça ne marche pas ?

[pprem]

Bon, ok, ça manque d'explications à un endroit unique et clairement identifié dans la doc pour passer de la VCL à FireMonkey mais elles existent, il y a des formations et infos en ligne pour ça.

En VCL on fait de la programmation synchrone. Pour interroger l'utilisateur on le fait dans le flux, la boite de dialogue bloque l'exécution, le traitement se fait séquentiellement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  case messagedlg('Bonjour, comment ça va bien ?', mtconfirmation,
    [mbOk, mbCancel], 0, mbOk) of
    mrok:
      Showmessage('Tant mieux.');
    mrcancel:
      Showmessage('Retournez vous coucher');
  else
    raise exception.Create('pas glop');
  end;
end;

Il n'est pas très compliqué de modifier ce code pour que ça tourne sur toutes les plateformes dans un projet FireMonkey :

Code :

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
uses
  FMX.DialogService;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  TDialogservice.MessageDialog('Bonjour, comment ça va bien ?',
    tmsgdlgtype.mtconfirmation, [tmsgdlgbtn.mbOk, tmsgdlgbtn.mbCancel],
    tmsgdlgbtn.mbOk, 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrok:
          Showmessage('Tant mieux.');
        mrcancel:
          Showmessage('Retournez vous coucher');
      else
        raise exception.Create('pas glop');
      end;
    end);
end;

Ce qui est dommage, c'est que MessageDlg() soit autorisée, même si déprécié, dans un programme FMX de base pour des raisons de simplification pour les développeurs VCL faisant du FireMonkey pour Windows. Son comportement étant le même. En revanche si on fait du développement réellement multiplateforme il vaut mieux partir sur les formes compatibles avec les plateformes mobiles et leurs contraintes de non blocage du programme.

Il faut penser que tout est traité dans le même ProcessMessage (je simplifie), donc toute action de l'utilisateur à l'écran ne peut se faire que si on est sortis des actions/événements précédents. Une boite de dialogue redessine les composants à l'écran comme une TFrame et applique un onClick aux boutons. Elle bloque artificiellement les composants derrière elle pour être la seule à être traitée par la boucle d'événements du programme.

Tout le code qu'on faisait séquentiellement jusque là est à passer sous forme de callback avec des procédures ou fonctions anonymes.

Là où ça complique un peu les choses, c'est que sous Windows/Mac/Linux ces boites de dialogue sont bloquantes alors qu'elles ne le sont pas sous iOS/Android par défaut. Pour avoir exactement le même comportement partout, soit on appelle explicitement la version asynchrone des boites de dialogue, soit on force l'asynchrone partout avec cette ligne de code dans un bloc d'initialisation ou en début de programme.

Code :

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

TDialogservice.PreferredMode := TDialogservice.TPreferredMode.Async;

Si tu veux des bases pour sortir de tes habitudes LCL/VCL, regarde cette session à partir de la 4è minute et les exemples associés qui sont disponibles sur GitHub:

[ALWEBER]

Bjr à vous,
Le calvaire du dev FMX Android continue
Ici, je veux utiliser un truc extrêmement complexe segment utilisateur:
qui devrait se coder en une ligne
Bon, çà ne marche pas tout à fait comme çà ... Ce code ne fonctionne pas ...
[/CODE]

Bonjour, J'ai développé un méthode alternative qui peut répondre à ton besoin. Ci-après une vidéo qui représente une maquette sur ce sujet (Windows et Android). Si quelqu'un est intéressé je peux l'expliquer et en mettre les sources à disposition
https://drive.google.com/file/d/1wwe...usp=share_link

[JP CASSOU]

Résolu par codage 'à la demande':

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
TDialogservice.MessageDialog('Test QuestionOuiNon',
    tmsgdlgtype.mtconfirmation, [tmsgdlgbtn.mbOk, tmsgdlgbtn.mbNo],
    tmsgdlgbtn.mbOk, 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrok:
          ShowMessage('Oui');
        mrNo:
          ShowMessage('Non');
      else
 
      end;
    end);