Gute Neuigkeit! DEC 6.2 soeben released!

[EdAdvokat]

Ich habe nun die ersten Testversuche mit der gepachten Version 6.2.1 durchgeführt und folgende Ergebnisse erzielt:

1. Mit Delphi 10.2 und 10.3 habe ich beim Kompilieren mit F9 immer wieder die Fehlermeldung E1026 mit dem Hinweis, dass MainForm.dfm in einem FMX Programm fehlen würde.
Nachdem ich das Programm mit "Erstellen" und danach mit F9 kompiliere erhalte ich keine Fehlermeldungen bei Cipher_FMX, Hash_FMX und Benchmark_FMX.

2. Test mit Delphi 10 Seattle sieht da anders aus: Cipher_FMX läßt sich nicht kompilieren, da FMX.Grid.Style nicht gefunden wird.
Hash_FMX gibt eine Fehlermeldung für Zeile 156 - 165 aus. FormMain.ShowErrorMessage dort sei IFMXDialogServiceAsync nicht bekannt
Vermutlich ist Seattle für das Programm in Fragen FMX zu alt oder?

Benchmark_FMX wirft beim Aufruf den bekannten Fehler sg_Results.Options; Nach ignorieren und Kompilierungsversuch Fehler: FMX.Grid.Style nicht gefunden.
Also Seattle scheint wohl für das DEC-Projekt nicht geeignet zu sein.

Soweit meine ersten Testversuche.
Interessant für mich und auch neu ist der Fehler E1026. Was könnte das denn sein? Das hatte ich bisher nur in den DEC-Projekten.
Komischerweise ist alles i.o wenn ich das Programm mit Erzeugen und dann F9 starte. Hat da jemand eine Erklärung?

[TurboMagic]

Zitat von EdAdvokat:

2. Test mit Delphi 10 Seattle sieht da anders aus: Cipher_FMX läßt sich nicht kompilieren, da FMX.Grid.Style nicht gefunden wird.
Hash_FMX gibt eine Fehlermeldung für Zeile 156 - 165 aus. FormMain.ShowErrorMessage dort sei IFMXDialogServiceAsync nicht bekannt
Vermutlich ist Seattle für das Programm in Fragen FMX zu alt oder?

Benchmark_FMX wirft beim Aufruf den bekannten Fehler sg_Results.Options; Nach ignorieren und Kompilierungsversuch Fehler: FMX.Grid.Style nicht gefunden.
Also Seattle scheint wohl für das DEC-Projekt nicht geeignet zu sein.

Hab noch nicht wirklich Zeit dafür gefunden, aber am Benchmark_FMX eine Änderung vorgenommen.
Kannst du die mal testen?

Die FMX.Grid.Style sollte dadurch jetzt erst ab 10.4 eingebunden werden:

Delphi-Quellcode:

  {$IF RTLVersion < 34}
  {$ELSE}
  FMX.Grid.Style,
  {$ENDIF}

[EdAdvokat]

Hallo Markus,
Habe also mit Delphi Seattle das Programm Benchmark_FMX nochmals getestet:
beim Laden der dpr-Datei erneut der Hinweis sg_Results.Options:ungültiger Eigenschaftswert (wie bereits von zuvor bekannt) dann ignorieren und Programm kompiliert mit Fehlermeldung:
Zeile 229: auf privete-Symbol TTime.Span.tostring kann nicht zugegriffen werden.
Habe daraufhin geprüft ob tostring überhaupt mit dem Aufruf möglich ist - nein, also tostring auskommentiert und ; hinter Elapsed gesetzt.
Danach läßt sich das Programm kompilieren und zeigt auch Zeiten an. Ob die wirklich so richtig sind kann ich nicht genau bestimmen. Jedenfalls läuft das Programm ohne tostring.
Da tostring ja nur die Werte in strings umwandeln soll und die Zeit tatsächlich auch angezeigt wird, dürfte ja inhaltlich an der Zeitbestimmung nichts verändert worden sein.

Hier nochmals dieser Abschnitt mit der von mir vorgenommenen Auskommentierung:

procedure TFormMain.RunBenchmark(ClassName: string; RowIndex: Integer);
var
Hash : TDECHash;
HashResult : TBytes;
i : Integer;
begin
Hash := TDECHash.ClassByName(ClassName).Create;

try
FStopwatch.Reset;
FStopwatch.Start;

for i := 0 to cIterations - 1 do
begin
HashResult := Hash.CalcBytes(FBenchmarkBuffer);
end;

FStopwatch.Stop;

sg_Results.Cells[1, RowIndex] :=
Format('%0:f', [cIterations / (FStopwatch.ElapsedMilliseconds/1000)]);
sg_Results.Cells[2, RowIndex] := FStopwatch.Elapsed; //.ToString;
finally
Hash.Free;
end;
end;

Soweit Benchmark_FMX-test mit Delphi Seattle. Die Problematik FMX.Grid.Style hat wohl funktioniert und sollte ggf auch auf andere Dateien angewendet werden, falls erforderlich.

[EdAdvokat]

Entschuldigung, habe den "Helm" leider nicht exakt aufgesetzt:

Delphi-Quellcode:

procedure TFormMain.RunBenchmark(ClassName: string; RowIndex: Integer);
var
  Hash       : TDECHash;
  HashResult : TBytes;
  i          : Integer;
begin
  Hash := TDECHash.ClassByName(ClassName).Create;

  try
    FStopwatch.Reset;
    FStopwatch.Start;

    for i := 0 to cIterations - 1 do
    begin
      HashResult := Hash.CalcBytes(FBenchmarkBuffer);
    end;

    FStopwatch.Stop;

    sg_Results.Cells[1, RowIndex] :=
      Format('%0:f', [cIterations / (FStopwatch.ElapsedMilliseconds/1000)]);
    sg_Results.Cells[2, RowIndex] := FStopwatch.Elapsed;  //.ToString;
  finally
    Hash.Free;
  end;
end;

[Andreas13]

Hallo Norbert,
den "Helm" kannst Du Deinem Code auch nachträglich über den Punkt "Bearbeiten" aufsetzen.
Gruß, Andreas

[EdAdvokat]

Also, habe soeben Benchmark_FMX auch mit Delphi 10.1 und 10.2 getestet. Diese beiden Versionen benötigen die Einfügung:

//{$IF RTLVersion < 34}
//{$ELSE}
FMX.Grid.Style,
//{$ENDIF}

Also die brauchen FMX.Grid.Style, ...

Auch die Zeile 229 sollte so bleiben wie sie ist: sg_Results.Cells[2, RowIndex] := FStopwatch.Elapsed.ToString;
Mit den Kompilerzeichen streikt das Programm in Delphi 10.1 und 10.2 und vermutlich auch bei 10.3 (werde ich noch probieren)

Also vermutlich gab es zwischen Delphi Seattle und Delphi Berlin den für uns hier signifikanten Wechsel. Also sollte vermutlich < 31 eingefügt werden, damit
die Änderungen nach Seattle vorgenommen werden.

[TurboMagic]

Zitat von EdAdvokat:

Entschuldigung, habe den "Helm" leider nicht exakt aufgesetzt:

Das .ToString habe ich umgesetzt und auch in Cipher_FMX den FMX.Grid.Style Unit Fix angewendet.
Siehe mein Commit. Deine letzte Bemerkung mit .ToString habe ich erst jetzt gesehen und noch
nicht ganz verstanden.

Díe restlichen Sachens schaue ich mir nach dem Mittagessen an.

[philipp.hofmann]

Ich überprüfe die Delphi-Versionen im Code immer folgendermaßen:

Delphi-Quellcode:

{$IF defined(VER330) or defined(VER340)}
      System.Permissions,
{$ENDIF}

[EdAdvokat]

Also Benchmark_FMX mit Delphi 10 Seattle getestet, nachdem ich die Compilerdirektive auf < 31 geändert habe klappt es, da ja auch Zeile 229 ohne tostring geändert wurde.
Also mit < 31 sollte es nun generell klappen.
So auch auch getestet mit Delphi 10.1, Delphi 10.2 und Delphi 10.3. überall mit < 31 ohne erkennbare Beanstandungen.
Soweit erst einmal. Ich denke wir biegen so in eine Zielkurve ein....

[TurboMagic]

So, es ist released:

https://github.com/MHumm/DelphiEncry...ses/tag/V6.2.1

Ich hoffe es passt jetzt alles, damit ich lieber an neuer Funktionalität weiter arbeiten kann.