Rätselhafte Exception unter Windows 8

[idefix2]

Der Kunde hat den Computer mit Windows 8.1 komplett neu aufgesetzt (bisher Windows 8.0), und das Programm startet jetzt völlig normal und ohne Fehlermeldung.
Leider wird sich jetzt wahrscheinlich nicht mehr herausfinden lassen, was wirklich schuld war.

[Der schöne Günther]

Zwei mal habe ich mir auch so etwas angetan, seitdem verlässt kein Programm mehr das aus das den Stacktrace seiner Exceptions nicht loggen kann. Tu dir den Gefallen und setze dich auch mal damit auseinander, dann braucht man in Zukunft nie mehr rätseln.

Warum das in der Delphi-RTL bis heute nicht von Haus aus schon drinsteckt wird sich mir nie erschließen.

[idefix2]

Zitat von Der schöne Günther:

Zwei mal habe ich mir auch so etwas angetan, seitdem verlässt kein Programm mehr das aus das den Stacktrace seiner Exceptions nicht loggen kann. Tu dir den Gefallen und setze dich auch mal damit auseinander, dann braucht man in Zukunft nie mehr rätseln.

Hast du dafür ein fertiges Tool eingesetzt (wenn ja, welches?) , oder ist das Eigenbau?
Wobei ich in dem konkreten Fall sogar skeptisch bin, ob das etwas gebracht hätte, weil hier nicht einmal das normale Exception-Handling aktiviert worden ist und das Programm nach der Anzeige der Fehlermeldung sogar die Zuweisung, die die Fehlermeldung ausgelöst hat, fertig durchgeführt hat und dann ganz normal beim nächsten Befehl weitergemacht hat.

Zitat von p80286:

Zitat von idefix2:

Der Kunde hat den Computer mit Windows 8.1 komplett neu aufgesetzt (bisher Windows 8.0), und das Programm startet jetzt völlig normal und ohne Fehlermeldung.
Leider wird sich jetzt wahrscheinlich nicht mehr herausfinden lassen, was wirklich schuld war.

Meiner Meinung nach, greift da irgendetwas mit Schwung ins Klo. In ordentlichen Programmen passiert so etwas nicht.

Im Prinzip richtig, in dem Fall neige ich aber dazu, die Windows Installation des Kunden für das "nicht ordentliche" Programm zu halten.
Wenn ganz am Anfang eines Programms beim blossen Ändern der Formulargrösse des Hauptformulars im Formcreate eine derartige Meldung auftritt - da hatte das Programm noch gar keine Gelegenheit, irgend einen Mist zu bauen - die Formulargrösse aber trotzdem richtig angepasst wird, dann dürfte der Knoten irgendwo weiter unten im Betriebssystem sitzen.

[p80286]

Zitat von idefix2:

Der Kunde hat den Computer mit Windows 8.1 komplett neu aufgesetzt (bisher Windows 8.0), und das Programm startet jetzt völlig normal und ohne Fehlermeldung.
Leider wird sich jetzt wahrscheinlich nicht mehr herausfinden lassen, was wirklich schuld war.

Meiner Meinung nach, greift da irgendetwas mit Schwung ins Klo. In ordentlichen Programmen passiert so etwas nicht. (Hatte selbst vor einiger Zeit den Fall, einem Pointer war keine Adresse (mehr) zugewiesen.) Wenn eine solche Exception einmal aufgetreten ist, dann ist da irgendetwas faul! Und es ist Zufall, wenn sie nicht mehr auftaucht, wenn am Source nichts geändert wurde.

Gruß
K-H

[SMO]

Zur Intention des Codes: du möchtest bei Programmstart die Position und Größe des Fensters wiederherstellen, gespeichert beim letzten Programmende?
Dafür würde ich unter Windows eher SetWindowPlacement und GetWindowPlacement nehmen.
Ich weiß nicht, ob deine TFitnessMainForm maximiert werden kann oder nicht, aber wenn ja, dann ist es möglich, dass das Fenster bei Programmende maximiert ist und du so die maximierte Position und Größe speicherst und dann beim nächsten Programmstart diese "falschen" Werte dem nicht-maximierten Fenster zuweist. Mit Get/SetWindowPlacement kommst du direkt an die Koordinaten des Normalzustands (rcNormalPosition).

Ungefähr so:

Delphi-Quellcode:

procedure PositionSpeichern(F: TForm; Ini: TCustomIniFile);
var
  WP: TWindowPlacement;
begin
  WP.length := SizeOf(WP);
  if GetWindowPlacement(F.Handle, WP) then
  begin
    Ini.WriteInteger('Position', 'Links', WP.rcNormalPosition.Left);
    Ini.WriteInteger('Position', 'Rechts', WP.rcNormalPosition.Right);
    Ini.WriteInteger('Position', 'Oben', WP.rcNormalPosition.Top);
    Ini.WriteInteger('Position', 'Unten', WP.rcNormalPosition.Bottom);
    Ini.WriteBool('Position', 'Maximiert', F.WindowState = wsMaximized); // oder WP.showCmd = SW_SHOWMAXIMIZED
  end
  // else Fehlerbehandlung
end;

procedure PositionLaden(F: TForm; Ini: TCustomIniFile);
var
  WP: TWindowPlacement;
begin
  ZeroMemory(@WP, SizeOf(WP));
  WP.length := SizeOf(WP);
  WP.rcNormalPosition.Left := Ini.ReadInteger('Position', 'Links', F.Left);
  WP.rcNormalPosition.Right := Ini.ReadInteger('Position', 'Rechts', F.Left + F.Width);
  WP.rcNormalPosition.Top := Ini.ReadInteger('Position', 'Oben', F.Top);
  WP.rcNormalPosition.Bottom := Ini.ReadInteger('Position', 'Unten', F.Top + F.Height);
  if not Ini.ReadBool('Position', 'Maximiert', F.WindowState = wsMaximized) then
    WP.showCmd := SW_SHOWMAXIMIZED
  else
    WP.showCmd := SW_SHOWNORMAL;
  SetWindowPlacement(F.Handle, WP);
end;

[idefix2]

Danke für den Hinweis, GetWindowPlacement und SetWindowPlacement kannte ich noch nicht.
Wenn der Rechner noch in einem Zustand wäre, wo das Problem auftritt, dann würde ich das ausprobieren. Bis jetzt hatte ich allerdings noch nie beim direkten Setzen der Form-Eigenschaften height und width Probleme, und dass sich Forms ihre Position und Grösse in einer ini-Datei oder, wenn es im Programm eine Benutzerverwaltung gibt, Benutzerabhängig in der Datenbank, merken, je nach Bedarf mit oder ohne Berücksichtigung der Eigenschaft maximized, mache ich eigentlich standardmässig bei allen meinen Programmen.

edit:
Welche Unit muss man einbinden, damit der Compiler TWindowplacement kennt? In der Hilfe zu Delphi 2009 finde ich zwar die Prozeduren GetWindowPlacement und SetWindowPlacement, aber für die Struktur Windowplacement sind nur die C-Headerfiles angegeben und TWindowplacement kennt die Hilfe überhaupt nicht.

[SMO]

Zitat von idefix2:

Welche Unit muss man einbinden, damit der Compiler TWindowplacement kennt?

Die Unit (Winapi.)Windows. Die typischen Synonyme für TWindowPlacement sind tagWINDOWPLACEMENT und WINDOWPLACEMENT. Falls keines davon geht, wurde der Record wohl noch nicht in Delphi 2009 definiert.

Delphi-Quellcode:

  TWindowPlacement = record
    length: UINT;
    flags: UINT;
    showCmd: UINT;
    ptMinPosition: TPoint;
    ptMaxPosition: TPoint;
    rcNormalPosition: TRect;
  end;

[himitsu]

Aber wenn du die Funktionen schon gefunden hast, wer hat dich dann daran gehinder sie dir anzusehen und mal zu gucken wo die Typen für deren Parameter liegen?

[Sir Rufo]

Zitat von himitsu:

Aber wenn du die Funktionen schon gefunden hast, wer hat dich dann daran gehinder sie dir anzusehen und mal zu gucken wo die Typen für deren Parameter liegen?

Es ist halt einfacher und schneller eine Frage im Forum zu posten als in der IDE den Mauszeiger über den Typen zu halten und warten bis der ToolTip erscheint (den muss man ja auch noch lesen) ...