delphi 中获取文件大小

转载 2011年11月08日 13:41:42
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;
var SearchRec: TSearchRec;
begin
  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0then
   Result := SearchRec.Size
  else

Delphi 文件处理(4)

9.3.1 文件类型 1.文件类型概念 Delphi使用文件类型来读写存储在外部存储介质上的文件。一个文件变量能够与任意种类的外部设备建立通信,包括磁盘、打印机、键盘、绘图仪、调制解调器等。 ...
  • lailai186
  • lailai186
  • 2013年04月10日 10:01
  • 4904

Delphi 得到文件夹大小

function TForm1.getdirsize(dir:   string;   subdir:   boolean):longint; var   rec:TSearchRec;   f...
  • aTian2009
  • aTian2009
  • 2012年04月14日 09:57
  • 615

Delphi 中获取文件大小

大概有这些方法可以获得文件大小  FileSizeByName(需要引用IdGlobal单元)  GetFileSize  FileSize(不能获得正在使用的文件大小)  FileSeek ...
  • my98800
  • my98800
  • 2016年09月05日 09:43
  • 284

[Delphi] 计算目录大小的函数,获得目录文件列表,计算文件的大小

这个函数可以获得指定目录下所有的文件路径+名称,能够递归搜索:procedure FindAllFile(const Dir: string;List: TStringlist);var  hFind...
  • mrtechno
  • mrtechno
  • 2007年07月09日 10:26
  • 3369

GetFileSize 函数(转)

该函数用于获取指定文件的大小(长度),获取的大小限制在 0xFFFFFFFF 以内。 若要获取长度超过 0xFFFFFFFF 的文件大小,请使用 GetFileSizeEx 函数。定义DWORD...
  • duck04551
  • duck04551
  • 2010年09月03日 09:40
  • 6182

Delphi中,如何获得文件大小

  • 2013年08月23日 15:10
  • 208KB
  • 下载

delphi获取文件大小

  • 2013年07月30日 16:34
  • 213KB
  • 下载

FileSizeByName

取文件大小        FileSizeByName(需要引用IdGlobal单元)        GetFileSize        FileSize(不能获得正在使用的文件大小)       ...
  • haiou327
  • haiou327
  • 2010年08月21日 14:48
  • 1175

delphi 取图片宽高

Var         Bmp:TBitMap;         Stream:TMemoryStream;     begin         Bmp   :=TBitMap.Create;    ...
  • xwchen
  • xwchen
  • 2007年09月24日 20:43
  • 2511

用Delphi改变图片的像素,即大小

用Delphi改变图片的像素,即大小.需代码!急用,谢谢!我给你讲一种非常简单的方法:第一步:在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。第二步:在image1的...
  • xwchen
  • xwchen
  • 2007年09月24日 21:04
  • 10565
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 中获取文件大小
举报原因:
原因补充:

(最多只允许输入30个字)