Delphi 中获取文件大小
来源:互联网 发布:vmware fusion 10 mac 编辑:程序博客网 时间:2024/06/05 11:58
大概有这些方法可以获得文件大小
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()的函数。
0 0
- delphi 中获取文件大小
- delphi 中获取文件大小
- delphi 中获取文件大小
- Delphi 中获取文件大小
- VC中获取文件大小
- Shell中获取单个文件大小
- C语言中获取文件大小的方法
- C++中如何获取文件大小的总结
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- C语言中获取文件大小的函数
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- file上传文件,js中获取文件大小
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- oracle数据库简易故障排查之死锁处理
- java中final用在参数中表示什么?
- Android 省市县 三级联动(android-wheel的使用)
- STL源码剖析
- 间隔像素相等 图片显示距离不相等
- Delphi 中获取文件大小
- Linux网络编程 - TCP高级应用:socket文件描述符属性控制
- [经典]差不多先生传
- C++生成不重复的随机数
- Asp.Net 动态生成验证码
- Ajax 传递数组到后台
- struts2 validation.xml 验证
- 解决移动端点击事件延迟300ms
- 用.NET获取汉字的区位码