Frage zum Code von Luckies FileCrypter

[Matze]

Danke, dass du dir das angesehen hast. Ich forsche mal weiter, wo der Fehler liegen könnte, vielleicht liegt es wirklich daran, dass ich so viele Threads laufen habe, aber damit sollte Windows XP eigentlich klar kommen.

[Motzi]

Also die 630 Threads sollten nicht das Problem sein..! Aber falls du wissen willst weshalb das bei dir so viele sind kannst du der Sache mit meinem X-Spy ganz gut auf den Grund gehen..!

Ich hab mir deinen Code mal ein bisschen angeschaut und mir ist dabei aufgefallen, dass du in deinem Decode-Thread direkt auf deine Form zugreifst:
Form1.LblStatus.Caption := 'Status: Prüfsumme erzeugen...';

[Matze]

Zitat von Motzi:

Ich hab mir deinen Code mal ein bisschen angeschaut und mir ist dabei aufgefallen, dass du in deinem Decode-Thread direkt auf deine Form zugreifst ...

Äh, und? Macht Luckie in seinem Programm genauso, das sollte nicht das Problem sein. Mir geht es auch nicht darum, das jetzt wunderbar sauber zu programmieren, mich würde nur interessieren, wieso das nicht geht.

Ich habe festgestellt, dass, wenn ich mehrere Dateien gleichzeitig entschlüssele, einige hinterher 0 Byte Dateien sind, so rund die Hälfte. Auch werden diese nicht korrekt verschlüsselt. Anstatt 3.5 MB, haben sie nach dem Verschlüsseln 500 kB und nach darauffolgendem Entschlüsseln 0 Byte.

Kannst du, Luckie, oder auch jemand anderes, mir sagen, woran das liegen könnte?

[Luckie]

Zitat von Matze:

Zitat von Motzi:

Ich hab mir deinen Code mal ein bisschen angeschaut und mir ist dabei aufgefallen, dass du in deinem Decode-Thread direkt auf deine Form zugreifst ...

Äh, und? Macht Luckie in seinem Programm genauso,

Man jetzt hast du mir aber einen Schrecken eingejagt. Ich dachte schon ich da wirklich so einen Mist verzapft. Ich tue es natürlich nicht! Die Klasse StreamProgressAdapert schick eine eigene Nachricht über den Fortschritt an das Hauptfenster. Ich greife nicht aus der Thread-Klasse auf die Form zu.

Delphi-Quellcode:

procedure TStreamProgressAdapter.DoProgress(Writing: Boolean);
begin
  FPercent := Round(100 / FMax * FCurrentPos);
  SendMessage(FHandle, SPM_PROGRESS, 0, FPercent);
  if FPercent = 100 then
    SendMessage(FHandle, SPM_DONE, 0, 0)
end;

[Matze]

Ich spreche von der Unit DecodeThread, da hast du folgendes stehen:

Delphi-Quellcode:

procedure TDecodeThread.Execute;
var
  HashDecodedFile: string;
begin
  if not DecodeFile(FFilename, FFolder, FPW, FCipherClass, FHandle) then
    Messagebox(Handle, 'Fehler beim Entschlüsseln der Datei.',
      'Datei entschlüsseln', MB_ICONSTOP);
  Form1.Statusbar1.Panels[0].Text := StatusArray[2]; //<==
  Form1.Statusbar1.Refresh;                          //<==

...

Aber das ist eigentlich ja auch nebensächlich.

[Luckie]

Mist, ich wußte doch, dass ich was vergessen hatte. Das sollte man logischerweise via Synchronize machen.

[Matze]

Ich habe heute noch daran rumgespielt, komme aber auf keinen grünen Zweig, irgendwie ist das seltsam.

Btw: Mein Vater hat sich Win XP (inkl SP2) gekauft und direkt nach der Installation laufen über 500 Threads

[Matze]

Ich pushe mal, vielleicht weiß einer, weshalb das Probelm auftritt. Ich hatte nämlich noch nicht vor, aufzugeben.