AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Anonymous Methods für Sanduhr als Design Pattern

Ein Thema von bernhard_LA · begonnen am 8. Dez 2015 · letzter Beitrag vom 10. Dez 2015
Antwort Antwort
Seite 1 von 2  1 2   
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.008 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Anonymous Methods für Sanduhr als Design Pattern

  Alt 8. Dez 2015, 16:18
ich würde gerne alle SQL Operationen in meinem Programm via Anonymous Methods als Design Pattern mit einem Mauszeiger ausstatten.
Ich habe folgenden Code hierzu :


Delphi-Quellcode:
type
 TQueryProc = reference to procedure (aQuery: TADOQuery);


procedure ShowHourGlassDuringSQL(Proc: TQueryProc);
 var
 OldCursor: TCursor;
 begin
 OldCursor := Screen.Cursor;
 Screen.Cursor := crHourGlass;
 try
 Proc;
 finally
 Screen.Cursor := OldCursor
 end;
 end;


TMainform.ExecuteSQL1(aQuery : TADOQUERY);
begin
   ....
end;

TMainform.ExecuteSQL2(aQuery : TADOQUERY);
begin
   ....
end;

TMainform.ExecuteSQL3(aQuery : TADOQUERY);
begin
   .....
end;


der eigenliche Code wäre dann :

Delphi-Quellcode:
    ShowHourGlassDuringSQL(MyMainForm.ExecuteSQL3(meineQueryA));

    ShowHourGlassDuringSQL(MyMainForm.ExecuteSQL3(meineQueryB));
Ich bekomme noch nicht mal die korrekte Syntax hin, was mache ich falsch?
  Mit Zitat antworten Zitat
TiGü
Online

Registriert seit: 6. Apr 2011
Ort: Berlin
2.830 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 8. Dez 2015, 16:39
Delphi-Quellcode:
unit Unit1;

interface

uses
  System.Classes,
  Vcl.Controls,
  Vcl.Forms;

type
  TADOQuery = class

  end;

  TQueryProc = reference to procedure(aQuery: TADOQuery);

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
    procedure ExecuteSQL1(aQuery: TADOQuery);
    procedure ExecuteSQL2(aQuery: TADOQuery);
    procedure ExecuteSQL3(aQuery: TADOQuery);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ShowHourGlassDuringSQL(const Proc: TQueryProc; const Query : TADOQuery);
var
  OldCursor: TCursor;
begin
  OldCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  try
    Proc(Query);
  finally
    Screen.Cursor := OldCursor
  end;
end;

procedure TForm1.ExecuteSQL1(aQuery: TADOQuery);
begin

end;

procedure TForm1.ExecuteSQL2(aQuery: TADOQuery);
begin

end;

procedure TForm1.ExecuteSQL3(aQuery: TADOQuery);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LQuery: TADOQuery;
begin
  LQuery:= TADOQuery.Create;
  ShowHourGlassDuringSQL(ExecuteSQL1, LQuery);
  ShowHourGlassDuringSQL(ExecuteSQL2, LQuery);
  ShowHourGlassDuringSQL(ExecuteSQL3, LQuery);
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.842 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 8. Dez 2015, 19:02
Dafür benötigt man keine anonymen Methoden - der Schlüssel ist ein Interface.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.742 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 8. Dez 2015, 19:44
Bei der Gelegenheit:

http://www.delphipraxis.net/180596-h...ml#post1260998 (nicht vom Titel-Thema verwirren lassen)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.710 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 9. Dez 2015, 10:00
Oder andersrum, also in etwa so?
Delphi-Quellcode:
procedure Test1;
begin
  THourGlass.Create;
  // mach was
end; // THourGlass setzt sich am Funktions-Ende selber zurück

procedure Test2;
var
  HourClass: IHourClass;
begin
  HourClass := THourGlass.Create;
  // mach was
  HourClass := nil; // THourGlass manuell zurücksetzen
  // mach nochwas
end;
Delphi-Quellcode:
type
  IHourClass = IInterface;
  THourGlass = class(TInterfacedObject {, IHourClass})
  private class var
    FInstances: Integer;
    FOldCursor: TCursor;
  public
    class function Create: IHourClass; reintroduce; static;
    destructor Destroy; override;
  end;

class function THourGlass.Create: IHourClass;
begin
  Result := inherited THourGlass.Create; //Result := THourGlass(NewInstance);
  if InterlockedIncrement(FInstances) = 1 then
    Result.FOldCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
end;

destructor THourGlass.Destroy;
begin
  if InterlockedDecrement(FInstances) = 0 then
    Screen.Cursor := FOldCursor;
  inherited;
end;
Oder als externe function SetHourGlass: IHourGlass; und die Klasse in Implementation verschieben/verstecken.
Bei der Funktion kann man das auch leichter als Singleton implementieren. (darf da nur nicht die globale Singleton-Instanz vergessen mitzuzählen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 9. Dez 2015 um 10:05 Uhr)
  Mit Zitat antworten Zitat
Bentissimo

Registriert seit: 25. Apr 2006
Ort: Zeitlarn
76 Beiträge
 
Delphi XE2 Professional
 
#6

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 9. Dez 2015, 13:18
@Stevie:

Ich hab mir mal den Fun Code geholt und in mein Programm eingebaut. Ich muss vorweg schicken, dass ich "Old-School" bin und deshalb leider noch rein gar nichts mit Interfaces zu tun gehabt habe.

Wenn ich es richtig verstehe, kann ich die Funktion AutoCursor innerhalb einer Methode XY aufrufen und innerhalb der selben Methode anschliessend z.B. eine Tabelle laden. Sobald XY beendet ist, also das AutoCursor-Interface innerhalb des Scope von XY nicht mehr referenziert wird, wird der Cursor restauriert und das Interface frei gegeben. Ist das korrekt?

Wenn ja, dann müsste es analog funktionieren wie den Cursor zu setzen und anschliessend innerhalb eines try...finally Blocks die Tabelle zu laden und den Cursor wieder zurück zu setzen. Leider ist aber mit AutoCursor nichts zu sehen vom geänderten Cursor. Wenn ich einen Haltepunkt setze, scheint das Programm so zu laufen wie im vorhergehenden Absatz beschrieben. Das wird auch bestätigt, wenn ich zu Testzwecken am Ende von XY noch ein kleines Sleep einbaue. Dann kann ich, wie beim try...finally Block das Setzen und Rücksetzen des Cursors verfolgen.

Mache ich einen Denkfehler oder habe irgendetwas übersehen? Hättest Du vielleicht ein kleines Codebeispiel, in dem der gewünschte Effekt nachvollziehbar ist?

Vielen Dank!
Stephan Schmahl
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.024 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 9. Dez 2015, 17:14
himitsu's Ansatz ist "eigentlich" besser, da die Procedure beliebig oft aufgerufen werden kann...
Wenn man zwischen durch aber einen anderen Cursor braucht, geht das so leider nicht.

Mit dem AutoCursor ist das auch ganz nett und kann somit auch verschiene zwischen Cursor darstellen und restaurieren..

Keinens der Beispiele ist jedoch Thread geeignet. Da man gerade Datenbankzugriffe gerne in einen Thread verlagert, sollte das Cursor setzen Threadsave sein.

Oder muss die Threadgeschichte außen drum, weil der Cursor nichts damit zu tun hat?

Geschmacksache...

Mavarik
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.710 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 10. Dez 2015, 12:56
Einen Thread-Status würde ich aber nicht mit dem Mauszeiger darstellen ... außer den des Hauptthreads.
Also wenn das in Threads aufgerufen wird, dann würde ich dann die Funktions sperren und in Threads den Mauszeiger einfach nicht ändern.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 10. Dez 2015, 13:13
Der Cursor gehört zur Anwendung und ändert die Anzeige. Ergo kann man das zum UI zählen.

Ändert man UI relevante Dinge in einem Thread? Generell nein.

Aber wie denn dann?

Recht simpel von der Theorie:

Mit dem Cursor zeigt man einen Status der Anwendung an (beschäftigt, SQL Abfrage läuft, ...).
Wenn man sich jetzt ein TApplicationState schafft und dort tragen alle Threads ein, was diese gerade machen (einfach nur arbeiten, SQL-Abfrage, ...), dann kann man den höchsten Status ermitteln und entsprechend anzeigen (jeweils im Idle-Event der Anwendung).
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Bentissimo

Registriert seit: 25. Apr 2006
Ort: Zeitlarn
76 Beiträge
 
Delphi XE2 Professional
 
#10

AW: Anonymous Methods für Sanduhr als Design Pattern

  Alt 10. Dez 2015, 13:24
Nur noch mal als Ergänzung zu meinem Beitrag von gestern. Natürlich lag das Problem wie so oft zwischen den Ohren.

Das Laden der Tabelle ging so schnell, dass das Hin- und Herschalten des Mauszeigers nicht wahrnehmbar war. Und den Eindruck, dass das mit dem try...finally Block anders wäre, hatte ich natürlich auch exklusiv.

Also, langer Rede, kurzer Sinn. AutoCursor verhält sich genau wie in meinem ersten Beitrag beschrieben und liefert identische bzw. zumindest kompatible Ergebnisse.

Ob nun aber die Verwendung eines solchen Interface zu Aussagen wie "the resulting code is simpler and easier to manage" berechtigt, erschliesst sich mir noch nicht so ganz. Das Zitat stammt aus Nick Hodges' Buch "Coding in Delphi" von dem ich mir gerade eine Leseprobe angesehen habe.

Zumindest kapiere ich inzwischen aber, dass Interfaces ein Segen für Dependency Injection, Mocking und Testing sind. Hier kann ich mit Sicherheit noch eine Menge lernen!
Stephan Schmahl
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf