DEC Verschlüsselung beim Speichern einer Datei

[himitsu]

ich schau gleich mal, was bei mir falsch läuft.

aber zu den Booleans ... wenn man was da äntert, dann ist die Chance 254 zu 255, daß der Wert danach auf True steht ... es sei denn, du nutzt einen "fehler" in der Nutzung des Booleans aus.

Zitat:

vergleiche nie auf True

Delphi-Quellcode:

b := Boolean(3);

if not b then // wird nie aufgerufen
if b then     // wird aufgerufen

if b = false then // wird nie aufgerufen
if b = true then  // wird AUCH NIE aufgerufen

[himitsu]

ich hab den Fehler endlich gefunden :shock:

gibt mal dem Laden den "richtigen" EncodeMode mit an :!:
> emEncodeReading

in deinen Demos bleibt der immer aus seinem Defaultwert "emEncodeWriting"
und wenn man bei Lesen da emEncodeReading angibt, geht garnichts mehr.



[add]
PS: :tongue:

Code:

procedure TForm1.btn_Listbox_fillClick(Sender: TObject);
begin
  [color=#ff0000][b]My_StringList.Clear;[/b][/color]
  for i := 0 to StrToInt(se1.Text) [color=#ff0000][b]- 1[/b][/color] do

[juergen]

@himitsu,

Zitat:

Zitat von himitsu

ich hab den Fehler endlich gefunden :shock:

:thumb:

Zitat:

Zitat von himitsu

[add]
PS: :tongue:

Code:

procedure TForm1.btn_Listbox_fillClick(Sender: TObject);
begin
  [color=#ff0000][b]My_StringList.Clear;[/b][/color]
  for i := 0 to StrToInt(se1.Text) [color=#ff0000][b]- 1[/b][/color] do

:oops: :mrgreen: ...danke für dein Hinweis. Das sind die typisch doofen Fehler die immer wieder mal passieren.
Ich habe das Testprojekt im Thread #9 angepasst und neu hochgeladen (falls es nochmal benötigt wird)


@Tux,
schön das ich dir helfen konnte :thumb:

[himitsu]

Das Problem ist nur, daß der Fehler nicht bei mir liegt,
sondern im TRCxStreamDecorator soballd man beim Schreiben und Lesen den selben Zugriffs-Wert nimmt,
klappt es ja,

aber eigentlich hätt ich erwartet, daß man zum Lesen die Leseoption "emEncodeReading" nimmt und zu Schreiben die Schreiboption "emEncodeWriting".