Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Access Violations beim Zugriff auf ein Record (https://www.delphipraxis.net/168066-access-violations-beim-zugriff-auf-ein-record.html)

NewPiccolo 3. Mai 2012 09:41

Delphi-Version: 2006

Access Violations beim Zugriff auf ein Record
 
Hallo,

ich habe ein Problem festgestellt, welches mit dem Reservieren, bzw. Nutzen von Speicherplatz bei Records mit extrem großen fixed-size Arrays auftritt.
Delphi-Quellcode:
 
 TBigRecord = record
   Value: array[0..104857600] of Byte; // 100 MB
 end;


...

procedure TForm1.btRecordClick(Sender: TObject);
var
    Rec: TBigRecord;
    I: Integer;
begin
    for I := Low(Rec.Value) to High(Rec.Value) do
        Rec.Value[I] := $64; // only if assignment is done, the access violation occurs
end;
Jetzt bin ich mir nicht sicher, ob es an dem zu kleinen Speicherplatz liegt oder daran, dass ich Speicherplatz für Records doch explizit reservieren muss.

Denn folgender Code läuft ohne access violations :evil:
Delphi-Quellcode:
procedure TForm1.btRecordClick(Sender: TObject);
var
    Rec: ^TBigRecord;
    I: Integer;
begin
    GetMem(Rec, SizeOf(TBigRecord));
    try
        for I := Low(Rec.Value) to High(Rec.Value) do
            Rec.Value[I] := $64;
    finally
        FreeMem(Rec);
    end;
end;
Hat jemand eine Idee, was beim obigen Code falsch läuft?

Grüße
Piccolo

DeddyH 3. Mai 2012 09:44

AW: Access Violations beim Zugriff auf ein Record
 
Du versuchst, 100 MB auf dem Stack abzulegen (lokale Variable), daher klappt das nicht. Die andere Variante legt nur den Pointer auf dem Stack ab, die Daten selbst aber auf dem Heap, da liegt der Unterschied.

NewPiccolo 3. Mai 2012 10:16

AW: Access Violations beim Zugriff auf ein Record
 
Cool danke für die schnelle Antwort

himitsu 3. Mai 2012 12:12

AW: Access Violations beim Zugriff auf ein Record
 
Wer ist eigentlich auf die Idee gekommen den EStackOverflow (Stack-Überlauf) abzuschaffen?
Zumindestens laut Doku steht der schon eine Weile auf deprecated, auch wenn er mindestens bis XE dennoch aufgerufen wird. (XE2 konnte ich grade nicht testen)

Denn ich hätte statt einer EAccessViolation einen EStackOverflow erwartet,
vorallem wenn es sich hier um ein D2006/TDE handeln soll.

jaenicke 3. Mai 2012 12:58

AW: Access Violations beim Zugriff auf ein Record
 
Vermutlich wird auf dem Stack nix weiter gemacht und nur in der internen Logik der entsprechende Platz auf dem Stack als vorhanden angenommen. Wenn dann auf die konkrete Adresse versucht wird zuzugreifen, knallt es, weil nicht genügend Speicher auf dem Stack da ist und die berechnete Adresse daher nicht beschreibbar. (Vermute ich, weiß ich nicht. :D)


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:45 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz