delphi 中获取文件大小

源码资源网

delphi 中获取文件大小

1. 大概有这些方法可以获得文件大小
   
2. FileSizeByName（需要引用IdGlobal单元）
   
3. GetFileSize
   
4. FileSize（不能获得正在使用的文件大小）
   
5. FileSeek
   
6. TFileStream.Size
   
7. 
   
8. 下面是使用例子
   
9. 1。FileSizeByName（需要引用IdGlobal单元）
   
10. begin
    
11. if OpenDialog1.Execute then
    
12. begin
    
13. ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));
    
14. end;
    
15. 
    
16. 2。GetFileSize
    
17. var
    
18. FileHandle:integer;
    
19. begin
    
20. if OpenDialog1.Execute then
    
21. begin
    
22. FileHandle := FileOpen(OpenDialog1.FileName, 0);
    
23. ShowMessage(IntToStr(GetFileSize(FileHandle, nil)));
    
24. FileClose(FileHandle);
    
25. end;
    
26. 
    
27. 3。FileSize（不能获得正在使用的文件大小）
    
28. var f: file;
    
29. begin
    
30. if OpenDialog1.Execute then
    
31. begin
    
32. AssignFile(f, OpenDialog1.FileName);
    
33. Reset(f, 1);
    
34. ShowMessage(IntToStr(FileSize(f)));
    
35. CloseFile(f);
    
36. end;
    
37. 
    
38. 4。FileSeek
    
39. var
    
40. FileHandle:integer;
    
41. begin
    
42. if OpenDialog1.Execute then
    
43. begin
    
44. FileHandle := FileOpen(OpenDialog1.FileName, 0);
    
45. ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));
    
46. FileClose(FileHandle);
    
47. end;
    
48. 
    
49. 5。TFileStream.Size
    
50. var
    
51. FS: TFileStream;
    
52. begin
    
53. if OpenDialog1.Execute then
    
54. begin
    
55. FS := TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
    
56. ShowMessage(IntToStr(FS.Size));
    
57. FS.Free;
    
58. end;
    
59. 
    
60. 另在IdGlobalProtocols中有个FileSizeByName()的函数。

复制代码