Grappe fejl. Ligesom en debugger

Du skal købe Dmitriy Gremyakov's ExceptionalMagic. Jeg har desvære ikke en download adresse til ham, til trods for jeg har en lovlig licens. Den her virker ikke mere : http://dimus.virtualave.net

Men ExceptionalMagic fanger ALLE exceptions i dit program og logger dem. Du kan selv overstyre den måde som fejlen bliver logget på.

Jens B

Jeg fandt et link :
http://dimusware.com/delphi/excmagic/

Jens B

Hmm... Det var nu meningen at jeg ville lave det selv... Derfor jeg har lagt det i Delphi katagorien...

Så skal du kigge på Exception Hook. Slå det op i MSDN under SetWindowHookEx.

Jeg troede du skulle bruge det til en prof. Applikation. ExceptionalMagic er i øvrigt med fuld kilde kode ;)

Jens B

Uha jeg er blank... Hvis der er nogle der kan kickstarte mig lidt vil jeg blive happy :)

Om ikke andet...til at starte med vil jeg gerne tjekke om programmet overhovet kører

Du kan starte med at sætte en TApplikation komponent på din form. Og så bruge dens OnException til at fange fejl med.

Jens B

øhm?... Jeg vil jo ikke fange fejlene i watchdog'en...

Nu ved jeg ikke lige hvad en watchdog er. Men du kan ikke fange Exception i en fremmed Applikation, kun internt "i dig selv" ellers slå Debug Hook op i MSDN, ikke Exception Hook som  jeg skrev før. Jeg huskede forkert.

Jens B

Lige koden til om et program kører:

Function EnumProc( hw: HWND; Var data: TEnumData ): Bool; stdcall;
  Var
    pID: DWORD;
  Begin
    Result := True;
    If (GetWindowLong(hw, GWL_HWNDPARENT) = 0) and
      (IsWindowVisible( hw ) or IsIconic(hw))
    Then Begin
      GetWindowThreadProcessID( hw, @pID );
      If pID = data.pID Then Begin
        data.hW := hW;
        Result := False;
      End; { If }
    End; { If }
  End; { EnumProc }

Function WindowFromProcessID( pID: DWORD ): HWND;
  Var
    data: TEnumData;
  Begin
    data.pID := pID;
    data.hW := 0;
    EnumWindows( @EnumProc, longint(@data) );
    Result := data.hW;
  End; { WindowFromProcessID }

Function WindowFromAppname32( appname: String ): HWND;
  { Take only the application filename, not full path!
    Need to pass the extension as well. }
  Var
    snapshot: THandle;
    processEntry : TProcessEntry32;
  Begin
    Result := 0;
    snapshot := CreateToolhelp32Snapshot(
                  TH32CS_SNAPPROCESS,
                  0 );
    If snapshot <> 0 Then
    try
      processEntry.dwSize := Sizeof( processEntry );
      If Process32First( snapshot, processEntry ) Then
      Repeat
        If AnsiCompareText(
            appname,
            ExtractFilename( StrPas(processEntry.szExeFile))
            ) = 0
        Then Begin
          Result:= WindowFromProcessID( processEntry.th32ProcessID);
          Break;
        End; { If }
      Until not Process32Next( snapshot, processEntry );
    finally
      CloseHandle( snapshot );
    End; { try }
  End; { WindowFromAppname32 }


procedure TForm1.Button1Click(Sender: TObject);
begin
if WindowFromAppname32('Winword.exe') <> 0 then // Kald proceduren til at chekke
ShowMessage('Programmet kører');                // Om programmet kører.
end;

// Jonat.

og så skal denne type være dekleret:

type
  TEnumData = Record
    hW: HWND;
    pID: DWORD;
  End;

Den glemte jeg lige ;)

// Jonat.

Blæret tak :D

Syntes jonat skulle kaste et svar her. Så kan jeg lukke tråden. :)

Svar :)

Forresten... Den fejlgrapper jeg bruger hedder EurekaLog ....

Se : www.EurekaLog.com ... Den tager også alle fejl, og flere til :)

Den kan også købes for en plovmand, hvilket jeg synes er ok, da den er utrolig effektiv og med indygget mail funktion m.m.

// Jonat.

Jeg arbejder ikke i delphi mere. Og har implementeret logging af exceptions i .NET hvilke jeg syntes funker rimeligt :)