Function vs. Procedure mit Callback

[Mavarik]

Warum ein

TThread.CreateAnonymousThread und nicht

TTask.Run ??

Mavarik

[Sir Rufo]

Zitat von Mavarik:

Warum ein

TThread.CreateAnonymousThread und nicht

TTask.Run

Warum nicht? Es ist völlig egal, wie die Arbeit in einem Thread ausgelagert wird. Ich hätte auch einen TOmniTask nehmen können oder einen TBackgroundWorker oder einen eigenen Thread schreiben können oder, oder, ...

Zudem ist das Auslagern in einem Thread nicht Thema des Tutorials, sondern wie man etwas so vorbereitet, dass man es auf Wunsch auch in einem Thread auslagern kann

[TiGü]

Ich habe mir heute morgen ausführlich das Beispiel angeschaut und nachdebuggt.
Ich muss schon sagen: Hut ab!
Du schüttelst dir immer tolle Codeschnipsel aus dem Ärmel, die einen fachlich weiter voranbringen.
Zwar fällt es mir schwer, das Gelernte auf meine Probleme anzuwenden, aber so hat man für den Fall der Fälle ein Rezept.

Was für einen Anwendungsfall erschlägst du mit diesen "Pattern" in deinen Anwendungen?

[Sir Rufo]

Überall da, wo ich Instanzen erzeuge und die Frage, wer jetzt für die LifeTime der Instanz verantwortlich ist nicht eindeutig geklärt ist.

Zudem noch überall da, wo ein Aufruf auch mal etwas länger dauern könnte (im Prinzip, quasi fast jeder).

Kleines Beispiel:

Du hast eine Eingabemaske für einen neuen Benutzer. Identifiziert wird dieser über die email-Adresse. Wenn du jetzt schon bei der Eingabe prüfen möchtest, ob diese email-Adresse auch verwendet werden kann, dann musst du ja den Daten-Speicherort fragen. Das könnte etwas länger dauern und damit die Eingabe des Users hemmen. Also arbeitet der Service das in einem Thread ab und gibt das Ergebnis über den Callback zurück.

Delphi-Quellcode:

type
  TEmailState = ( Unknown, Invalid, InUse, Valid );

procedure TSingInForm.EmailAddressChange(Sender: TObject);
var
  LMailAddress : string;
begin
  LMailAddress := EmailAddress.Text;

  // Email-Adresse ungültig
  if not IsValidEmailAddress(LMailAddress) then
  begin
    FMailState := TEmailState.Invalid;
    Exit;
  end;
  
  // Wir fragen den Service, ob die Adresse schon verwendet wird
  FMailState := TEmailState.Unknown;

  FUserService.CheckMailIsUnique( LMailAddress,
  procedure ( AResult: Boolean; AException:Exception )
  begin
    if EmailAddress.Text = LMailAddress then
      if AResult then
        FMailState := TEmailState.Valid
      else
        FMailState := TEmailState.InUse;
  end );
end;

Abhängig vom Status kannst du nun hinter dem Edit-Feld ein Symbol anzeigen lassen und auch den Button zum Speichern nur dann freigeben, wenn der Status auf Valid steht.

Das Speichern selbst, kann man dann auch über so einen Callback-Aufruf starten. Konnte der User gespeichert werden, dann wird der Dialog geschlossen, ansonsten nicht.