Einzelnen Beitrag anzeigen

Benutzerbild von 5etH
5etH

Registriert seit: 4. Mär 2008
Ort: Giessen
217 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Verschlüsselung einer CSV Datenbank Klappt nicht ganz

  Alt 8. Mai 2009, 12:25
okay hab es eingebaut und wollte es auch gleich testen leider bekomme ich eine Zugriffsverletzung an folgender Stelle

wollte es bevor ich es Laden kann ja erst einmal codieren:
Delphi-Quellcode:
procedure encodeFile(fileName:TFileName;mStream:TMemoryStream);
var
  x: TRCxContext;
begin
  RCxInit(x,'Passwort');
  RCxenCode(x,mStream,mstream,mStream.size); // Zugriffsverletzung
  RcxDone(x);
  mStream.Position:=0;
  mStream.saveToFile(fileName);
end;



procedure TForm1.Button6Click(Sender: TObject);
var
test : TMemoryStream;
begin
  test := TMemoryStream.create;
  test.loadfromfile('C:\Dokumente und Einstellungen\masteman\Desktop\TESTPROGRAMM\data.sux');
  encodeFile('C:\Dokumente und Einstellungen\masteman\Desktop\TESTPROGRAMM\data.sux',test);
end;
habe ich da was falsch gemacht oder kann RCx das einfach nicht ?

gruß
Manu
Manuel
Lieber heimlich schlau als unheimlich dumm
  Mit Zitat antworten Zitat