Store filstørrelser i Delphi?

lav din integer til longint.

Det vil da ikke hjælpe noget, da jeg for det første alligevel skal have filstørrelsen returneret fra systemet. Den funktion jeg kender er gennem FindFirst hvor der benyttes TSearchRec, og dens 'Size' property er en Integer.

For det andet, så er Integer det samme som Longint, i hvert fald i den Delphi jeg benytter (Delphi 7). Begge har en range der hedder: -2147483648..2147483647

Hvis jeg bare kunne skifte typen, så brugte jeg en Int64, men det kræver jo at alle funktionerne i systemet understøtter dette, og det gør de ikke..

kunne man ikke bare smide værdien over i en cardinal?
(32 bit unsigned integer).

Det kunne man måske nok, men så er man kun garanteret op til omkring 4GB, og hvad så når filen bliver større end dette? Det er en mulig løsning, men det er ikke en der holder på lang sigt. Desværre..

Kan godt se dit problem, men ingen løsning. Nu har du ikke skrevet noget om formatet af filen, men måske kunne man komme igennem med base:offset løsnignen:

myRecord : Array[1..1024] of Byte;
File of myRecord;

Dvs. du adresserer et record number og får således fat i ex. 1 kB ad gangen.

JP

Den sad jeg faktisk selv og rodede med, men så kommer problemet, hvordan får jeg den præcise størrelse? Der er jo en fejlmargin på 0-1023 bytes i denne løsning, og selvom det måske ikke lyder af så meget, så er det dog et problem i længden når filstørrelsen skal være nøjagtig. (Ja, folk kan være ret besværlige på det område)

Jeg har ikke lige 4GB fil jeg kan teste på, men prøv nedenstående

procedure TForm1.Button1Click(Sender: TObject);
var
f: file of Byte;
size: int64;
begin

AssignFile(f, 'd:\fil.xxx');
Reset(f);
try
size := FileSize(f);
finally
CloseFile(f);
showmessage('Filen er '+ inttostr(size)+' kb' );
end;
end;

Stoney

Dette piner mig lidt, men jeg kan ud fra koden allerede nu se at det ikke vil virke, da FileSize returnerer en Integer, ikke en Int64. Jeg har heller ikke selv en 4 GB fil, da det er noget jeg laver for en anden.

function _FileSize(var f: TFileRec): Longint;
....

API-kaldet som filesize bruger....

DWORD GetFileSize(
  HANDLE hFile,
  LPDWORD lpFileSizeHigh
);

Din fil kan være op til 16777216 Terrabyte.... det må da være nok

Du er nød til at bruge de Windows API I/O funktioner, der understøtter filer > 4GB.

GetFileSizeEx(),SetFilePointerEx() etc...

Du er nød til selv at lave prototyper - de er i hvert tilfælde ikke i min D5 Prof.


loke-liscom> GetFileSize returnerer i en DWORD - altså en alm integer.

Du kan gå ind og læse filen (det tager faktisk ikke så lang tid):

procedure TForm1.Button2Click(Sender: TObject);
const
  buflen = 1000;
var
  f: file;
  i: longint;
  NumRead: word;
  buf: array[1..buflen] of char;
begin
  i := -1;
  assignfile(f,'C:\TEMP\TEST.TXT');
  reset(f,1);
  repeat
    inc(i);
    blockread(f,buf,buflen,NumRead);
  until Numread <> buflen;
  closefile(f);
  showmessage(inttostr(i)+' tusind '+inttostr(Numread)+' bytes.');
end;

Du kan selvfølgelig også gange sammen (1000*i+Numread) hvis du har en stor nok variabel.

Ja, det er rigtigt nok at GetFileSize understøtter vildt store filer, men det hjælper jo ikke noget hvis FileSize returnerer en Integer, og _FileSize returnerer en Longint. De har jo samme størrelse, og samme range.. Måske en løsning der benytter de API kald som f.eks. GetFileSize, selvom jeg ikke helt kan gennemskue hvordan jeg får fat på det handle jeg skal bruge.. Har desværre ikke arbejdet vildt meget med WinAPI.

function FileSize(var F): Integer;

Retunere en integer, (32 bit signed), i hvertfald i D5

Hvis du skal være helt sikker på at få størelsen ud i en QWord (Quad Word), så skal du bruge En FindFirst.

altså sådan her :

function JBGetFileSize(const FileName : TFileName) : Int64;
var
  SearchRec : TSearchRec;
begin
  Result := -1;
  if FindFirst(FileName, FaAnyFile, SearchRec) = 0 then
  begin
    Result := SearchRec.FindData.nFileSizeHigh;
    Result := Result shl 32;
    Result := Result +  SearchRec.FindData.nFileSizeLow;
    FindClose(SearchRec);
  end;
end;


Desværre mangler Delphi en QWORD (mig bekendt) så du må nøjes med en Int64.

Jens B

eller lidt simplere :

function JBGetFileSize(const FileName : TFileName) : Int64;
var
  SearchRec : TSearchRec;
begin
  Result := -1;
  if FindFirst(FileName, FaAnyFile, SearchRec) = 0 then
  begin
    Result := SearchRec.FindData.nFileSizeHigh shl 32 +  SearchRec.FindData.nFileSizeLow;
    FindClose(SearchRec);
  end;
end;

Her her hvad du skal bruge...

function GetFileSizeEx(hFile: THandle; PLargeInteger: Pointer): DWORD;  stdcall; external kernel32;

function SetFilePointerEx(hFile: THandle; lDistanceToMove: LARGE_INTEGER; lpDistanceToMoveHigh: PLargeInteger; dwMoveMethod: DWORD): DWORD; stdcall; external kernel32;

procedure Test;
var
  hFile    : THANDLE;
  FileSize  : LARGE_INTEGER;
  Buffer    : array[0..2047] of byte;
  dwCount  : DWORD;
  FilePos  : LARGE_INTEGER;
begin
  hFile := CreateFile('c:\whatever.fil',GENERIC_READ or GENERIC_WRITE,0,0,OPEN_EXISTING,0,0);
  if hFile = INVALID_HANDLE_VALUE then
    begin
      ShowMessage(Format('Error : %d',[GetLAstError]));
    end;
  GetFileSizeEx(hFile,@FileSize);
  ShowMEssage(IntToStr(FileSIze.QuadPart));

  FilePos.QuadPart := 200;
  SetFilePointerEx(hFile,FilePos,@FilePos,FILE_BEGIN);

  ReadFile(hFile,Buffer,100,dwCount,nil);
  if dwCount <> 100 then SHowMEssage('Hmm kunne ikke læse 100 bytes');

  WriteFile(hFIle,Buffer,100,dwCount,nil);
  if dwCount <> 100 then SHowMEssage('Hmm kunne ikke skrive 100 bytes');

  CloseHandle(hFile);
end;

Den retunerer stadig kun en DWORD !!!

Jens B

Takker Jens. Det var lige det der skulle til. Hvis jeg havde nærlæst den del af manualen havde jeg sikkert også fundet det, men skidt, nu fandt du det, og jeg kan komme videre. ^_^

Tak til alle jer andre som også kom med forslag, flere af dem meget gode. I er alle kanon! :o)

Fejl i prototypen på GetFileSizeEx .. Returværdien er en BOOL...

Undre mig en smule over afvisningen af svaret...

Ganske simpelt den grund, at Jens Borrisholt gav mig det svar jeg bedst kunne bruge. Det kan integreres direkte, og returnerer en Int64, nøjagtig som jeg skrev ville være lækkert.