Verschlüsselung einer CSV Datenbank Klappt nicht ganz

[Klaus01]

Hallo,

Du kannst nicht den gleichen Stream als Eingangs und Ausgangsstream nehmen.


Versuche es einmal damit.

Delphi-Quellcode:

procedure encodeFile(fileName:TFileName;mStream:TMemoryStream); 
var 
  x: TRCxContext; 
  outStream : TMemoryStream;
begin 
  outStream : TMemoryStream.create.
  outStream.size := mStream.size;
  RCxInit(x,'Passwort'); 
  mStream.Posistion:=0;
  outStream.Posistion:=0;
  RCxenCode(x,mStream,outStream,mStream.size);
  RcxDone(x); 
  outStream.Position:=0; 
  outStream.saveToFile(fileName); 
  outStream.free;
end;

Grüße
Klaus