Delphi 中获取文件大小
2016-09-05 09:43
561 查看
大概有这些方法可以获得文件大小
FileSizeByName(需要引用IdGlobal单元)
GetFileSize
FileSize(不能获得正在使用的文件大小)
FileSeek
TFileStream.Size
下面是使用例子
1. FileSizeByName(需要引用IdGlobal单元)
begin
if OpenDialog1.Execute then
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;
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;
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;
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;
end;
另在IdGlobalProtocols中有个FileSizeByName()的函数。
FileSizeByName(需要引用IdGlobal单元)
GetFileSize
FileSize(不能获得正在使用的文件大小)
FileSeek
TFileStream.Size
下面是使用例子
1. FileSizeByName(需要引用IdGlobal单元)
begin
if OpenDialog1.Execute then
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;
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;
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;
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;
end;
另在IdGlobalProtocols中有个FileSizeByName()的函数。
相关文章推荐
- Delphi 获取指定目录下文件的大小
- [Delphi] 快速获取文件大小
- delphi 中获取文件大小
- Delphi获取文件的大小(实际&物理)
- delphi 中获取文件大小
- Delphi中获取文件大小
- Delphi 快速获取文件大小
- [代码]Delphi实现获取文件及文件夹大小(支持超过2G的大文件)
- delphi 中获取文件大小
- delphi 中获取文件大小
- [导入]Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)(一)
- Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- 如何获取指定文件的大小?
- [导入]Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)(二)
- 在Delphi中获取和修改文件的时间
- Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- 怎么样得到文件的大小?(DELPHI)
- 获取文件夹大小并且显示为易于读取的文件单位
- 如何获取指定文件的大小
- 获取指定目录下的所有文件(delphi)