Programm stürzt nach mehren Stunden Laufzeit ab.

[gee21]

Zitat von UntoterGeist:

Ein ähnliches Problem hatte ich auch mal. Allerdings hat er dann bei dem Versuch irgendwas in der GUI zu machen eine Exception geworfen. Im ersten Beitrag steht ja das die relevante Funktion die als letztes aufgerufen wird in einem try except Block steht. Wenn ich das richtig verstanden habe. Das würde glaube jede Exceptionmeldung natürlich unterdrücken. Die Exe im Debug mode zu kompilieren macht ja auch noch ein Unterschied.

Ich hatte auch alles nach Speicherlecks durchsucht. Aber die Ursache war letztendlich der Speicherort von dem aus das Programm gestartet wurde. Der Fehler ist nur aufgetreten, wenn das Programm aus dem Netzwerk gestartet wurde. Das selbe könnte für Wechseldatenträger gelten.

Ja also ich habe den Speicherort Lokal (c:\) weil ich früher auch schon Probleme bekommen habe als ich es aus dem NetzLaufwerk startete. Und ich habe ebenfalls die .exe Manuell durch doppelklick gestartet da ich auch schon diverse Probleme / unterschiede / verzögerungen im Debug Modus von Delphi hatte.

Ich habe nun einiges abgeändert und zudem die ganze FTP Geschichte in einen eigenen Thread gesetzt. Dieser Thread startet sich am ende von selbst neu und falls er das nicht mehr tut (warum auch immer) so startet ein Timer den Thread manuell neu.

Ich VERMUTEes hing vorher irgendwie damit zusammen das ich die Dateien unbenannt habe und dann schnellstmöglich löschen wollte. Den diese beiden Sachen habe ich nun weggelassen trotz das sie eigentlich im try/except standen... Dateien werden nun nicht mehr unbenannt und werden auch erst bei Programmende gelöscht. Seitdem läuft das Programm nun

Obwohl meine Lösung / Programmierung bestimmt sehr amateurhaft ist, poste ich hier noch der funktionierende Code um dieses Thema hier abschliessen zu können.

VIELEN DANK AN ALLE für eure Hilfe.

http://gee.myasustor.com:8642/mainFinal.pas

[venice2]

Na ja die ganzen Form1 sind immer noch drin.. Warum?
Du befindest dich doch schon innerhalb der Classe Tform1
Lösche den Kram doch einfach.

das
ts.Add(Form1.Edit_Host.Text);
zu
ts.Add(Edit_Host.Text);
usw..
Überprüfe den gesamten Quelltext nochmal

Das tform1 zu TForm1 um eine einheitliche Schreibweise zu erhalten (aber nicht Lebenswichtig nur als Tip nebenbei)
Zumindest macht es den Quelltext lesbarer.

Delphi-Quellcode:

procedure tform1.savesettings;
var
ts: tstringlist;
begin
  ts := tstringlist.Create;
  try
        try
            ts.Add(Form1.Edit_Host.Text);
            ts.Add(Form1.Edit_User.Text);
            ts.Add(Form1.Edit_Password.Text);
            ts.Add(Form1.Edit_Port.Text);
            ts.Add(Form1.Edit_LS.Text);
            ts.Add(Form1.Edit_RE.Text);
            ts.Add(Form1.Edit_ET1.Text);
            ts.Add(Form1.Edit_ET2.Text);
            ts.Add(Form1.Edit_verbindungsDAUER.Text);
            ts.Add(form1.Edit_pause_pro_durchgang.Text);
            ts.Add(Form1.Edit_pause_wiederverbindung.Text);
            ts.Add(Form1.Edit_druck_pauseDEA.Text);
            ts.Add(Form1.Edit_rechnungen_max.Text);
            ts.Add(Form1.Edit_papierfach_max.Text);
            ts.Add('tray:off');
            ts.Add(IfThen(CheckBox_autostart.Checked, 'autostart:on','autostart:off'));
            ts.Add(IfThen(CheckBox_DebugLog.Checked, 'debug:on','debug:off'));
            ts.Add(IfThen(CheckBox_verstecke_cmd.Checked, 'hidecmd:on','hidecmd:off'));
            ts.Add(inttostr(papierfach));
            ts.Add(inttostr(rechnungsfach));
            ts.Add('');
            ts.SaveToFile(programmpfad + 'settings.txt');
        except
            on e: exception do form1.addline('Fehler beim speichern der Einstellungen: ' +e.Message);
        end;
    finally
        ts.free;
    end;

end;