Decrypten von Daten in TStringList fehlerhaft

[Uwe Raabe]

Zitat von Sir Rufo:

Zitat von jfheins:

str := Encrypt(...);

Irgendwie sieht das wieder falsch aus, denn man könnte bei der Variable str vermuten, dass diese als string deklariert ist, und das ist nach dem Encrypten eben nicht mehr zutreffend.

Ein Delphi-String ist durchaus in der Lage, nicht-druckbare Zeichen, wie CR, LF oder #0 korrekt zu speichern. Macht man daraus aber durch Zuweisung oder Cast einen PChar, dann wird beim ersten #0 abgeschnitten.

[p80286]

Da hast Du natürlich recht, aber
seitdem das Windows-API an sehr vielen Stellen, auch unbeabsichtig mitspielt, ist diese Benutzung mit Vorsicht zu genießen.
es gibt hier im Forum viele Posts, die darauf schließen lassen, daß ein String ein irgendwie magischer Datenspeicher ist, der alle in ihm enthaltene Daten auf magische Weise sinnvoll darstellen kann;
Und irgendwie ist dies nicht auszurotten.
Selbst für gestandene Delphianer ist dies ein Thema, was nicht ohne Tücken ist. ((Unicode)-Char)
(und da muß dann ein x0000 als Begrenzer herhalten.)

Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Da hast Du natürlich recht, aber
seitdem das Windows-API an sehr vielen Stellen, auch unbeabsichtig mitspielt, ist diese Benutzung mit Vorsicht zu genießen.

Ich wollte damit auch nicht die Verwendung rechtfertigen, sondern nur aufzeigen, warum es in manchen Situationen scheinbar funktioniert. Ein String als Datentyp für einen Binärwert ist natürlich Unsinn, aber gegen einen harten Cast auf PChar, damit der API-Aufruf kompiliert, ist auch der korrekte Typ machtlos.

[Kytrix]

habe das hier gefunden http://www.swissdelphicenter.ch/de/showcode.php?id=1629

nutze es und es funktioniert auch zumindest soweit man die ergbnise optisch auf dem bildschirm vergleicht.
mit dem auge betrachtet ist das original der zuerst verschlüsselt und dann entschlüsselten kopie identisch.

jedoch nutze ich eine xml datei für eine TClientDataset... und das gibt mir ein "missmatch in datapacket" aus wenn ich die entschlüsselte verschlüsselte kopie der original xml einlesen will mit

Dataset.LoadFromFile(...)

[Kytrix]

ok sry habs selbst gefunden musste das data set mit

dataset.SaveToFile(ExtractFilePath(ParamStr(0))+'D B2.xml',dfbinary);

als Binary speichern

danke trotzdem =) !