Bytes in file

[guest48704]

  I have this code that returns the bytes in a file, except it will only give
the byte count for a file that is in the same folder as the executable.

Code: [Select]

procedure TForm1.FileBytes(FileNm : string);
var f : textfile; ttlBytes, AHandle : integer;
begin
     //get bytes in file
     AHandle := FileOpen(PChar(FileNm), fmShareDenyNone);
     ttlBytes := GetFileSize(AHandle, nil);
     FileClose(AHandle);

     ShowMessage(inttostr(ttlBytes));

  Executing like this: FileBytes('C:\folder\file.txt'); give a file size of -1.

Anyone know of a way to get it to work with the path included?

Thanks

[guest48704]

Got it to work this way:

Code: [Select]

procedure TForm1.Test1Click(Sender: TObject);
var
   infile: file of byte;
   Infilename: string;
   size: longint;
begin
infilename := 'C:\Lazarus\EncryptDecrypt\afolder\myfile';
Assignfile(infile, infilename);

size := FileSize(infilename);
ShowMessage(inttostr(size));
end;


[winni]

Try it the pascal way:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FileBytes (Fname : String);
2. var f : file of byte; bytes: integer;
3.  
4. begin
5. assignFile (f, fname);
6. reset (f);
7. bytes := Filesize (f);
8. closeFile(f);
9. showMessage (IntToStr(bytes));
10. end;
11.  

Winni

[winni]

Only silver medal. Sighh!

Winni