class methode an Klassenreferenz aufrufen

[TurboMagic]

Hallo,

gegeben ist Code mit dieser Struktur:

Delphi-Quellcode:

type
  TDECHashClass = class of TDECHash;

  TDECHash = class
  public
    class function IsPasswordHash: Boolean; 
  end;

  TDECPasswordHash = class(TDECHash)
  public
    class function GetMaxSaltLength:UInt16; virtual; abstract;
  end;

  THash_BCrypt = class(TDECPasswordHash)
  public
    class function GetMaxSaltLength:UInt16; override;
  end;

[..]

var
  Hash: TDECHashClass;
begin
  // beschaffe die Klassenreferenz der ausgewählten Klasse aus einer
  // Liste aller registrierten Klassen
  Hash := ClassRegistration.GetHashClass('BCrypt');

  // Hier knallt es:
  if Hash.IsPasswordHash and (TDECPasswordHash(Hash).GetMaxSaltLength > 0) then

Mir ist klar warum es knallt. TDECPasswordHash implementiert die GetMaxSaltLength
Klassenmethode ja nicht, sondern erst die davon erbende THash_BCrypt.
Nur: wie an diese rann kommen, wenn man nur eine TDECHashClass Klassenreferenz
von der BCrypt Klasse aus der Registrierungsliste bekommt?

Grüße
TurboMagic

[himitsu]

TDECPasswordHash ein Instanz-Zeiger (class), aber du brauchst für diesen Cast ebenfalls einen Klassen-Zeiger (class of).

Also nicht TDECPasswordHash sondern ein TDECPasswordHashClass (class of TDECPasswordHash).



Bisschen böse, wenn der Compiler hier nicht meckert.




Vielleicht ließe sich hier auch mit Attributen spielen?

Delphi-Quellcode:

type
  TDECHashClass = class of TDECHash;

  TDECHash = class
  public
    class function IsPasswordHash: Boolean;
  end;

  //[DECMaxSaltLength(-1)]
  TDECPasswordHash = class(TDECHash)
  public
    class function GetMaxSaltLength:UInt16; // hier, oder in der Basisklasse (ohne Cast), das erste Attribut nehmen
  end;

  [DECMaxSaltLength(16)]  // oder mit einem generellen Parameter-Attribut [DECParam('MaxSaltLength', 16)] aka DECParamAttribute
  THash_BCrypt = class(TDECPasswordHash)
  public
  end;

[TurboMagic]

Hallo,

danke für die schnelle Antwort.
Muss mir das in dem Licht mit dem Class Of nochmal anschauen.

Es geht um eine nötige Erweiterung eines der Demo-Programme der DEC...

Grüße
TurboMagic

[himitsu]

Nenn deine Variable HashClass, dann fällt es besser auf, dass es nicht TDECPasswordHash(HashClass) sondern TDECPasswordHashClass(HashClass) sein müsste.

[mytbo]

Delphi-Quellcode:

var
  hashClass: TDECHashClass;
begin
  hashClass := ClassRegistration.GetHashClass('BCrypt');
  with hashClass.Create as hashClass do
  try
    if IsPasswordHash
      and (GetMaxSaltLength > 0) then
    begin
      ...
    end;
  finally
    Free;
  end;
end;

Jetzt warte ich darauf, dass ich wegen des "withs" gegrillt werde.

Bis bald...
Thomas

[himitsu]

Dann wäre das mit der Class-Method aber auch bissl obsolete.