TListview speichern und verschlüsseln

[Tim-94]

Hallo zusammen,
ich bin zwar schon etwas länger Mitglied hier, aber dies ist mein erster Thread.
Ich speichere ein Listview, also alle Items und Subitems, mit einem
TFilestream:

Delphi-Quellcode:

var
  Stream: TFileStream
begin
 Stream:= TFileStream.Create('.\Data.dll', fmCreate);
  try
    Stream.WriteComponent(ListView1);
  finally
    Stream.Free;
end;

Der Code funktioniert super!

Mein Problem ist jetzt aber, dass ich diese gespeicherte Datei noch verschlüsseln möchte.
Ich habe schon etliche Verschlüsselungscodes ausbrobiert, die bei einem ganz normalen Text
auch gut funktionieren, aber bei dieser Datei tritt nach dem Entschlüsseln ein Filestream Lade-Fehler auf!
Ich habe auch schon alles ausprobiert, um diese Problem zu lösen, aber es bis jetzt nicht geschafft.
Für eine Antwort oder Erklärung wäre ich sehr dankbar.

[mkinzler]

Wie hast du es versucht?

[Tim-94]

Meinst du wie ich das Verschlüsseln versucht habe?

[jaenicke]

Auch wenn das jetzt nix mit dem Problem zu tun hat, aber was mir zuerst mal auffällt ist, dass die Pfadangabe fehlt. So wie du es hast funktioniert es meistens zufälligerweise.
Genauer habe ich das hier beschrieben, inkl. Demo:
http://www.delphi-library.de/viewtopic.php?p=499701

Dann zu deiner Verschlüsselung:
Schau dir mal das DEC an. Das findest du zum Beispiel hier:
http://www.michael-puff.de/Developer...agen_Reddmann/
Und ein Beispiel für die Verwendung hier:
http://www.delphipraxis.net/internal...t.php?p=527274

[Tim-94]

Ja den Pfad hab ich jetzt schon richtig eingestellt danke!
Ich glaube, dass das Problem mit dem Verschlüsseln daran liegt, dass der Filestream viele Sonderzeichen drin hat.
Im Anhang hab ich mal die die Datei.

[RWarnecke]

Hi Tim, versuche es mal mit diesem Code-Library-Eintrag. Habe ich schon erfolgreich angewendet um den Inhalt einer ListView verschlüsselt zu speichern.

[Tim-94]

Ja danke Probier ich gleich mal aus!

[RWarnecke]

Noch ein kleiner Tipp, ich habe das ganze über ein CSV-File geregelt, die ListView zu speichern und zu befüllen. Sollte aber auch direkt mit der Komponente TListView gehen.

[Tim-94]

Jetzt nochmal an jaenicke, ich habe das mal mit DEC getestet, das Testprogramm läuft super, aber mir Fehlen von ein paar Unit, um es nu nutzen.
Und zwar diese hier:


DECCipher, DECUtil, DECRandom, DECHash

Wo kann ich die her kriegen?

[jaenicke]

Die liegen bei mir unter Part_I im Archiv von dem Link oben mit drin .