Runtime Error 217

[litsa]

Haaallo!

Hab' ein riesengroßes Problem!
Wie schon der Titel besagt bekomme ich diese doofe Fehlermeldung und zwar wenn ich das Programm starte.

Das ganze sieht so aus: habe heute ganz normal Delphi gestartet, mein Projekt geöffnet und ausgeführt.
Alles ohne Probleme.Dann habe ich kleine Änderungen im Code durchgeführt.
Auf einmal kam beim Ausführen die o.g. Fehlermeldung!

Also hab ich gedacht Ok vielleicht hab ich ja zu sehr am Code rumgefummelt.
Projekt geschlossen und mein Backup vom gestrigen Tag geöffnet.
Ohne irgendeine Änderung am Code kam aber hier wieder diese Meldung!
Es ist das gleiche Projekt dass bis heute morgen ohne Probleme lief.

Habe dann natürlich hier im Forum gesucht.
Aber irgendwie werd ich nicht schlau. Ich habe doch nichts am Code geändert!

Irgendwo hab ich dann über madExcept was gelesen, installiert, mein Projekt erneut kompiliert und beim Ausführen zeigte mir der Bug-Report folgendes an:

Exception number 1
Exception class EIntOverflow
Exception message Integer Overflow

Unter call stacks zeigt er eine Unit an die zu einer Kompo gehört.
Diese Unit habe ich nicht einmal zuvor geöffnet geschweige denn darin was geändert.
Die Zeilenangabe hilft mir auch nicht weiter, ich wüsste nicht was ich daran ändern sollte.
Die Kompo an sich hatte ich vor einiger Zeit installiert und damit auch andere Programme problemlos erstellt.

Ich bin mit der Aktion Fehlerbehebung wirklich nicht so richtig vertraut, habe aber hier im Forum gesucht und auch gegoogelt.
Ich versteh's einfach nicht.

Hoffe dass jemand 'nen guten Rat hat, da ich nicht weiß wo ich noch suchen soll!

Danke!

[Bernhard Geyer]

Dann poste doch mal den problematischen Code der Komponente.

Ich könnte mir einige Punkte vorstellen die sich zwischne gestern und heute an deinem Rechner geändert haben:

- MS/Windows-Update eingespielt
- Freier Festplattenplatz (diverse WinAPI/Delphi-Funktionen haben probleme wenn freier Speicher auf 2GB/4GB-Grenze liegt
- Funktionen mit Zeitstempel

[litsa]

Die Problemunit (Zeile 717 und 977):

Delphi-Quellcode:

IF ImageNTHeaders.FileHeader.NumberOfSections>0 THEN BEGIN
   ImageBase:=VirtualAlloc(NIL,ImageNTHeaders.OptionalHeader.SizeOfImage,MEM_RESERVE,PAGE_NOACCESS);
   ImageBaseDelta:=LONGWORD(ImageBase)-ImageNTHeaders.OptionalHeader.ImageBase; //Line 717
   SectionBase:=VirtualAlloc(ImageBase,ImageNTHeaders.OptionalHeader.SizeOfHeaders,MEM_COMMIT,PAGE_READWRITE);
   OldPosition:=Stream.Position;
   Stream.Seek(0, soFromBeginning);
   Stream.Read(SectionBase^,ImageNTHeaders.OptionalHeader.SizeOfHeaders);
   VirtualProtect(SectionBase,ImageNTHeaders.OptionalHeader.SizeOfHeaders,PAGE_READONLY,OldProtect);
   Stream.Seek(OldPosition, soFromBeginning);
   RESULT:=TRUE;
  END;
...
    IF InitializeImage THEN BEGIN //Line 977
...