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.

[hoika]

Hallo,
der Grill ist angezündet.

KOMM HER

[mytbo]

Zitat von himitsu:

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

Da habe ich nicht aufgepasst und "class" überlesen. Suche schon mehrere Stunden in einer externen Library einen hartnäckigen Fehler und wollte mich mal kurz ablenken. Dann mal mit Rtti:

Delphi-Quellcode:

var
  hashClass: TDECHashClass;
  rttiType: TRttiType;
  rttiMethod: TRttiMethod;
  maxSaltLengthValue: TValue;
begin
  hashClass := ClassRegistration.GetHashClass('BCrypt');
  if (hashClass <> Nil)
    and hashClass.IsPasswordHash then
  begin
    rttiType := TRttiContext.Create.GetType(hashClass);
    if rttiType <> Nil then
    begin
      rttiMethod := rttiType.GetMethod('GetMaxSaltLength');
      if (rttiMethod <> Nil)
        and rttiMethod.IsClassMethod then
      begin
        maxSaltLengthValue := rttiMethod.Invoke(hashClass, []);
      end;
    end;

Und jetzt Feierabend.

Bis bald...
Thomas

[gmc616]

OT:

Zitat:

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

Jeder sollte für das Verwenden von "with" gegrillt werden.

Zitat:

...der Grill ist angezündet.

Ich habe Kohle am Start.

[haentschman]

...ich brings Bier mit.