Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Entschlüsseln:
// ignore the file header
SrcStream.Seek(sizeof(TFileHeader), soFromBeginning);
// assign the Cipherclass
CipherClass := Cipher;
// prepare for decoding
with CipherClass.Create(PW, nil) do
begin
Mode := cmCFB;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
So jetzt haben wir den Salat, jetzt bekomme ich unterschiedliche Hash-Werte nach dem Entschlüsseln und die entschlüsselte Datei ist dann natürlich nicht zu gebrauchen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Jupp, ich bekomme einen. Deklarationen wie gehabt (siehe oben). UInd ausgesehen hat sie wie von Kamil gepostet. Dateigröße: 49.955.924 Bytes. GetMem habe ich auch aufgerufen.
Keinen Plan. Habe es aber schon wieder rückgängig gemacht.
Wenn ich die if-Konstruktion nehme und statt 1024 2048 oder 4096 einsetze, bekomme ich eine AccessViolation zum Schluß.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Und genau das sind meine zwei andern Probleme: Es müßte gehen und ich verstehe nicht, warum es nicht geht. :roll:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Hm, Jetzt hab eich es so, aber die zweite Lösung wäre wohl performanter, da die if-Abfrage wegfällt. Und da waren sie wieder meine drei Problem... Stream-Lesefehler.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Perfekt, der saß genau im Bulleseye. Besten Dank.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
4. Okt 2003
Der Schuß ins Blaue ging daneben. Len ist immer 0. Er liest und schreibt also gar nichts.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
3. Okt 2003
Ha, da war ich doch gar nicht soweit weg. Blos die Abbruchbedingung stimmt noch nicht ganz. Ich schreibe in den ZielStream erst einen Header und dann den QuellStream. Nur mit
while SrcStream.Position < SrcStream.Size do
Bekomme ich zum Schluß wieder einen Stream-Lesefehler.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
3. Okt 2003
Ich versuche eien Datei stückchenweise mit ReadBuffer einzulesen, den Buffer zu verarbeiten und dann das Ganze wieder zu schreiben.
var
SrcBuffer, DestBuffer: cardinal;
begin
while SrcStream.Position < SrcStream.Size do
begin
SrcStream.ReadBuffer(SrcBuffer, 1024);
EncodeBuffer(SrcBuffer, DestBuffer, 1024);
DestStream.WriteBuffer(DestBuffer, 1024);