Ich habe ein Programm das ich in Lazarus Programmiert haben (ein Server)

Ich nutze Indy (TCPServer) und MySQL Komponenten von Devart
keine Gui nur Konsole

So jetzt zu meinem Problem
Unter Windows XP und unter Wine läuft das Prog ohne Probleme Wochenlang unter Windows 2000 Server läuft es nur ca. 1 Min dann beendet es sich ohne irgend eine Meldung keine AV oder sowas.

Was kann das sein.

P.S. das Programm macht in der Minute nichts

zusammenfalten · markieren

Delphi-Quellcode:

  While FRun do
  Begin
    If IDatum<>Date then //Tages Wechsel
    Begin
      ShowStatus('Tages Start');
      IDatum:=Date;
      If Not FServerClass.DB.Connected then FServerClass.DB.Connect;
      For i:=0 To Plugins.Plugins.Count-1 do
      Begin
        TONLPlugin(Plugins.Plugins.Items[i]).UPDTabs;
        TONLPlugin(Plugins.Plugins.Items[i]).StartDay;
      End;
      If FServerClass.AnzClients=0 then FServerClass.DB.Disconnect;
    End;
    //If KeyPress=VK_ESCAPE then FRun:=False;
    Sleep(1000);
  End;

Nur das hier

Hi,

Du musst Exceptions abfangen. Tritt in der Console eine Exception auf, die nicht abgefangen wird, dann wird das Programm beendet.

zusammenfalten · markieren

Delphi-Quellcode:

While FRun do
begin
  try
    if IDatum<>Date then //Tages Wechsel
    begin
      ShowStatus('Tages Start');
      IDatum:=Date;

      If Not FServerClass.DB.Connected then
        FServerClass.DB.Connect;
    
      for i:=0 To Plugins.Plugins.Count-1 do
      begin
        TONLPlugin(Plugins.Plugins.Items[i]).UPDTabs;
        TONLPlugin(Plugins.Plugins.Items[i]).StartDay;
      end;

      if FServerClass.AnzClients=0 then
        FServerClass.DB.Disconnect;
    end;

  //if KeyPress=VK_ESCAPE then
  // FRun:=False;

    Sleep(1000);
  except
     writeln('Ein Fehler ist aufgetreten!');
  end;
end;

Zitat von Neutral General:

Hi,

Du musst Exceptions abfangen. Tritt in der Console eine Exception auf, die nicht abgefangen wird, dann wird das Programm beendet.

Ja aber in einem sleep eine exception ??

Hi,

Warum gehst du davon aus, dass gerade sleep ne Exception wirft? o.o

Zitat von franktron:

... unter Windows 2000 Server läuft es nur ca. 1 Min dann beendet es sich ohne irgend eine Meldung keine AV oder sowas.

Ein unerwartetes Programmende deutet sehr stark auf einen Stack-Overflow hin. Schau mal in der Ereignisanzeige nach ob was vermerkt ist. Ansonsten mach eine Remote Debugging Session - Falls es sowas unter Lazarus gibt.

Es kommt tatsächlich eine Fehlermeldung in der Eregnisanzeige

Fehlgeschlagene Anwendung kas_server.exe, Version 0.0.0.0, fehlgeschlagenes Modul kernel32.dll, Version 5.2.3790.4062, Fehleradresse 0x0000bee7.

Aber was kann ich damit jetzt anfangen ?

Ich habe jetzt auch in die schleife Try Except eingebaut bringt aber leider keine Meldung

Was kann ich jetzt noch tun

P.S. das Problem tritt nur unter Windows 2003 Auf

markieren

Delphi-Quellcode:

except
     writeln('Ein Fehler ist aufgetreten!');
  end;

Das ist nicht gerade aussagekräftig.
Wie wärs damit:

markieren

Delphi-Quellcode:

except
     on E: Exception do writeln(E.Message);
  end;

Zitat von Udo:

markieren

Delphi-Quellcode:

except
     writeln('Ein Fehler ist aufgetreten!');
  end;

Das ist nicht gerade aussagekräftig.
Wie wärs damit:

markieren

Delphi-Quellcode:

except
     on E: Exception do writeln(E.Message);
  end;

Das bringt auch nicht mehr wenn er da gar nicht hinkommt