Array[0..0] Speicherreservieren

[Alter Mann]

Moin, Moin,

ich habe das 'kleine' Problem, dass ich ein innerhalb eines Records ein dynamisches Array habe, welches initialisiert sein muss, bevor ich es auf eine Funktion los lasse.
Doch wie mach ich das?

Delphi-Quellcode:

...
type
  DLI = record
    Count : DWORD;
    SIG   : DWORD;
    PE    : Array[0..0] of PI;
  end;

...
var
  D : DLI;
begin
  SetLength(D.PE, 15 * SizeOf(PI));   // Inkompatible Typen
  D.PE := AllocMem(15 * SizeOf(PI));  // - " - Array und Pointer (Das ist klar)
  @D.PE := AllocMem(15 * SizeOf(PI)); // der linken Seite kann nichts zugewiesen werden
end;

Ich kann die Struktur des Record nicht ändern. Gibt es noch eine andere Möglichkeit?

Danke

[Neutral General]

Hallo,

Also das Array ist schon initialisiert. (Hat die Größe von SizeOf(PI))
Bist du dir sicher, dass es nicht vllt. ein Pointer auf so ein Array[0..0] sein soll?
Weil dann sähe das ganze schon wieder anders aus.

Delphi-Quellcode:

type
  TPIArr = Array[0..0] of PI;
  PPIArr = ^TPIArr;

  DLI = record
    Count: DWORD;
    SIG: DWORD;
    PE: PPIArr;
  end;

var D: DLI;
begin
  GetMem(D.PE,15*SizeOf(PI));
end;

[Alter Mann]

Hallo,

die Idee mit GetMem ist nicht schlecht, nur, ich kann den Record nicht ändern!
"Fehlermeldung: Inkompatible Typen"

[Neutral General]

Also wenn du das Rekord nicht ändern kannst und ich nicht gerade aufm Schlauch stehe, dann glaube ich nicht, dass du da irgendwas machen kannst...

PS: Ein GetMem mit einem Nicht-Pointer-Typ funktioniert natürlich nicht (Inkompatible Typen)

[Alter Mann]

Zitat:

ich nicht gerade aufm Schlauch stehe

Das wollen wir doch mal nicht hoffen

Hintergrund ist IOCTL_DISK_GET_DRIVE_LAYOUT vielleicht fällt da der Groschen?

Das, das ein Thema für sich ist, ist mir klar aber es muss doch eine Alternative zu diesem
C-Code geben:

Code:

DWORD junk;
BOOL bResult;

DWORD nPartitions = 16;
DWORD nBufferSize = sizeof(DRIVE_LAYOUT_INFORMATION) + nPartitions * sizeof(PARTITION_INFORMATION);

DRIVE_LAYOUT_INFORMATION* pDLI =
(DRIVE_LAYOUT_INFORMATION*)malloc(sizeof(DRIVE_LAYOUT_INFORMATION) + nPartitions * sizeof(PARTITION_INFORMATION));  // <- wie in Delphi?

bResult = DeviceIoControl(hDevice,
IOCTL_DISK_GET_DRIVE_LAYOUT,
NULL,
0,
pDLI,
nBufferSize,
&junk,
NULL);

Wie geschrieben es geht hier nicht um IOCTL_DISK_GET_DRIVE_LAYOUT sondern um die Speicherreservierung.

[Neutral General]

So:

Delphi-Quellcode:

var D: ^DLI;
begin
  GetMem(D,SizeOf(DLI) + 15*SizeOf(PI));
end;

@himitsu (über mir): GetMem ist eine Procedure mit 2 Parametern. Du meinst wahrscheinlich GetMemory

[SirThornberry]

Warum kannst du den RecordTyp nicht ändern? Wer zwingt dich beim Aufruf die nicht funktionierende Variante zu verwenden? Wer hindert dich daran das Array einfach groß genug zu definieren?

[mkinzler]

Da der Compiler ja den Typ PI kennen sollte, sollte

SetLength(D.PE, 15); reichen

[Neutral General]

Zitat von mkinzler:

Da der Compiler ja den Typ PI kennen sollte, sollte

SetLength(D.PE, 15); reichen

PE ist aber kein dynamisches Array. Das wird also mit SetLength nicht funktionieren.
Ich bin immernoch der Meinung, dass es nicht geht.

[himitsu]

Ein Array[0..0] ist ein statisches Array (ohne Bereichsprüfung) und über SetLength kann man nur dynamische Arrays behandeln.

Wenn, dann könnte man also nur den Speicher für den ganzen Record reservieren.

Delphi-Quellcode:

type PDLI = ^DLI;

var X: PDLI;

X := GetMemory(SizeOf(DLI) + (PE_Count - 1) * SizeOf(PI));

Ich hatte es mir allerdings einfach gemacht und it diese Records/Arrays selbstdefiniert und die Arrays mit einer maximal zu erwartenden Größe deklariert, als ich das letzte Mal mit sowas arbeitete.

[edit]
oder so