Int64 und Delphi 3

[Lannes]

Hallo,

Zitat von Ati:

@Chegga
Das funktioniert nicht mit Festplatten >2GB

das kann auch nicht, in Delphi 3 gibt DiskSize einen Integer zurück:
function DiskSize(Drive: Byte): Integer; und GetDiskFreeSpaceEx wird mit Int64 unter Delphi 3 so auch nicht funktionieren,
da es so deklariert ist:

Delphi-Quellcode:

function GetDiskFreeSpaceEx(lpDirectoryName: PChar; 
  var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: Integer;
  lpTotalNumberOfFreeBytes: PInteger): BOOL; stdcall;

@Ati:
Hast Du das Programm in der Zip (http://www.efg2.com/Lab/Library/Delp...paceKludge.ZIP) aus meinem Beitrag ausprobiert?
Es liefert richtige Werte, zumindest bei XP.

Das tut der folgende Code, den ich so ähnlich unter XP und NT nutze, auch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var SectorsPerCluster,
    BytesPerSector,
    NumberOfFreeClusters,
    TotalNumberOfClusters : DWORD;
    Cluster, Gesamt, Frei: double;
begin
  GetDiskFreeSpace(PChar('C:\'), SectorsPerCluster, BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters);
  Cluster := SectorsPerCluster * BytesPerSector;
  Gesamt := Cluster * TotalNumberOfClusters;
  Frei := Cluster * NumberOfFreeClusters;
  showmessage('Freier Speicherplatz: '+FormatFloat('#,##0',Frei));
  showmessage('Gesamte Speichergröße: '+FormatFloat('#,##0',Gesamt));
end;

Das sagt Microsoft dazu:
GetDiskFreeSpace

[Ati]

@Flocke
Dein Code funktioniert so nicht. Delphi meckert bei LARGE_INTEGER (undefinierter Bezeichner). Auch einändern in TLargeInteger bringt nichts. Auch eine Fehlermeldung:
"Die Typen der tatsächlichen und formalen Var-Parametermüssen übereinstimmen"

@Lannes
Dein Code funktioniert einwandfrei. Vielen Dank werde mir den Code nochmal genauer anschauen um ihn auch wirklich zu verstehen!!!!

Ati

[Flocke]

Zitat von Ati:

@Flocke
Dein Code funktioniert so nicht. Delphi meckert bei LARGE_INTEGER (undefinierter Bezeichner). Auch einändern in TLargeInteger bringt nichts. Auch eine Fehlermeldung:
"Die Typen der tatsächlichen und formalen Var-Parametermüssen übereinstimmen"

Hab (wie gesagt) kein Delphi 3.

Wenn die Deklaration von Lannes richtig ist, dann müsstest du es so schreiben können:

Delphi-Quellcode:

var
  iFreeBytesAvailable, iTotalNumberOfBytes, iTotalNumberOfFreeBytes: LARGE_INTEGER;
  xFreeBytesAvailable, xTotalNumberOfBytes, xTotalNumberOfFreeBytes: Extended;
begin
  GetDiskFreeSpaceEx('C:', PInteger(@iFreeBytesAvailable)^, PInteger(@iTotalNumberOfBytes)^, PInteger(@iTotalNumberOfFreeBytes));
  xFreeBytesAvailable := LoadInt64(iFreeBytesAvailable);
  ...
end;

Die Variante von Lannes wird aber dasselbe ausrechnen.

[Chegga]

Hi,

Zitat von Ati:

Das funktioniert nicht mit Festplatten >2GB

In Delphi 3 scheint das wirklich nicht zu klappen!
Wenn ich meinen Code mit Delphi 7 mache,
klappt alles ohne Probleme.

MfG Marc