Hai Luckie,
da ich mich auch, mal wieder, mit Hagens
DEC beschäftige habe ich mir mal angesehen wie Du die Verschlüsselung in deinem Programm machst.
Dank deiner schönen Kommentare über jeder Funktion ist dein Code ja leicht zu verstehen
Dabei ist aber eine Frage aufgetaucht. In deiner
Unit1 deklarierst Du diese Konstante:
BlockSize: Integer = 1024;
In deinen beiden Threads hast Du auch jeweils eine Public-Variable
FBlockSize: Integer der Du beim erzeugen des Threads auch immer deine Konstante übergibst.
Delphi-Quellcode:
procedure RunEncodeThread(Filename, FFolder, PW: string;
FileHeader: TFileHeader; hWnd: THandle);
begin
EThread := TEncodeThread.Create(True);
.
.
EThread.FBlockSize := BlockSize;
EThread.Resume;
end;
Allerdings finde ich bei deinen Threads keine stelle wo Du
FBlockSize verwendest. Du benutzt immer die Konstante aus der Unit1
Okay, das macht mich ja noch nicht nervös
Aber: In deinen Threads verwendest Du einen Buffer zum Ent-/Verschlüsseln.
Für diesen reservierst Du so Speicher:
Delphi-Quellcode:
Unit: EncodeThread
Line: 106
GetMem(Buffer, 1024);
Müsste hier nicht anstelle der 1024 deine BlockSize stehen oder ist es einfach zu früh am Sonntag und ich habe einen Denkfehler?
Stephan B.
"Lasst den Gänsen ihre Füßchen"