IOCTL_STORAGE_GET_DEVICE_NUMBER, DRIVE_GEOMETRY und DRIVE_LAYOUT

[Alter Mann]

Moin, Moin

so die letzten Änderungen sind eingeflossen und im ersten Beitrag hinterlegt.
Den geneigten Leser sei ans Herz gelegt nicht alles was hier bisher geschrieben
wurde ist mit Substanz hinterlegt. So wurden Änderungen vorgeschlagen
ohne sie selbst vorher zu prüfen (sprich durch den Compiler zu jagen) bzw.
und das ist meine Schuld, der Code im Anhang benutzt zu haben ohne auf die Änderungen im
abgebildeten Code einzugehen. Ein Vergleich der entsprechenden Fehler-Stellen hätte gereicht.

Einige Sachen wurden mit Absicht nicht übernommen, so ist zum Beispiel:

Delphi-Quellcode:

…
function GetDeviceNumber(const aPhysicalDrive : Byte;
                         var aDynDeviceRec : TDynDeviceRec) : Boolean; overload;
var
  pVolume         : PChar;
  dwSize          : DWORD;
  hVolume         : THandle;
  DG              : DISK_GEOMETRY;
  pDLI            : PDRIVE_LAYOUT_INFORMATION;
  lpBytesReturned : DWORD;
  I, piCount,
  dliSize         : Integer;
begin
  Result  := false;
  dwSize  := Length(Format('\\.\PHYSICALDRIVE%d', [aPhysicalDrive])) + 1;
  pVolume := StrAlloc(dwSize);
  try
    StrPCopy(pVolume, Format('\\.\PHYSICALDRIVE%d', [aPhysicalDrive]));
    hVolume := CreateFile(pVolume,
…

drin geblieben, auch wenn himitsu anderer Meinung ist. Eine Verkürzung auf:

Delphi-Quellcode:

…
function GetDeviceNumber(const aPhysicalDrive : Byte;
                         var aDynDeviceRec : TDynDeviceRec) : Boolean; overload;
var
  hVolume         : THandle;
  DG              : DISK_GEOMETRY;
  pDLI            : PDRIVE_LAYOUT_INFORMATION;
  lpBytesReturned : DWORD;
  I, piCount,
  dliSize         : Integer;
begin
  Result  := false;
  try
    hVolume := CreateFile(PChar(Format('\\.\PHYSICALDRIVE%d', [aPhysicalDrive]),
…

brachte irgendwelche Pseudobezeichnungen und falsche Rückgabewerte.

Meinen Dank an allen die geholfen haben, dass das Beispiel unter D7 genauso läuft wie unter D2009.

Alter Mann

[Dezipaitor]

himitsus Weg ist an sich schon der richtige.
Alter Mann, du gehst den C Weg und allokierst Speicher für Strings, was in Delphi ja garnicht notwendig ist. Man arbeitet solange mit dem Typ String bis eine WinAPI ein PWideChar will und konvertiert ihn dann dahin.

Ich hatte auch schon einige Probleme mit der Formatfunktion, wenn man den Wert direkt in PWideChar wandelt. Deshalb sollte man den Rückgabewert in eine Stringvariable speichern und diese dann an die WinAPI übergeben.

StrAlloc ist übrigens aus Kompatibilitätsgründen vorhanden und sollte nicht mehr verwendet werden.

JwaWindows und Windows sollte man nicht gleichzeitig verwenden, da die Typen nicht kompatibel/austauschbar für Delphi sind.

[himitsu]

Was sind denn diese "irgendwelche Pseudobezeichnungen" gewesen?


Solange der Wert, welcher nach PChar konvertiert wurde, nur innerhalb der aufrufenden Funktion genutzt wird (bei CreateFile ist das der Fall), sollte es eigentlich keine Probleme geben.

Delphi legt für das Result von Format automatisch eine temporäre Variable an und konvertiert erst danach nach PChar.
Diese temporäre Variable wird erst nach dem Aufruf dieser Funktion freigegeben (am Ende der Procedur/Funktion in welcher dieses genutzt wurde) oder zwecks Optimierung wiederverwendet (z.B. innerhalb von Schleifen).

[Dezipaitor]

Sollte man denken, aber Erfahrung sitzt tiefer.

[himitsu]

Zitat von Dezipaitor:

Sollte man denken, aber Erfahrung sitzt tiefer.

Meine Erfahrung war, daß ich bisher mit Format+PChar noch keine Probleme hatte.
Nja, vielleicht habt ihr einen der extrem selten Delphi-Bugs gefunden.

[Dezipaitor]

Wäre nicht das erste Mal.

[DevidEspenschied]

Ich wollte heute mal die überarbeitete Version ausprobieren.

Das Auslesen logischer Laufwerke funktioniert problemlos. Das Auslesen physikalischer Laufwerke liefert eine Exception:

Im Projekt DI.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00464663 in Modul 'DI.exe'. Lesen von Adresse 00000000' aufgetreten.

Das ganze geschieht in der Datei uDevice.pas in Zeile 367. Falls ich hier was testen soll, bitte um Mitteilung genauerer Daten.