Ini-Verschlüsselung mit Class Helper

[RWarnecke]

Zitat von mkinzler:

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.

Ok, habe ich soweit verstanden. Aber aus meinem Verständnis raus, müsste ich doch dann von der Klasse TIniFile ableiten oder nicht ? Das wäre doch eigentlich der saubere Weg oder nicht ?

[mkinzler]

Wenn es mit dem Class Helper funktionieren würde, wäre das der einfachste Weg, da dessen Unit nur eingebunden werden muss und die neue Funktionaltität dann in der TIniFile zur Verfügung steht

[Tyrael Y.]

Mal hier zum zeigen wozu ein Class helper gut ist.
Ist kopiert deshalb als Zitat.

Zitat:

Here's an example (no implementations, only class definition / method interface):

Delphi-Quellcode:

TTest = class
   procedure SomeProc;
end;
...

TTestHelper = class helper for TTest
   function SomeFunc : string;
end;

With the above class definitions, we can use the next code:

Delphi-Quellcode:

var
   t:TTest;
begin
  t:=TTest.Create;
  t.SomeFunc ;
...

even though SomeFunc was *not* defined in class TTest!

[Hawkeye219]

Hallo CodeX,

vielleicht hast du mit einer shadow class mehr Glück:

Delphi-Quellcode:

type
  TIniFile = class (IniFiles.TIniFile)
  public
    function ReadString (const aSection, aKey, aDefault: string): string;
  end;
  
function TIniFile.ReadString (const aSection, aKey, aDefault: string): string;
begin
  Result := '<' + inherited ReadString(aSection, aKey, aDefault) + '>';
end;

Am besten lagerst du Klassendefinition in eine eigene Unit aus. Du musst bei der Verwendung nur darauf achten, dass die neue Unit in der USES-Anweisung nach IniFiles auftaucht - falls du IniFiles überhaupt noch dort aufführen musst.

Gruß Hawkeye

[himitsu]

Wie gesagt, Class Helper können die Klassen nicht direkt ändern, sondern nur etwas NEUES dazuschmuggeln,

aber hier gibt es einen Trick

Die Unit muß als letzes (nach "IniFiles) dort eingebunden werden, wo die Ini-Klassen erstellt werden.
Dann wird TIniFile.Create ersetzt und es werden überall die neuen Funktionen verwendet,
da lokal (nachfolgend) immer die letzte Deklaration sichtbar ist und diese Funktionen praktischer Weise virtual sind.

Delphi-Quellcode:

unit EncyptedIniFiles;

interface
  uses IniFiles;

  type TIniFile = class(IniFiles.TIniFile)
    function ReadString(const Section, Ident, Default: string): string; override;
    procedure WriteString(const Section, Ident, Value: String); override;
  end;

implementation
  function TIniFile.ReadString(const Section, Ident, Default: string): string;
  begin
    Result := Decypted(inherited ReadString(Section, Ident, Default));
  end;

  procedure TIniFile.WriteString(const Section, Ident, Value: String);
  begin
    inherited WriteString(Section, Ident, Encypted(Value));
  end;

end.

Besser wäre es aber, wenn man DIESE TIniFile z.B. in TEncryptedIniFile umbenennt und dann überall TEncryptedIniFile.Create verwendet ... es geht aber auch wie oben, nur so wäre es "übersichtlicher".


Info: Die "angedeutete" Verschlüsselung muß aber noch "eingebaut" werden.

[edit]
och menno

[CodeX]

Ähm, was genau ist jetzt der Vorteil einer Shadow Class zu einem Class Helper?

Wie bereits geschrieben, wird auch bei einem Class Helper eine eigene gleichnamige Funktion bevorzugt behandelt, falls vorhanden. Das ist praktisch ein Überschreiben. Ich hab das ja wie gesagt schon eingebaut und es funktioniert.
Die Info, dass das so geht, hatte ich ursprünglich von hier: http://www.delphi-treff.de/sprachen/...helferklassen/

[mkinzler]

Zitat:

Ähm, was genau ist jetzt der Vorteil einer Shadow Class zu einem Class Helper?

Ein Class Helper erweitert eine Klasse. Im anderen Fall sind es 2 Klassen, wobei nicht die Methode, sondern die Klasse verdeckt wird. Hat den Vorteil echte OOP zu sein.

[Uwe Raabe]

Zitat von CodeX:

Wie bereits geschrieben, wird auch bei einem Class Helper eine eigene gleichnamige Funktion bevorzugt behandelt, falls vorhanden. Das ist praktisch ein Überschreiben.

Bei deinem Class-Helper wird jeder Aufruf von ReadString auf die Helper-Methode umgeleitet. Die Aufrufe von ReadString innerhalb der Implementation von TIniFile (z.B. bei ReadInteger) landen aber weiterhin bei der Original-Routine. Bei der Shadow-Class wird auch hier die überschriebene Methode aufgerufen.

[himitsu]

Mit Class-Helpern kann man eine Klasse nachträglich um neue Funktionen erweitern, ohne die Implementation der Klasse zu verändern.

Dießes bedeutet aber, daß man keine Funktionen/Prozeduren überschreiben und auch keine neuen Klassenvariablen einbauen kann, denn dieses würde die Klasse ändern, was ja nicht geht.

Da du aber eine Funktion (hier ReadString) ersetzen willst, dann geht das also nicht.
Du könntest höchstens die Funktion überladen, also eine gleichnamige neue Funktion einbinden, welche aber, wie beim Überladen üblich, eine andere Signatur haben muß.

[mkinzler]

@Frank: Es scheint ja komischerweise zu funktionieren, obwohl es in der Theorie nicht funktionieren dürfte