DiskFree [ gelöst ]

[corpsman]

Guten Morgen,

ich versuche gerade den noch freien Platz auf einer Festplatte, und oder einem Wechselmedium zu ermitteln, doch leider geht das so :

Code: Alles auswählen

var 
  dest:String;  
  value:Int64;
begin
  dest := '/Home/lazarus';
  value := DiskFree(addDisk( ExtractFilePath(dest)));
end;

nicht. das Ergebniss ist immer -1 Obwohl es laut Hilfe so gehen müste

[Edit]

Unabhängig davon, hab ich mir mal die Sysutils.pas angesehen da steht :

Code: Alles auswählen

var
  Drives   : byte;
  DriveStr : array[4..26] of pchar;
 
Function AddDisk(const path:string) : Byte;
begin
  if not (DriveStr[Drives]=nil) then
   FreeMem(DriveStr[Drives],StrLen(DriveStr[Drives])+1);
  GetMem(DriveStr[Drives],length(Path)+1);
  StrPCopy(DriveStr[Drives],path);
  inc(Drives);
  if Drives>26 then
   Drives:=4;
  Result:=Drives;
end;

Müste das nicht

Code: Alles auswählen

Drives   : byte= 4;

heisen ?
Denn so gibt mir adddrive erst mal 1 zurück und das ist ja falsch, der 1. wert den es mir zurückgeben sollte müste 4 sein.

[theo]

Da wurde im Februar mal was gefixt:
http://svn.freepascal.org/cgi-bin/viewv ... ortby=date

[corpsman]

hmm, ich nutze die SVN ( revision 21815 ) version, wieso ist das dann in meiner nicht auch schon gefixt ?

[Edit ]

grad erklärt mir jemand das das im FPC Packet ist. Da habe ich die version 2.2.4-3 installiert, ohne SVN, weil ich nicht weis wie das mit SVN geht ...

d.h. ich mus mir dann ein neueres FPC Packet organisieren, weis da jemand zufällig ein Repository ? oder mus ich da bis Karmic warten ?

[theo]

hmm, ich nutze die SVN ( revision 21815 ) version, wieso ist das dann in meiner nicht auch schon gefixt ?

Weil die RTL zum Compiler gehört?

[corpsman]

hier steht ja wie ich an einen neuen FPC source mittels svn bekomme, aber mus ich das dann nicht noch irgendwie compilieren ?

wenn ich lazarus via svn geupdatet habe mus ich das ja immer Builden, wie macht man das mit FPC ?

[Scotty]

Terminal->make

Alle weiteren Probleme lassen sich per Google klären.

[corpsman]

*g*

auf make bin ich natürlich nicht gekommen, danke .