IniFile ReadBinaryStream bekomme ich nicht in Gange

[Fritzew]

Zitat von KodeZwerg:

Habe Ratschlag angenommen und umgesetzt:
und so in der demo

Wenn schon dann so.
Ansonsten gibst Du Deinen Stream nicht frei wenn IniHelper.ReadIniStream mit false zurückkommt

Delphi-Quellcode:

  ms := TMemoryStream.Create();
      try
         try
            S := 'Stream-Error';
            if IniHelper.ReadIniStream('Testfile.cfg', 'Setup', 'StreamEntry', ms) then
               begin
                  S := IntToStr(ms.Size);
                  Memo1.Lines.Add('Stream-Size: ' + S);
                  S := '';
                  SetLength(S, ms.Size div 2);
                  ms.Read(S[1], ms.Size);
                  Memo1.Lines.Add('Stream: ' + S);

               end
            else
               Memo1.Lines.Add('Stream-Error: ' + S);
         finally
            ms.Free;
         end;
      except
         Memo1.Lines.Add('Stream-Error: ' + S);
      end;

[KodeZwerg]

Oh ja, wie wahr! Nun noch mal gefixte version, verschlüßelung funktioniert nun auch

Danke fürs drauf Aufmerksam machen!

[Luckie]

Wohl eher Base64 codiert oder? Zumindest hatte ich bei dir im Codecwas mit base64 gesehen.

[KodeZwerg]

Zitat von Luckie:

Wohl eher Base64 codiert oder?

Verschlüßelung ist XOR, Base64 sitzt oben drauf.

[Luckie]

Ah. Ok.

[mkinzler]

XOR ist aber keine echte Verschlüsselung. Aber wohl besser als nichts.

[Hobbycoder]

Warum überhaupt die Verschlüsselung?
XOR ist ja nur sinnvoll um sich vor "neugierigen" Blicken unwissender Benutzer zu schützen. Von daher schon okay. Aber dann müsste man im Grund auch eine "Verschleierung" im xxxIniDateTime, xxxIniFloat, xxxIniInteger und auch xxxIniStream anbieten, damit's rund ist.
Es könnte ja auch dort Daten abgelegt werden, die nicht intuitiv lesbar sein sollen. (z.B. Trail-Ablaufdatum, PIN-Codes, etc). Und der Stream könnte auch TStringStream sein und wäre somit leicht lesbar.

Wär ja kein großer Mehraufwand.