Hallo zusammen,
erstmal Danke für die Tipps.
Ich habe so einigermaßen umgesetzt, was ich wollte.
Delphi-Quellcode:
Adata := 'teststring123';
....
ADest.WriteBuffer(Salt[1], Length(Salt));
EncodeStream(ASource, ADest, -1, AProgress);
...
ADest.WriteBuffer(Adata[1], Length(Adata));
....
Hier schaffe ich es, die Daten ans Ende der Datei anzuhängen.
Ist im Klartext (Erstmal egal).
Aber wie schaffe ich es, diese Daten beim decodieren wieder auszulesen.
Bin bei allen Versuchen gescheitert.
Delphi-Quellcode:
... habe hier versucht am Ende der Datei + lenge adata, die Daten auszulesen.
ASource.ReadBuffer(adata[1], Length(Salt) + length(adata));
form1.Label1.Caption := adata;
Aber das geht nicht (werdet ihr schon gesehen haben
)
Hat jemand noch einen Wertvollen Tipp für mich
Würde mich freuen.
Vielen Dank nochmal
Jorgos