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

Delphi-Quellcode:

TDECPasswordHash(HashClass)

sondern

Delphi-Quellcode:

TDECPasswordHashClass(HashClass)

sein müsste. :angle:

[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. :wink:

Bis bald...
Thomas

[himitsu]

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

[hoika]

Hallo,
der Grill ist angezündet.

KOMM HER ;)

[mytbo]

Zitat:

Zitat von himitsu (Beitrag 1501933)

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

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.:twisted:

Zitat:

...der Grill ist angezündet.

Ich habe Kohle am Start.:zwinker:

[haentschman]

...ich brings Bier mit. :cheers: