Applikation lukker brutalt ned.- Uden nogen fejlbesked!!

Du kan finde en Runtime-debug metode på www.undu.com som du kan impl. og måske få et hint til hvor det går galt, den kan fortælle hvilken unit og line fejlen er, det er da et forsøg værd.

/Martin

Ja hidtid har fejlen været ganske umulig at finde. Der er simpelthen ikke noget fast mønster i det. Det sker ikke for en bestemt bruger men lidt sprædt.- Det sker ikke fra bestemte maskiner men lidt sprædt osv.

Men det kunne jo være en havde oplevet noget lignende. Men dit forslag lyder som en ganske fornuftig ide. Det vil jeg kigge på.

Tak for det.

Jeg mener det var på undu jeg fandt det eller søg efter det, det er noget med lidt kode og en MAP fil du skal ha' med din exe fil

Hej.
Jeg har fundet noget ved titel "A Debugging Window for Delphi".
Programmet hedder WinSpy.exe og skal køres en gang. Dertil skal tilføjes nogle linier kode i projektet hvorefter det skulle logge hvad der sker. Det kunne umiddelbart ligne det du snakker om.

smid dette i en unit :

{-------------------------------------------------------------------------------

  Unit name: uDebug
  Author:    Eddy Vluggen
  Purpose:  Unit to make debugging easier

  History:
  ------------------------------------------------------------------
  2-7-2001          Initial version

  Notes:
  * Project needs to be compiled with a detailed map file to work!
  * Tested under both Delphi 5 and Delphi 6
  * ExceptAddr gets reset by Application.OnException

-------------------------------------------------------------------------------}

unit uDebugEx;

interface

uses
  Contnrs, Windows, Classes, SysUtils, Dialogs, Forms;

  function LoadAndParseMapFile: Boolean;
  procedure CleanUpMapFile;
  function GetMapAddressFromAddress(const Address: DWORD): DWORD;
  function GetMapFileName: string;
  function GetModuleNameFromAddress(const Address: DWORD): string;
  function GetProcNameFromAddress(const Address: DWORD): string;
  function GetLineNumberFromAddress(const Address: DWORD): string;

var
  Units,
  Procedures,
  LineNumbers: TList;

implementation

const
  { Sections in .map file }
  NAME_CLASS          = 'StartLengthNameClass';
  SEGMENT_MAP          = 'Detailedmapofsegments';
  PUBLICS_BY_NAME      = 'AddressPublicsbyName';
  PUBLICS_BY_VAL      = 'AddressPublicsbyValue';
  LINE_NUMBERS        = 'Linenumbersfor';
  RESOURCE_FILES      = 'Boundresourcefiles';

type
  { Sections as enum }
  THeaderType = (htNameClass, htSegmentMap, htPublicsByName, htPublicsByValue,
    htLineNumbers, htResourceFiles);

  { unitname / pointeraddress pair -> olUnits }
  PUnitItem = ^TUnitItem;
  TUnitItem = record
    UnitName: string;
    UnitStart,
    UnitEnd: DWORD;
  end;

  { procedurename / pointeraddress pair -> olProcedures }
  PProcedureItem = ^TProcedureItem;
  TProcedureItem = record
    ProcName: string;
    ProcStart: DWORD;
  end;

  { linenumber / pointeraddress pair -> olLineNumbers }
  PLineNumberItem = ^TLineNumberItem;
  TLineNumberItem = record
    UnitName,
    LineNo: string;
    LineStart: DWORD;
  end;

function StripFromString(const Strip: char; var AString: string): string;
var
  Pos: Cardinal;
begin
  Pos := Length(AString);
  while Pos > 0 do
  begin
    Application.ProcessMessages;
    if AString[Pos] = Strip then
      Delete(AString, Pos, Length(Strip))
    else
      Dec(Pos);
  end;
  Result := AString;
end;

function LoadAndParseMapFile: Boolean;
var
  F: TextFile;
  CurrentLine,
  CurrentUnit: string;
  CurrentHeader: THeaderType;

  { helper func of SyncHeaders }
  function CompareHeaders(AHeader, ALine: string): Boolean;
  begin
    Result := Copy(ALine, 1, Length(AHeader)) = AHeader;
  end;

  { Keeps track of section in .map file }
  procedure SyncHeaders(var Header: THeaderType; Line: string);
  const
    Pfx = Length('Line numbers for ');
  begin
    Application.ProcessMessages;
    Line := StripFromString(' ', Line);

    if CompareHeaders(NAME_CLASS, Line)      then Header := htNameClass;
    if CompareHeaders(SEGMENT_MAP, Line)    then Header := htSegmentMap;
    if CompareHeaders(PUBLICS_BY_NAME, Line) then Header := htPublicsByName;
    if CompareHeaders(PUBLICS_BY_VAL, Line)  then Header := htPublicsByValue;
    if CompareHeaders(LINE_NUMBERS, Line)    then
    begin
      Header := htLineNumbers;
      CurrentUnit := Copy(Line, Pfx -2, Pos('(', Line) - Pfx + 2);
    end;
    if CompareHeaders(RESOURCE_FILES, Line)  then Header := htResourceFiles;
  end;

  { Adds a segment from .map to segment-list }
  procedure AddUnit(ALine: string);
  var
    SStart: string;
    SLength: string;
    AUnitItem: PUnitItem;
  begin
    if StrToInt(Trim(Copy(ALine, 1, Pos(':', ALine) -1))) = 1 then
    begin
      Application.ProcessMessages;
      SStart  := Copy(ALine, Pos(':', ALine) + 1, 8);
      SLength := Copy(ALine, Pos(':', ALine) + 10, 8);
      New(AUnitItem);
      with AUnitItem^ do
      begin
        UnitStart := StrToInt('$' + SStart);
        UnitEnd  := UnitStart + DWORD(StrToInt('$' + SLength));
        Delete(ALine, 1, Pos('M', ALine) + 1);
        UnitName := Copy(ALine, 1, Pos(' ', ALine) -1);
      end;
      Units.Add(AUnitItem);
    end;
  end;

  { Adds a public procedure from .map to procedure-list }
  procedure AddProcedure(ALine: string);
  var
    SStart: string;
    AProcedureItem: PProcedureItem;
  begin
    Application.ProcessMessages;
    if StrToInt(Trim(Copy(ALine, 1, Pos(':', ALine) -1))) = 1 then
    begin
      SStart  := Copy(ALine, Pos(':', ALine) + 1, 8);
      New(AProcedureItem);
      with AProcedureItem^ do
      begin
        ProcStart := StrToInt('$' + SStart);
        Delete(ALine, 1, Pos(':', ALine) + 1);
        ProcName  := Trim(Copy(ALine, Pos(' ', ALine), Length(ALine) - Pos(' ', ALine) + 1));
      end;
      Procedures.Add(AProcedureItem);
    end;
  end;

  { Adds a lineno from .map to lineno-list }
  procedure AddLineNo(ALine: string);
  var
    ALineNumberItem: PLineNumberItem;
  begin
    while Length(Trim(ALine)) > 0 do
    begin
      Application.ProcessMessages;
      New(ALineNumberItem);
      with ALineNumberItem^ do
      begin
        Aline    := Trim(ALine);
        UnitName  := CurrentUnit;
        LineNo    := Copy(ALine, 1, Pos(' ', ALine)-1);
        Delete(ALine, 1, Pos(' ', ALine) + 5);
        LineStart := StrToInt('$' + Copy(ALine, 1, 8));
        Delete(ALine, 1, 8);
      end;
      Application.ProcessMessages;
      LineNumbers.Add(ALineNumberItem);
    end;
  end;

{ procedure TExtExceptionInfo.LoadAndParseMapFile }
begin
  Units      := TList.Create;
  Procedures  := TList.Create;
  LineNumbers := TList.Create;

  if FileExists(GetMapFileName) then
  begin
    AssignFile(F, GetMapFileName);
    Reset(F);
    while not EOF(F) do
    begin
      Application.ProcessMessages;
      ReadLn(F, CurrentLine);
      SyncHeaders(CurrentHeader, CurrentLine);
      if Length(CurrentLine) > 0 then
        if (Pos(':', CurrentLine) > 0) and (CurrentLine[1] = ' ') then
          case CurrentHeader of
            htSegmentMap:    AddUnit(CurrentLine);
            htPublicsByValue: AddProcedure(CurrentLine);
            htLineNumbers:    AddLineNo(CurrentLine);
          end;
      Application.ProcessMessages;
    end;
    CloseFile(F);
    Result :=
      (Units.Count > 0) and
      (Procedures.Count > 0) and
      (LineNumbers.Count > 0);
  end
  else
    Result := False;
end;

procedure CleanUpMapFile;
begin
  if Units.Count > 0 then
    while Units.Count > 0 do
    begin
      Dispose(PUnitItem(Units.Items[0]));
      Units.Delete(0);
    end;
  if Procedures.Count > 0 then
    while Procedures.Count > 0 do
    begin
      Dispose(PProcedureItem(Procedures.Items[0]));
      Procedures.Delete(0)
    end;
  if LineNumbers.Count > 0 then
    while LineNumbers.Count > 0 do
    begin
      Dispose(PLineNumberItem(LineNumbers.Items[0]));
      LineNumbers.Delete(0);
    end;

  FreeAndNil(Units);
  FreeAndNil(Procedures);
  FreeAndNil(LineNumbers);
end;

function GetModuleNameFromAddress(const Address: DWORD): string;
var
  i: Integer;
begin
  for i := Units.Count -1 downto 0 do
    if ((PUnitItem(Units.Items[i])^.UnitStart <= Address) and
      (PUnitItem(Units.Items[i])^.UnitEnd >= Address)) then
    begin
      Result := PUnitItem(Units.Items[i])^.UnitName;
      Break;
    end;
end;

function GetProcNameFromAddress(const Address: DWORD): string;
var
  i: Integer;
begin
  for i := Procedures.Count -1 downto 0 do
    if (PProcedureItem(Procedures.Items[i])^.ProcStart <= Address) then
    begin
      Result := PProcedureItem(Procedures.Items[i])^.ProcName;
      Break;
    end;
end;

function GetLineNumberFromAddress(const Address: DWORD): string;
var
  i: Cardinal;
  LastLineNo: string;
  UnitName: string;
begin
  Result    := '';
  LastLineNo := '';
  UnitName  := GetModuleNameFromAddress(Address);

  for i := 0 to LineNumbers.Count -1 do
    if PLineNumberItem(LineNumbers.Items[i])^.UnitName = UnitName then
      if (PLineNumberItem(LineNumbers.Items[i])^.LineStart >= Address) then
      begin
        Result := LastLineNo;
        Break;
      end
      else
        LastLineNo := PLineNumberItem(LineNumbers.Items[i])^.LineNo;
end;

function GetMapFileName: string;
begin
  Result := ChangeFileExt(ParamStr(0), '.map');
end;

function GetMapAddressFromAddress(const Address: DWORD): DWORD;
const
  CodeBase = $1000;
var
  OffSet: DWORD;
  ImageBase: DWORD; //$400000: hInstance or GetModuleHandle(0)
begin
  ImageBase := hInstance;
  OffSet := ImageBase + CodeBase;

  // Map file address = Access violation address - Offset
  Result := Address - OffSet;
end;

end.


og dette i den Mainform :

class procedure TForm1.GlobalExceptionHandler(Sender: TObject; E: Exception);
var
  MapFileAddress: DWORD;
  UnitName,
  ProcedureName,
  LineNumber: string;
const
  CrLf = #10#13;
begin
  if ( E.ClassType <> EODBC ) and ( E.ClassType <> EDateTimeError ) then
  begin
      MapFileAddress := GetMapAddressFromAddress(DWORD(ExceptAddr));
      UnitName := GetModuleNameFromAddress(MapFileAddress);
      ProcedureName := GetProcNameFromAddress(MapFileAddress);
      LineNumber := GetLineNumberFromAddress(MapFileAddress);

      MessageDlg(
        'Exception ' + E.Message + CrLf + CrLf +
        ' ClassName : ' + E.ClassName + CrLf +
        ' in file : ' + UnitName + CrLf +
        ' in procedure : ' + ProcedureName + CrLf +
        ' on line : ' + LineNumber,
        mtError, [mbOk], 0);
  end;
end;

initialization
  if LoadAndParseMapFile then
  begin
    Application.OnException := TForm1.GlobalExceptionHandler;
  end;

finalization
  CleanUpMapFile;
end.



OG sæt din compiler til at genere udvidet MAP fil som du lægger same sted som exe filen så skulle det være det

/Martin

Hej igen.

Ved du hvad? Det tror jeg på! Jeg er villig til at slippe 60 point for det. Jeg er desperat for at finde den pokkers dumme fejl. :o)
I øvrigt har du før været en stor hjælp.

Så foreløbig tak for hjælpen.

Jeg prøver at sætte dette i gang.