AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

class methode an Klassenreferenz aufrufen

Ein Thema von TurboMagic · begonnen am 9. Feb 2022 · letzter Beitrag vom 11. Feb 2022
Antwort Antwort
mytbo

Registriert seit: 8. Jan 2007
482 Beiträge
 
#1

AW: class methode an Klassenreferenz aufrufen

  Alt 9. Feb 2022, 21:21
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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.391 Beiträge
 
Delphi 12 Athens
 
#2

AW: class methode an Klassenreferenz aufrufen

  Alt 9. Feb 2022, 21:47
Dann wäre das mit der Class-Method aber auch bissl obsolete.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: class methode an Klassenreferenz aufrufen

  Alt 9. Feb 2022, 22:21
Hallo,
der Grill ist angezündet.

KOMM HER
Heiko
  Mit Zitat antworten Zitat
mytbo

Registriert seit: 8. Jan 2007
482 Beiträge
 
#4

AW: class methode an Klassenreferenz aufrufen

  Alt 9. Feb 2022, 22:52
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
  Mit Zitat antworten Zitat
gmc616

Registriert seit: 25. Jun 2004
Ort: Jena
627 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: OT: Nutzloser Betrag // class methode an Klassenreferenz aufrufen

  Alt 10. Feb 2022, 00:11
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.
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.438 Beiträge
 
Delphi 12 Athens
 
#6

AW: class methode an Klassenreferenz aufrufen

  Alt 10. Feb 2022, 06:27
...ich brings Bier mit.
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
3.067 Beiträge
 
Delphi 12 Athens
 
#7

AW: class methode an Klassenreferenz aufrufen

  Alt 10. Feb 2022, 08:25
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.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.673 Beiträge
 
Delphi 12 Athens
 
#8

AW: class methode an Klassenreferenz aufrufen

  Alt 10. Feb 2022, 09:48
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.045 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#9

AW: class methode an Klassenreferenz aufrufen

  Alt 11. Feb 2022, 10:56
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
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz