Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Ini-Verschlüsselung mit Class Helper (https://www.delphipraxis.net/140684-ini-verschluesselung-mit-class-helper.html)

CodeX 23. Sep 2009 23:47


Ini-Verschlüsselung mit Class Helper
 
Vorab: Ich habe vor diesem Posting viel gesucht und nachgelesen. Und nein, ich habe keine passende Antwort gefunden.

Ich möchte ein gegebenes, größeres Projekt so erweitern, dass die geschriebenen Werte in eine Ini verschlüsselt abgelegt und gelesen werden können.
TIniFile ableiten und entsprechende Zusatzfunktionen einbauen würde Unmengen an Änderungen am bestehenden Code mit sich bringen. Das ist nicht gewünscht.

Das bedeutet, dass weiterhin ganz normal z.B. per
Delphi-Quellcode:
var ini: TIniFile;
begin
  ini := TIniFile.Create(IniName);
  try
    myString := ini.ReadString('Section','Ident','');
  finally
    ini.Free;
  end;
ein String ausgelesen werden können soll. Nur eben beim Lesen entschlüsselt.

Wie lässt sich das nun umsetzen?
Meinde Idee war einen Klassenhelfer zu verwenden. Da ich bislang noch nicht damit gearbeitet habe, stolpere ich damit durch die Gegend.

Ich dachte, das ginge jetzt so in der Art:

Delphi-Quellcode:
type
  TIniFileHelper = class helper for TIniFile
    function ReadString(const Section, Ident, Default: string): string;
  end;

implementation

function TIniFileHelper.ReadString(const Section, Ident, Default: string): string;
begin
  //hier später die Entschlüsselung

  inherited;
end;
Überschrieben wird das damit schonmal, aber das Erben der normalen Funktionalität klappt nicht. Ginge das, könnte ich an Stelle des Kommentars die Funktion erweitern.

Wie also statt des "inherited" Versuchs richtig?

omata 23. Sep 2009 23:54

Re: Ini-Verschlüsselung mit Class Helper
 
Delphi-Quellcode:
type
  TIniFileHelper = class(TIniFile)
    function ReadString(const Section, Ident, Default: string): string; override;
  end;
:
:
:
function TIniFileHelper.ReadString(const Section, Ident, Default: string): string;
begin
  Result:=inherited ReadString(Section, Ident, Default);
end;

CodeX 24. Sep 2009 00:06

Re: Ini-Verschlüsselung mit Class Helper
 
Wow, das ging ja schnell!

Also das override wollte er nicht:
Code:
E2137 Methode 'ReadString' nicht in Basisklasse gefunden
Nicht schlimm, wenn ich das weglasse, oder?

Aber die Result-Zuweisung war scheinbar genau richtig. Klappt wie es soll. Danke!

RWarnecke 24. Sep 2009 05:01

Re: Ini-Verschlüsselung mit Class Helper
 
Hallo zusammen,

mal vielleicht eine ganz dumme Frage, warum über eine Helper Klasse ? Ich kann das ganze doch auch so machen :
Delphi-Quellcode:
ini := TINIFile(NSFile);
try
  Passwort := Entschluesseln(ReadString('Section', 'Ident', 'Default'));

{ ... Hier passiert noch etwas mit dem Passwort ...}

finally
  ini.free;
end;
Warum sollte ich den Umständlichen Weg über eine extra Klasse gehen ? Welche Vorteile und Nachteile hat die Klasse gegenüber meiner Variante ?

CodeX 24. Sep 2009 05:11

Re: Ini-Verschlüsselung mit Class Helper
 
Wenn man den ver/entschlüsselten Wert nur ein Mal auslesen möchte, dann geht Deine Variante natürlich auch.
Brauchst Du das an hundert Stellen, musst Du alle hundert Stellen anpassen.
Mache ich das über die Helper-Klasse, brauche ich es nur ein Mal machen und mir in Zukunft keine Gedanken drüber zu machen.

mkinzler 24. Sep 2009 05:39

Re: Ini-Verschlüsselung mit Class Helper
 
Ein Class Helper ersetzt kein Veerbung. Man kann eine Klasse erweitern aber keine vorhandenen Funktionen verdecken

CodeX 24. Sep 2009 05:49

Re: Ini-Verschlüsselung mit Class Helper
 
Formel gesehen werden wohl tatsächlich keine Funktionen überschrieben. Aber praktisch gesehen schon.
Ich gebe zu, eine Vererbung oder Änderung des Originalquellcodes wären sauberer, aber auf diese Weise kann die Änderung "aufgesetzt" werden, ohne die Original-Funktionen oder den bereits gegebenen Quellcode anzurühren.

Genau das war ja meine Frage und omata hat ja die Lösung bereits gepostet. Ich habe im Anschluss ein wenig weitergebastelt und bin mit der Lösung zufrieden.

RWarnecke 24. Sep 2009 06:30

Re: Ini-Verschlüsselung mit Class Helper
 
Zitat:

Zitat von CodeX
Wenn man den ver/entschlüsselten Wert nur ein Mal auslesen möchte, dann geht Deine Variante natürlich auch.
Brauchst Du das an hundert Stellen, musst Du alle hundert Stellen anpassen.

Wieso denn das ? Wenn ich die Funktion Entschluesseln an hundert Stellen aufrufen und die Ausgabe und die Entschlüsselung ändern. Dann habe ich auch nur dort eine einzige Stelle wo ich es ändern muss. Ein weiterer Vorteil wäre noch, ich brauch jetzt nicht überlegen, wo habe ich die Helper Klasse verwendet und wo nicht.

mkinzler 24. Sep 2009 06:34

Re: Ini-Verschlüsselung mit Class Helper
 
Er meint wenn er hundert Werte hat, also 100 mal ini.ReadString() aufruft, muss er alle 100 Aufrufe entsprechend erweitern. Nimmt er einen Class Helper oder leitet eine eigene Klasse ab, welche das Entschlüsseln in ReadString() implementiert ist es einfacher.

himitsu 24. Sep 2009 07:06

Re: Ini-Verschlüsselung mit Class Helper
 
Mir war aber so, als wenn man mit den ClassHelpern nur erweitern kann, ABER nichts überschreiben,
also müßte er vermutlich seine Funktion ReadString anders nennen und überall die "neue" Funktion direkt aufrufen :gruebel:

Schließlich geht Overload NUR (egal wo), wenn sich die Funktions-Signatur (Parameter) unterscheidet.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:02 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz