Delphi中获取文件大小
2016-02-19 10:29
477 查看
大概有这些方法可以获得文件大小
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()的函数。
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()的函数。
相关文章推荐
- I/O error 32/103
- Delphi 7 在程序中直接执行SQL脚本文件
- Delphi中如何拦截键盘消息
- Delphi:解决重绘造成的窗体闪烁问题
- Delphi将图片缩放成指定大小
- Delphi 从PaintBox拷贝一部分内容到TBitmap
- Delphi 之Copyrect的使用
- delphi中Message消息的使用方法
- Delphi XE7 开发ActiveX 及在IntraWeb下调试
- Delphi CompareValue函数的使用
- Delphi 操作“任务栏”
- Delphi BPL包的运用
- 2016年 Delphi Roadmap
- Delphi 中的字符串
- Delphi + Asm - TBits类的学习
- Delphi - XP扫雷外挂制作
- Delphi - SEH研究
- Delphi - 闲来无事,自己写个Timer玩玩(多线程Timer)
- 先有Delphi内存对象,后有句柄(如果需要的话),最后再显示
- 终于懂了:FWinControls子控件的显示是由Windows来管理,而不是由Delphi来管理(显示透明会导致计算无效区域的方式有所不同——透明的话应减少剪裁区域,所以要进行仔细计算)