delphi 中获取文件大小
来源:互联网 发布:动态导入java 编辑:程序博客网 时间:2024/06/07 18:32
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;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()的函数。
var SearchRec: TSearchRec;
begin
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) =0then
Result := SearchRec.Size
else
- delphi 中获取文件大小
- delphi 中获取文件大小
- delphi 中获取文件大小
- Delphi 中获取文件大小
- VC中获取文件大小
- Shell中获取单个文件大小
- C语言中获取文件大小的方法
- C++中如何获取文件大小的总结
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- C语言中获取文件大小的函数
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- file上传文件,js中获取文件大小
- Java中获取文件大小的正确方法
- Java中获取文件大小的正确方法
- 《 Java与多媒体 》
- delphi 让ScrollBox响应鼠标滚轮事件
- sicily 1325
- EL表达式
- 由后台服务向Activity发送进度信息
- delphi 中获取文件大小
- 《java Swing基础》
- volatile的用法
- 自定义标签库开发
- Android有效解决加载大图片时内存溢出的问题
- DataTable知识点(1)
- 开个博客吧
- 《Java编程那些事儿----这是一本书》
- Bada学习-(二十五)错误码