Fehler "access violation" - keine Ahnung, warum...

[Pow3rus3r]

nach dem Fehler springt Delphi in ein Debug Fenster (CPU).

Dort wird folgendes angezeigt:
004070E8 F0FF4AF8 lock dec dword ptr [edx-$08]

[DeddyH]

Kannst Du mir Deinen Gedankengang hier einmal erklären?

Zitat:

Delphi-Quellcode:

new(zeiger);
zeiger := NIL;

Und wird der übergebene Zeiger von der Funktion COM_TcpOpen tatsächlich verändert, oder werden nur die dahinterstehenden Daten befüllt?

[Pow3rus3r]

Zitat von DeddyH:

Kannst Du mir Deinen Gedankengang hier einmal erklären?

Zitat:

Delphi-Quellcode:

new(zeiger);
zeiger := NIL;

Und wird der übergebene Zeiger von der Funktion COM_TcpOpen tatsächlich verändert, oder werden nur die dahinterstehenden Daten befüllt?

Der Zeiger wird eigentlich nur auf NIL gesetzt, damit ich sehen kann, ob er initialisiert wurde (von der Hardware) oder nicht. Sonst hätte der neue Zeiger schon von beginn an irgendeinen Wert und es wäre nicht ersichtlich, ob der wert von der Hardware zugewiesen wurde oder ob er einfach nur ein Zufallswert ist, der bei der zeigererzeugung zugewiesen wurde.

Die Funktion COM_TCpOpen weist dem Zeiger einen Wert zu (vorher NIL, nachher ein hardwarespezifischer Wert).

[himitsu]

Geh mal in die Projektoptionen und aktiviere dort die Bereichsprüfung und eventuell noch die Debug-DCUs.

[Pow3rus3r]

Zitat von himitsu:

Geh mal in die Projektoptionen und aktiviere dort die Bereichsprüfung und eventuell noch die Debug-DCUs.

Das bringt mir dann folgende Meldung im Debugger:

Code:

   LOCK DEC     [EDX-skew].StrRec.refCnt        { threadsafe dec refCount       }

Und diese Meldung befindet sich in dieser Prozedur:

Code:

procedure _UStrArrayClr(var StrArray; Count: Integer);
{$IF not defined(CPU386)}
var
  P: Pointer;
begin
  P := @StrArray;
  while Count > 0 do
  begin
    _UStrClr(P^);
    Dec(Count);
    Inc(NativeInt(P), SizeOf(Pointer));
  end;
end;
{$ELSE}
asm
        { ->    EAX pointer to str      }
        {       EDX cnt                 }

        {$IFDEF ALIGN_STACK}
        SUB     ESP,4
        {$ENDIF ALIGN_STACK}
        PUSH    EBX
        PUSH    ESI
        MOV     EBX,EAX
        MOV     ESI,EDX

@@loop:
        MOV     EDX,[EBX]                       { fetch str                     }
        TEST    EDX,EDX                         { if nil, nothing to do         }
        JE      @@doneEntry
        MOV     dword ptr [EBX],0               { clear str                     }
        MOV     ECX,[EDX-skew].StrRec.refCnt    { fetch refCnt                  }
        DEC     ECX                             { if < 0: literal str           }
        JL      @@doneEntry
   LOCK DEC     [EDX-skew].StrRec.refCnt        { threadsafe dec refCount       }
        JNE     @@doneEntry
        LEA     EAX,[EDX-skew]                  { if refCnt now zero, deallocate}
        CALL    _FreeMem
@@doneEntry:
        ADD     EBX,4
        DEC     ESI
        JNE     @@loop

        POP     ESI
        POP     EBX
        {$IFDEF ALIGN_STACK}
        ADD     ESP,4
        {$ENDIF ALIGN_STACK}
end;
{$IFEND}

Das sind für mich allerdings alle böhmische Dörfer

[himitsu]

Zitat von Pow3rus3r:

Das sind für mich allerdings alle böhmische Dörfer

Wichtiger wäre an der Stelle, der Stacktrace.
Du weißt jetzt wo es knallt, also beim Freigeben eines String-Arrays, bzw. mehrerer Strings,
aber irgendwer hat ja diese Prozedur aufgerufen und bei dem könnte man nachsehn, was er "genau" freigeben will, also welche Strings/Stringvariablen das sind
und dann hat man einen Anhaltspunkt, wo man eventuell nach der Ursache suchen könnte.

Aber eventuell hast du ja irgendwo Bufferoverrun, welcher zufällig diese Stringvariablen überschreibt.

[EWeiss]

Wo kann man die DLL und die C++ Bibliothek/API laden?
Will da mal reinschaun.

gruss

[Pow3rus3r]

Die DLL kann ich leider aus Copyrightgründen nicht rausgeben. Zudem habe ich keinen Quellcode der DLL, sondern nur die kompilierte Datei.

[EWeiss]

Zitat von Pow3rus3r:

Die DLL kann ich leider aus Copyrightgründen nicht rausgeben. Zudem habe ich keinen Quellcode der DLL, sondern nur die kompilierte Datei.

Ok Danke
Kein problem.

gruss

[EWeiss]

Bist sicher das der Zeiger identisch ist mit dem der als rückgabe bei open erzeut wird?
Hatte auch mal ein probleme das ein zeiger aus unerklärlichen gründen gelöscht bzw.. nicht gleich war.

gruss