asynchrone Dialoge

[tbathelt]

Hallo zusammen, ich möchte mit diesem Post nochmal das Thema asynchrone Dialoge aufgreifen, da ich dazu bislang keine wirklich hilfreichen Infos finden konnte.
Wenn man Code programmiert, der auf verschiedenen Platformen laufen soll (z.B. Android), kommt man um die Verwendung asynchroner Dialoge nicht herum. Manchmal braucht man aber eine Eingabe, bevor es Sinn macht, mit dem Programmablauf weiterzumachen. In den durchsuchten Beiträgen habe ich bislang für solche Situationen nur etwas unspezifische Hinweise auf die Callback-Funktion der Dialoge gefunden. Ich habe mir daher einen "work-around" zurechtgebastelt, wie er im nachfolgenden Code-Beispie zu sehen ist.

Delphi-Quellcode:

type
  Tproc = procedure of object;

var
  JmpIdx: Integer;
  res: String;

procedure xInput(xTitle, xPrompt, xDefault: String; xProc: Tproc);
begin
  TDialogServiceAsync.InputQuery(xTitle, xPrompt, xDefault,
  procedure(const ARes: TModalResult; const AVal: array of String)
  begin
    if ARes=mrOk then
      res := AVal[0]
    else
      res := '';
    xProc;
  end);
end;

procedure TForm1.xyz;
var
  s: String;
Label
  lbl01;
begin
  case JmpIdx of
    1: Goto lbl01;
  end;
  JmpIdx := 1;
  xInput('Titel', 'Prompt', 'Default', xyz);
  exit;
lbl01:
  Label1.Text := res;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  JmpIdx := 0;
  xyz;
end;

Das ganze funktioniert zwar wie gewünscht, ist aber fürchterlicher Programmierstil - nur ist mir halt eben bislang dazu nix Besseres eingefallen.
Daher meine Frage: Wie handhabt ihr den Umgang mit asynchronen Dialogen?
Ich bin für alle Anregungen dankbar

Viele Grüße

[Olli73]

Delphi-Quellcode:

procedure TForm1.xyz;
begin
  TDialogServiceAsync.InputQuery('Title', 'Prompt', 'Default',
    procedure(const ARes: TModalResult; const AVal: array of String)
    begin
      if ARes=mrOk then
        Label1.Text := AVal[0]
      else
        Label1.Text := '';
    end);
end;

[tbathelt]

Mein Beispiel ist natürlich nur ein "Dummy-Code". In einem echten Programm ist der Ablauf komplexer.
Wenn z.B. die Eingabe von InputQuery nur beim ersten Programmstart gebraucht wird und später aus einer Datenbank kommt, müsste man den weiteren Code doppelt programmieren, da man nicht in die Callback Routine hineinspringen kann (oder?).

[Olli73]

So in etwa:

Delphi-Quellcode:

procedure TForm1.xyz;
begin
  if FirstStart then begin
    TDialogServiceAsync.InputQuery('Title', 'Prompt', 'Default',
      procedure(const ARes: TModalResult; const AVal: array of String)
      begin
        if ARes=mrOk then
          Login(AVal[0])
        else
          Abbruch;
      end);
  end else begin
    Login(ValueAusDb);
  end;
end;

[tbathelt]

Sieht schon gar nicht schlecht aus.:thumb:
Es stört mich allerdings noch, dass z.B. bei mehreren verschiedenen Abfragen der Ablauf der Prozedur Login() in verschiedene einzelne Fragmente unterteilt werden muss, da man anders den Sprung aus der jeweiligen Callback Routine nicht an die richtige Stelle realisieren kann.
Trotzdem hilft mir der Vorschlag schon gut weiter. Vielen Dank dafür.

[Olli73]

Ich finde die bisherige Programmierung mit "echten" modalen (blockierenden) Dialogen auch schöner. Aber die mobilen Systeme sind halt zu blöd dafür.

[blawen]

Zitat:

Zitat von Olli73 (Beitrag 1499785)

Ich finde die bisherige Programmierung mit "echten" modalen (blockierenden) Dialogen auch schöner. Aber die mobilen Systeme sind halt zu blöd dafür.

Funktioniert

Delphi-Quellcode:

TDialogServiceSync

in den Mobilen Umgebungen nicht?

[Olli73]

Zumindest bei Android geht das NICHT.

[TurboMagic]

Zitat:

Zitat von blawen (Beitrag 1499788)

Zitat:

Zitat von Olli73 (Beitrag 1499785)

Ich finde die bisherige Programmierung mit "echten" modalen (blockierenden) Dialogen auch schöner. Aber die mobilen Systeme sind halt zu blöd dafür.

Funktioniert

Delphi-Quellcode:

TDialogServiceSync

in den Mobilen Umgebungen nicht?

Naja, man kann das sicher aufrufen und compilieren lassen, zur Laufzeit bekommt man aber eine Exception.
Schuld ist nicht Delphi, sondern mindestens Android. Die wollen koste es was es wolle einfach keine
modalen Dialoge!

Grüße
TurboMagic

[himitsu]

Zitat:

Delphi-Quellcode:

    xProc;
  end);

Diese Endlosschleife funktioniert wirklich gut. :stupid:

[Rollo62]

Zitat:

Zitat von tbathelt (Beitrag 1499780)

Das ganze funktioniert zwar wie gewünscht, ist aber fürchterlicher Programmierstil - nur ist mir halt eben bislang dazu nix Besseres eingefallen.

Also generell, wenn man Code in der anonymen Prozedur schreibt,
dann ist alles schön beim Aufrufer zusammengefasst, und nicht über die ganze Unit verstreut.
Deshalb finde ich das eigentlich sehr aufgeräumten Code (sieht nur etwas unelegant aus, auf den ersten Blick).
Natürlich sollte man nicht zu viel darin machen, und man könnte weitere Aufgaben per Message anstossen.

Delphi-Quellcode:

...
begin
    if ARes=mrOk then
    begin
       ...
       MacheHierWas;
       ...
    end
    else
    begin
       ...
       MacheHierWasAnderes;
       ...
    end;
  end);

[Olli73]

Zitat:

Zitat von himitsu (Beitrag 1499810)

Zitat:

Delphi-Quellcode:

    xProc;
  end);

Diese Endlosschleife funktioniert wirklich gut. :stupid:

Er hat doch eine Abbruchbedingung drin, schön mit globaler Variable und goto ???

[tbathelt]

Der etwas holperige Code lässt immerhin einen halbwegs linearen Ablauf der Prozedur "xyz" zu, unabhängig davon wie oft der Eingabedialog "xInput" aufgerufen wird. Außerdem kann durch die parameterisierte Rücksprungadresse in "xInput" dieser Eingabedialog bei Bedarf auch von verschiedenen anderen Prozeduren aufgerufen werden.

... und nochmal, obwohl Olli73 es schon geschrieben hat, es ist definitiv keine Endlosschleife !!!

[Rapunzel]

Zum dem Thema ein alternativer Vorschlag.

Ich beschäftige mit erst seit kurzem mit dem FMX Framework und bin durch das Buch von Andrea Magni auf die Komponente TFormStand aufmerksam geworden. Damit lassen sich mit ein wenig Tricksen eigene quasi modale Formulare mit beliebigen Design, Größe und Position realisieren. Der Rest der App kann ebenfalls mit einem Lighbox Effekt abgedunkelt werden. Wird ein Bereich außerhalb des "modalen Dialogs" angetippt, wird dieser nicht automatisch geschlossen. Den Rest der App benachrichtige ich generell über den Messagemanager mit Sendmessage und eigenen Botschaften.

[Olli73]

Zitat:

Zitat von Rapunzel (Beitrag 1499831)

Zum dem Thema ein alternativer Vorschlag.

Ich beschäftige mit erst seit kurzem mit dem FMX Framework und bin durch das Buch von Andrea Magni auf die Komponente TFormStand aufmerksam geworden. Damit lassen sich mit ein wenig Tricksen eigene quasi modale Formulare mit beliebigen Design, Größe und Position realisieren. Der Rest der App kann ebenfalls mit einem Lighbox Effekt abgedunkelt werden. Wird ein Bereich außerhalb des "modalen Dialogs" angetippt, wird dieser nicht automatisch geschlossen. Den Rest der App benachrichtige ich generell über den Messagemanager mit Sendmessage und eigenen Botschaften.

Aber das Problem ist doch dass showmessage nicht blockierend ist, sprich der Code an der Stelle nicht angehalten wird bis das Formular geschlossen wird!?