MessageBox ersetzen

[Codewalker]

Hallo zusammen.

Ich programmiere mir ein kleines Tool, welches einige Daten auf meinem Server sammelt (Speicherauslastung,An- und Abmeldeereignisse). Das Problem ist, dass bei einem Fehler eine MessageBox aufgeht und das Programm lahmlegt, weil niemand an dem Rechner ist und auf OK drücken könnte. Es gibt ja eine undokumentierte Funktion MessageBoxTimeOut, welche sich nach x Sekunden selbst schließt. Das geht auch ganz gut, nur rufen die Delphi-Bibliotheken selbst ja MessageBox und nicht MEssageBoxTimeOut auf. Kann man irgendwie alle Aufrufe von MessageBox nach MessageBoxTimeOut "umbiegen" :gruebel:

[r2c2]

Bin mir nicht sicher, aber irgendwie könnte das gehen. ggf. mit Hooks. Da hab ich aber (noch) keine Ahnung von.

Ne andere (einfachere) Möglichkeit is es das MessageBox-Fenster einfach nach x-Sekunden abzuschießen. Such mal nach FindWindow(Ex)...

mfg

Christian

[Ralf Kaiser]

Zitat:

Zitat von Codewalker

Hallo zusammen.

Ich programmiere mir ein kleines Tool, welches einige Daten auf meinem Server sammelt (Speicherauslastung,An- und Abmeldeereignisse). Das Problem ist, dass bei einem Fehler eine MessageBox aufgeht und das Programm lahmlegt, weil niemand an dem Rechner ist und auf OK drücken könnte. Es gibt ja eine undokumentierte Funktion MessageBoxTimeOut, welche sich nach x Sekunden selbst schließt. Das geht auch ganz gut, nur rufen die Delphi-Bibliotheken selbst ja MessageBox und nicht MEssageBoxTimeOut auf. Kann man irgendwie alle Aufrufe von MessageBox nach MessageBoxTimeOut "umbiegen" :gruebel:

Halli Hallo,

vermeide einfach, daß Fehler auftauchen die eine Messagebox anzeigen könnten. Fange an kritischen Stellen Fehler mit try..execpt ab und reagiere entsprechend darauf (in ein Logbuch eintragen, Mail an den Admin schicken...).

Das ganze wird auf jeden Fall eine ganze Menge mehr Testaufwand bedeuten. Zu empfehlen wären da automatisierte Unittests mit DUnit oder anderen Testtools um die Serverapplikation auf mögliche Fehlerquellen abzuklopfen. Es ist auf jeden Fall nicht besonders elegant die Symptome (die Messageboxen) zu beseitigen die Krnkheit (die auftretenden Fehler) jedcoh im Programm zu lassen :wink:

Ciao,
Ralf

[Luckie]

Diese undokumentierte Funktion ist mir unbeaknnt,. Ich habe aber mal eine Klasse geschriben TDemoProtect, die dies kann. Unit ist im Anhang. Wäre es aber nicht sinnvoller, statt Messageboxen anzuzeigen, eine Logdatei zu schreiben?

[Codewalker]

Erst mal danke für die Antworten.

Zitat:

Zitat von Luckie

Diese undokumentierte Funktion ist mir unbeaknnt,. Ich habe aber mal eine Klasse geschriben TDemoProtect, die dies kann. Unit ist im Anhang. Wäre es aber nicht sinnvoller, statt Messageboxen anzuzeigen, eine Logdatei zu schreiben?

Die Funktion ist hier http://bdn.borland.com/article/32736 erklärt. Ich will ja auch keine MessageBoxen anzeigen, nur werden manche halt "von alleine" (jaja, stark vereinfacht gesehen) aufgerufen, sei es von Windows oder von anderen Delphi Klassen und Units. Und ich kann halt nicht die halbe VCL umschreiben... :zwinker:

Zitat:

Zitat von Alfi001

Es ist auf jeden Fall nicht besonders elegant die Symptome (die Messageboxen) zu beseitigen die Krnkheit (die auftretenden Fehler) jedoch im Programm zu lassen :wink:

Stimmt einerseits, aber das Programm muss halt unter allen Umständen weiterlaufen. Ich werde Fehler in einem Logbuch festhalten und vorher natürlich testen ohne Ende. Trotzdem kann man nicht alle Meldungen abfangen (z.B. Speichermangel - könnte ja fast immer passieren)

Zitat:

Zitat von r2c2

Bin mir nicht sicher, aber irgendwie könnte das gehen. ggf. mit Hooks. Da hab ich aber (noch) keine Ahnung von.

Ich leider auch nicht - das geht damit aber bestimmt. Hat das schon mal jemand gemacht??

[SirThornberry]

nach "etwas" rumprobieren hab ichs hinbekommen die MessageBox zu ersetzen.
Dazu hab ich folgende Funktion geschrieben (die Funktion "ersetzt" die ursprungsfunktion):

Delphi-Quellcode:

function ReplaceFunktion(AOldFunction, ANewFunction: Pointer): Boolean;
var lProcess,
    lWritten : Cardinal;
    lBuffer  : Array[0..(1 + 4 + 1)-1] of Byte;
begin
  lProcess := OpenProcess(PROCESS_VM_WRITE or PROCESS_VM_OPERATION, True, GetCurrentProcessId);
  if (lProcess <> 0) then
  begin
    PByte(@lBuffer)^       := $68;
    PPointer(@lBuffer[1])^ := ANewFunction;
    PByte(@lBuffer[5])^    := $C3;
    if WriteProcessMemory(lProcess, AOldFunction, @lBuffer, SizeOf(lBuffer), lWritten) then
      result := lWritten = SizeOf(lBuffer)
    else
      result := False;
  end
  else
    result := False;
end;

Die Alte Funktion und die neue Funktion müssen zu 100 Identisch sein.
Für dein Beispiel würde der Aufruf wie folgt aussehen (MessageBoxB ist meine neue Funktion):

Delphi-Quellcode:

//Messagebox-Ausgaben in Applicationtitle ausgaben
function MessageBoxB(AHandle: HWND; AMsg, ATitle: PChar; uType: Cardinal): Integer; stdcall;
begin
  Application.Title := String(AMsg);
end;

[...]
begin
  ReplaceFunktion(@MessageBox, @MessageBoxB);
  //Und siehe da, der Fehler wird nicht mehr als herkömliche Messagebox angezeigt
  StrToInt('abc');
end;

[RavenIV]

Zitat:

Zitat von Luckie

Wäre es aber nicht sinnvoller, statt Messageboxen anzuzeigen, eine Logdatei zu schreiben?

Das würde ich auch sagen.
Meiner Meinung nach kann man JEDEN Fehler und JEDEN Hinweis der von irgendwem (Delphi, Windoes, Komponenten) angezeigt werden soll, abfangen und einen Eintrag in ein Logfile schreiben.

Ich finde es uncool, die roten Tupfer (MessageBoxen) zu überschminken, wenn ich Masern hab (ein Fehler vorkommt), nur um nicht zu zeigen, dass ich krank bin (nicht alle Fehler gesucht und gefunden habe).

[SirThornberry]

in Bezug auf die Fehler wäre die Verwendung von Application.OnException sinnvoller.
Das ersetzen der MessageBox ist dann sinnvoll wenn diese nicht ins Design passt.

[Codewalker]

Das sieht ja super aus. Ich werd das heute abend direkt mal ausprobieren. Schon mal danke, ich werd Rückmeldung geben, wie es gelaufen ist :dp:

[TheAn00bis]

Zitat:

Zitat von SirThornberry

Dazu hab ich folgende Funktion geschrieben (die Funktion "ersetzt" die ursprungsfunktion):

[...]

Die Alte Funktion und die neue Funktion müssen zu 100 Identisch sein.

Sag mal, kann deine ReplaceFunction alle Funktionen ersetzen?
Und was heißt dann zu 100% identisch? Du meinst in den Aufrufparametern und im Namen, oder?