class methode an Klassenreferenz aufrufen

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

[TurboMagic]

Ihr könnt ja gerne grillen, ich hab' dafür den Bug gefixt.
Himitsu's Hinweis war richtig! Das hatte ich doch glatt übersehen.

Ist halt die Frage ob der Compiler das erkennen könnte/müsste.

[Uwe Raabe]

Zitat von TurboMagic:

Ist halt die Frage ob der Compiler das erkennen könnte/müsste.

Bei einem Hardcast ist der Compilers blind - soll er ja dann auch sein.

[Stevie]

Du musst auch eine Klassenreferenz auf eine andere Klassenreferenz casten

Delphi-Quellcode:

type
  TDECHashClass = class of TDECHash;
  TDECPasswordHashClass = class of TDECPasswordHash;

  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 (TDECPasswordHashClass(Hash).GetMaxSaltLength > 0) then