delphi 中获取文件大小

转载 2011年11月08日 13:41:42
delphi 中获取文件大小
2008年05月15日 星期四 上午 11:35
大概有这些方法可以获得文件大小
FileSizeByName(需要引用IdGlobal单元)
GetFileSize
FileSize(不能获得正在使用的文件大小)
FileSeek
TFileStream.Size

下面是使用例子
1。FileSizeByName(需要引用IdGlobal单元)
begin
if OpenDialog1.Execute then
begin
ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));
end;

2。GetFileSize
var
FileHandle:integer;
begin
if OpenDialog1.Execute then
begin
FileHandle := FileOpen(OpenDialog1.FileName, 0);
ShowMessage(IntToStr(GetFileSize(FileHandle, nil)));
FileClose(FileHandle);
end;

3。FileSize(不能获得正在使用的文件大小)
var f: file;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f, 1);
ShowMessage(IntToStr(FileSize(f)));
CloseFile(f);
end;

4。FileSeek
var
FileHandle:integer;
begin
if OpenDialog1.Execute then
begin
FileHandle := FileOpen(OpenDialog1.FileName, 0);
ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));
FileClose(FileHandle);
end;

5。TFileStream.Size
var
FS: TFileStream;
begin
if OpenDialog1.Execute then
begin
FS := TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone);
ShowMessage(IntToStr(FS.Size));
FS.Free;
end;

另在IdGlobalProtocols中有个FileSizeByName()的函数。
function GetFileSize(const FileName: String): LongInt;
var SearchRec: TSearchRec;
begin
  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0then
   Result := SearchRec.Size
  else

相关文章推荐

GetFileSize 函数(转)

该函数用于获取指定文件的大小(长度),获取的大小限制在 0xFFFFFFFF 以内。 若要获取长度超过 0xFFFFFFFF 的文件大小,请使用 GetFileSizeEx 函数。定义DWORD...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi Locate 详解1

TDataSet控件以及它的继承控件,例如TSimpleDataSet/TClientDataSet等都可以使用Locate方法在结果数据集中查寻数据。程序首先必须使用SQL命令从后端数据库中取得数据...

Delphi中DataSet类型组件的Locate函数的用法

Delphi中连接数据库时,DataSet类型的组件是必用滴,比如:TADOTable组件和TADOQuery组件。而这些组件的Locate函数又是个非常方便的函数,它的功能就是根据关键字定位,而它的...

delphi 取图片宽高

Var         Bmp:TBitMap;         Stream:TMemoryStream;     begin         Bmp   :=TBitMap.Create;    ...
  • xwchen
  • xwchen
  • 2007年09月24日 20:43
  • 2383

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi XE10写的转换图像文件大小,用于生成安卓和IOS的小图标和启动画面

记不清是从哪年开始学Delphi的了,可能是从Delphi 1.0开始用的,一直用到D7,然后工作变动,不再写经常代码,但一直保持关注,最近XE10的出现,让我对Delphi移动开发产生了兴趣。学习时...
  • ht99
  • ht99
  • 2015年11月30日 15:18
  • 2194

android 获取本地缓存文件大小,删除功能

博客地址:http://blog.csdn.net/wwj_748/article/details/42737607 前言 本篇博客要给大家分享的如何获取应用缓存的大小和清除缓存的功能,我们知道我...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 中获取文件大小
举报原因:
原因补充:

(最多只允许输入30个字)