Laufwerkgrössen ermitteln

[himitsu]

Ja, das ist bissl verwirrend, aber auch recht einfach.

Laufwerke haben zwar eine ID (GUID), aber diese Laufwerksnummer hier ist einfach nur stumpf durchgezählt ... ich denke mal, das ist noch ein Überbleibsel aus DOS.


A = 0
B = 1
C = 2
usw.

Code:

* das Laufwerk
    * dein I
      * der richtige Index
C:\ 0 2
D:\ 1 3
E:\ 2 4
S:\ 3 18

Chr(i+64) entspricht einem Chr(i + Ord('A')) (binär ist es das Selbe ... nur das eine ist etwas Verständlicher)
und siehe oben, andersrum kann man auch aus einem Laufwerksbuchstaben die Laufwerksnummer berechnen, also Ord(C) - Ord('A') .

Wofür die Nummer allerdings gut ist, das sieht man an GetLogicalDrives, weches ein DWORD zurückgibt, bzw. quasi ein set of 0..31 .
Aber als set of 'A'..'Z' (eigentlich set of 'A'..'`' , da ja mehr Felder, als Buchstaben), wäre es wieder verständlicher gewesen.

[Delbor]

Hi zusammen

Vor einiger Zeit hab ich auch das noch gefunden und hab mir die Demo dazu gleich mal gedownloaded. Die Grössenangaben zu einer ausgewählten Disk stimmen allerdings nicht im entferntesten. Nachvollziehen, wieso das so ist, konnte ich bislang nicht.

Im Moment komme ich jedenfalls keinen Schritt weiter.

Gruss
Delbor

[Delphi.Narium]

Es dürfte sich um ein Festplatte mit ca. 4 TB handeln.

Fraglich ist halt, ob man zur Berechnung die

1. Variante
1 kb = 1024 Byte
1 mb = 1024 kb
1 gb = 1024 mb
1 tb = 1024 gb

oder die

2. Variante
1 kb = 1000 Byte
1 mb = 1000 kb
1 gb = 1000 mb
1 tb = 1000 gb

nutzt.

Das von Dir gefundene Programm nutzt die zweite Variante und die Abweichungen gegenüber der ersten sind im Terrabytebereich dann schon mal nicht eben so ganz unerheblich.

Statt

Delphi-Quellcode:

  Label11.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          TotCls)/1000000) + ' MB';
  Label12.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          FreeCls)/1000000) + ' MB';

mal mit

Delphi-Quellcode:

  Label11.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          TotCls) / (1024 * 1024)) + ' MB';
  Label12.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls *
                                          FreeCls) / (1024 * 1024)) + ' MB';

probieren. Entsprechen die Ergebnisse dann eher Deinen Vorstellungen?

Das Betriebssysteme nutzt die erste Variante.
Festplattenhersteller nutzen für die Kapazitätsangaben gerne die zweite Variante.

Durch diesen "Rechenunterschied" hat eine 1 TB-Platte mit Herstellerangaben nach Variante 2 beim Betriebssystem dann "nur noch" eine Kapazität von 909,49 GB.
Bei einer 4 TB-Platte bleiben dann "nur noch" 3,64 TB übrig (ergibt eine Abweichung von etwa 9%).

Zitat von Delbor:

Die Grössenangaben zu einer ausgewählten Disk stimmen allerdings nicht im entferntesten.

Bechreib' doch einfach mal, was Du erwartest und was angezeigt wird.
Hätte den Vorteil, dass man eine Vorstellung vom Fehler (und seiner Größenordnung) bekommen könnte.

[Delbor]

Hi Delphi.Narium

Zitat von Delphi.Narium:

Es dürfte sich um ein Festplatte mit ca. 4 TB handeln.

Ich geh mal davon aus, dass du dich auf die obige Abbildung des Programms und die Auswahl von "D:\OfficeDisk" beziehst - Besagtes Volume ist eine Partition mit einer Gesamtgrösse von 24.9 GB und befindet sich eigentlich auf "F:\DatabaseDisk" (2TB); Eine weitere Partition ist "E:\Developerdisk" mit einer Grösse von 149 GB, ebenfalls auf "F:\".

@himitsu:

Delphi-Quellcode:

* das Laufwerk
    * dein I
      * der richtige Index
C:\ 0 2
D:\ 1 3
E:\ 2 4
S:\ 3 18

Wenn ich das richtig interpretiere, sollte ich das Array zB. mit einer Whileschleife durchlaufen können und erst ab dem 2.Index reagieren. Soweit nicht wirklich unverständlich - das letzte Element bliebe so oder so nach diesem Beispiel Laufwerk S.
Die Sache scheint mir aber einen Haken zu haben: Die Laufwerke, die statt einer Grössenangabe ein '-1' ausweisen, befinden sich so oder so mitten im Array.

Gruss
Delbor

[Delbor]

Hi zusammen

Inzwischen hab ich auch noch weiter gesucht, auch in Sachen Bit&Byte-Umrechnung und versucht, mit der gefundenen Demo auf 'einen grünen Zweig' zu kommen. Was ich dabei gefunden habe: GetDiskFreeSpace ist offenbar veraltet. Zumindest hab ich im Embarcadero-Wikki vergebens danach gesucht. Hingegen hab ich eine Bool-Funktion GetDiskFreeSpaceEx gefunden, allerdings bisher nicht aufrufen können.
Mal zum Vergleich die gefundene Anwendung und die Anzeige des Explorers:
14_22_32-Vol_Info - Delphi 10.4 - Main 3.jpg
Explorer.jpg
Der Code zu der Ausgabe dieses Programmes:

Delphi-Quellcode:

  GetDiskFreeSpace(PChar(drv), SectPerCls, BytesPerCls, FreeCls, TotCls);
  Showmessage( 'SectPerCls  := ' + IntToStr(SectPerCls) + sLineBreak +
               'BytesPerCls := ' + IntToStr(BytesPerCls) + sLineBreak +
               '    FreeCls := ' + IntToStr(FreeCls) + sLineBreak +
               '    TotCls  := ' + IntToStr(TotCls));

  Label11.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls * TotCls)/(1024*1024*1024)) + ' GB';

  Label12.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls * FreeCls)/(1024*1024*1024)) + ' GB';

...und ShowMessage:

ShowMessageDlg 1.jpg

Gruss
Delbor

[himitsu]

Das sucht man auch nicht im Delphi, sondern beim Hersteller.
GetDiskFreeSpace
GetDiskFreeSpaceEx

Und wenn eine API noch nicht im Delphi drin ist, dann entweder einen fremden API-Header suchen (z.B. JEDI)
oder einfach selbermachen ... steht ja beim Hersteller, wie es aussehen muß. (braucht man nur noch von C++ nach Pascal/Delphi zu übersetzen)

[Delphi.Narium]

Zitat von Delbor:

Inzwischen hab ich auch noch weiter gesucht, auch in Sachen Bit&Byte-Umrechnung und versucht, mit der gefundenen Demo auf 'einen grünen Zweig' zu kommen.

Das Problem der Demo ist: Altes Delphi und (vor allem) alte API-Funktionen, die nur bei Werten bis 2 GB richtig arbeiten. Alles, was über den Maximalwert von Integer (2147483647) hinausgeht, scheitert. Und durch diverse Überläufe beim Umgang, rechnen, ... mit diesen Werten, kommen mehr oder weniger (realitätsferne, kaum nachvollziehbare Pseudo-) Zufallswerte dabei heraus.

[Delbor]

Hi zusammen

In Sachen GetDiskFreeSpaceEx hab ich noch ganz was interessantes gefunden

Gruss
Delbor