zoukankan      html  css  js  c++  java
  • 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()的函数。

  • 相关阅读:
    HTTP报文语法/HTTP组成
    get和post的区别
    Jmeter图形结果
    Jmeter用表格查看结果
    Jmeter聚合报告
    Jmeter查看结果树
    Jmeter集合点
    Jmeter-BeanShell Sampler调用java代码
    Jmeter简单的接口测试
    get、post接口测试-java
  • 原文地址:https://www.cnblogs.com/rayz/p/2913775.html
Copyright © 2011-2022 走看看