Delphi判断文件大小

大概有这些方法可以获得文件大小
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()的函数。

Delphi判断文件大小相关推荐

Delphi判断一个文件是不是JPG图片
Delphi判断一个文件是不是JPG图片文件 function IsJpegFile(FileName: string): Boolean; const RightBuf : array[0..3] ...
Delphi判断文件是否正在被使用
Delphi判断文件是否正在被使用 2010-07-06 19:48 首先,我们先来认识下CreateFile函数,它的原型如下 HANDLE CreateFile( LPCTSTR lpFileNa ...
Delphi判断是否为周末？今天是周几？
Delphi中的DayOfTheWeek返回今天是周几,返回值是整数,从1到7,分别表示周一,到周日,周六是6,周日是7. 判断今天是否是周末 uses System.DateUtils; //需要引 ...
c语言如何在读文件前判断文件大小,c语言获取文件大小，判断文件是否存在
#import // 判断文件是否存在 bool file_exists(const char *filename){ return access(filename, 0) == 0; } //获取文 ...
c 语言求文件大小,C程序中如何读取目录中的文件并判断文件大小等信息
读取目录内容应用程序可以用readdir系列函数来读取目录内容. #include #include DIR *opendir(const char *name); //成功返回目录指针,失败返回N ...
delphi 判断两个时间差是否在一个指定范围内
WithinPastYears.WithinPastMonths.WithinPastWeeks.WithinPastDays ... 判断两个时间差是否在一个指定范围内 DateUtils.With ...
delphi判断线程是否正在运行
相关资料: http://www.delphitop.com/html/xiancheng/376.html 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi ...
PYTHON文件读写以及判断文件大小
文件读写阅读: 22384 评论:4 到目前为止,我们做的一切操作,都是在内存里进行的.如果一旦断电或发生意外,那么你的工作成果将瞬间消失.你有没有一种人生缺少了点什么的感觉?是的,我们还缺少将数据 ...
Delphi 判断一个对象是否存在(赋值)的三种办法
基本知识: 判断一个对象是否存在(赋值)的三种办法如下: if obj <> nil then if Boolean(obj) then if Assigned(obj) then 大家说 ...

Delphi判断文件大小

Delphi判断文件大小相关推荐

最新文章

热门文章