TDataFile Probleme mit Delphi 2010

[gaisser]

Hallo Gemeinde,

ich habe mir das RAD Studio 2010 geleistet(komme von Delphi 7 Ent)....

So, nun muss ich natürlich auch meine Projekte mitziehen.

Das funktionierte auch soweit, bis auf TDataFile. Diese benutze ich um sensible Daten zu speichern.
D2010 meckert mir auch nix an, aber er kann die Strings nicht auflösen. Er nimmt immer nur die ersten paar Buchstaben, manchmal verdreht er auch die Strings.

Vielleicht kann mit hier jemand ein Tipp dazu geben, was ich ändern muss.......

[s.h.a.r.k]

Evtl. ein Unicode-Problem? Wobei das nur ein Tipp ist, denn das ist wohl eine der größeren Änderungen für dich ;)

[Uwe Raabe]

Sieht so aus, als ob die Komponente mit den UnicodeStrings nicht klar kommt. Wenn der Hersteller kein Update anbietet, bist du wohl auf dich allein gestellt.

[mkinzler]

Dann bleibt halt nur die übrig AnsiString zu verwenden

[himitsu]

TDataFile (1.22) wurde anscheinend nur bis Delphi 7 entwickelt
und den Hersteller gibt's och nimmer (dessen Webseite existiert nimmer). :gruebel:

Wenn es nicht unbedingt sein muß, kommt du mit einem Umstieg auf irgendwas Anderes/Aktuelleres wohl besser, wo du dann auch dein neues Unicode ausnutzen könntest.

[mkinzler]

Liegt der Source vor?

[himitsu]

jupp (sonst hätte er es ja nichtmal ins D2010 reinbekommen :zwinker: )

Falls es unbedingt sein muß, dann könnte man da bestimmt einiges machen,
aber ich wollte erst abwarten, ob der TE nicht doch umsteigt und man sich dann die Arbeit sparen kann.


PS: die nächste Generation vom himXML wir ein schnelles und vollständiges Binär-Format einer XML-ähnlichen Datei bieten, welche auch verschlüsselt werden kann.
(aktuell kann man ja nur einzelne Values/Texte verschlüsseln)

[mkinzler]

Zitat:

aber ich wollte erst abwarten, ob der TE nicht doch umsteigt und man sich dann die Arbeit sparen kann.

Dann ist es u.U. für jemand anderes interssant/brauchbar.

[himitsu]

Zitat:

Zitat von mkinzler (Beitrag 1029453)

Dann ist es u.U. für jemand anderes interssant/brauchbar.

Es gibt seit 1,5 Jahren Unicode, das Projekt wurde seit etwa 6 Jahren nicht mehr weiterentwickelt und es hatte bis jetzt noch keine weitere Anfrage gegeben.
Also falls der TE was Anderes nimmt und sich in Zukunft doch nochmal wer meldet ... eventuell steigt auch er um und wenn nicht, dann kann man es auch später noch machen. :angel:

Außerdem wäre es nicht schlecht, wenn man wüßte was nötig ist und wie man dann was anpassen müßte.
- soll es mit Unicode funktionieren
- reicht Ansi
- muß es zu alten Dateien kompatibel sein
- usw.



Wenn es um Sicherheit geht, dann wäre es doch z.B. nicht schlecht, wenn man seine Daten in einen Stream läd und dann das DEC drauf los läßt. :zwinker:

PS: TDataFile nutzt nur eine "billige" XOR-Verschlüsselung, welche direkt mit dem sich einfach nur wiederholenden KEY/Passwort verknüpft ist ... also nicht grade sicher.

Auszug:

Delphi-Quellcode:

procedure TDataFile.DecryptBuf(pBuf: Pointer; BufLen: Integer);
var
  I: Integer;
  P: pByte;
begin
  P := pBuf;
  if FCodeKey <> '' then
    for I := 0 to BufLen - 1 do
    begin
      P^ := Byte(FCodeKey[I mod Length(FCodeKey)]) xor P^;
      inc(P);
    end;
end;

procedure TDataFile.EncryptBuf(pBuf: Pointer; BufLen: Integer);
begin
  DecryptBuf(pBuf, BufLen);
end;