Entwickler-Ecke :: Thema anzeigen - Ungültige Zeigeroperation bzw AV beim Freigeben eines Arrays

Flamefire - Di 18.08.09 14:00
Titel: Ungültige Zeigeroperation bzw AV beim Freigeben eines Arrays

Ich habe einen Traffic logger geschrieben, der alle Packete aus einer Anwendung mitschneiden soll (àla WPE Pro aber als Proxy)
Die Packete speichere ich in einem Array, um sie filtern zu können, und zeige sie in einem Listview an.

Das Problem: Wenn ich das Array beim 2. mal freigeben möchte bekomme ich "Ungültige Zeigeroperation" beim SetLength(...,0) oder eine Access Violation beim Freigeben der Einträge im Listview.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

  TEntry = record
    opcode:Word;
    data:TBytes;
    direction:Byte;
  end;
//...
    var Entry:Array[0..999] of TEntry; //All entries are stored here
//...
procedure TFrameAnalyzer.Add(opcode: Word; direction: Byte; data: pointer;size:word);
var i:Integer;
begin
  if(curEntry=1000) then begin//das soll die ersten 500 elemente freigeben und die letzten 500 darüber schieben

    for i := 0 to 500 - 1 do
      SetLength(Entry[i].data,0);//hier der fehler
    Move(Entry[500],Entry[0],SizeOf(TEntry)*500);
    for i := 500 to 1000 - 1 do
      Entry[i].data:=nil;
    curEntry:=500;
    UpdateListView;//oder hier die AV
  end;

//Write data
  Entry[curEntry].opcode := opcode;
  Setlength(Entry[curEntry].data,size);
  if(size>0) then Move(data^,Entry[curEntry].data[0],size);
  Entry[curEntry].direction := direction;
  Inc(curEntry);
end;
//...
procedure TFrameAnalyzer.UpdateListView;
var i:Integer;
begin
  sListView1.Items.BeginUpdate;
  sListView1.Items.Clear;//hier die AV
  for i := 0 to curEntry - 1 do begin
    if(not ElemBlocked(Entry[i])) then//filter
      with sListView1.Items.Add do begin
        Caption:=IntToHex(Entry[i].opcode,4);
        SubItems.Add(Self.ByteToString(Entry[i]));
        SubItems.Add(StrDirection[Entry[i].direction]);
      end;
  end;
  sListView1.Items.EndUpdate;
end;

wenn ich "for i := 0 to 500 - 1 do SetLength(Entry[i].data,0);" entferne kommt kein Fehler mehr

edit:

Delphi-Quelltext

1:
2:
3:

dass hier statt der schleifen funktioniert:
    for i := 0 to 500 - 1 do
      Entry[i]:=Entry[i+500];

aber warum?
ist ein dynamisches array in einem record nicht einfach ein pointer auf die array structur?
wird es dadurch nicht zum speicherleak? FastMM4 meldet zumindest nichts

BenBE - Di 18.08.09 14:18

Bitte mit Finalize(Entry[i]) arbeiten, da das noch ein paar Dinge mehr macht als nur die Länge des Arrays auf 0 zu setzen. Sonst hast Du da u.U. ein Memleak drin.

Aber machst Du nicht einfach folgendes?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TFrameAnalyzer.Add(opcode: Word; direction: Byte; data: pointer;size:word);
var i:Integer;
begin
  if(curEntry=1000) then 
  begin
    //das soll die ersten 500 elemente freigeben und die letzten 500 darüber schieben
    for i := 0 to 500 - 1 do
    begin
      Entry[i] := Entry[i+500];
      finalize(Entry[i+500]);
    end;

    curEntry:=500;
    UpdateListView;//oder hier die AV
  end;

//Write data
  Entry[curEntry].opcode := opcode;
  Setlength(Entry[curEntry].data, size);
  if size>0 then 
    Move(data^, Entry[curEntry].data[0],size);
  Entry[curEntry].direction := direction;
  Inc(curEntry);
end;

Flamefire - Di 18.08.09 14:59

ich glaube bei dir ist beim zitieren was schief gegangen ;-)

erstmal: Deine Lösung funktioniert ebenfalls, danke dafür

würde es nur gern verstehen:
1) was macht Finalize?
2) warum Finalize auf entry[i+500]?
wenn das array tatsächlich ein pointer auf die array structur ist, dann würde entry[x]:=entry[y] den inhalt des records kopieren. vermutlich macht der noch intern eine überprüfung bevor das array in x überschrieben wird (der hat ja einen referenzzähler drin. wenn der 0 ist gibt der das array frei, zumindest soweit ich das im debugger gesehen habe)
finalize auf entry[i+500] müsste mir doch dann das array, dess pointer ich nach entry[i] kopiert habe freigeben, wodurch es auf einmal fehlt, oder?
3) warum hat das mit dem Move nicht funktioniert?

PS: So weit ich das gesehen habe, wird finalize von setlength aufgerufen

BenBE - Di 18.08.09 15:29