文档章节

根据文件路径检测文件大小并检测是否正在被占用

依宸2016
 依宸2016
发布于 2016/11/11 12:19
字数 161
阅读 2
收藏 0
function CheckFileSize(sPath: string): Int64;
var
  FilePath: AnsiString;
  FStream:TFileStream;
  bOpen:Boolean;
  //判断文件FileName是否正在被打开/使用
  function IsFileInUse(const FileName: string): boolean;
  var
    HFileRes: HFILE;
  begin
    if not FileExists(FileName) then
    begin
      Result := False;
      Exit;
    end;
    try
      HFileRes := CreateFile(pchar(FileName), GENERIC_READ,
        0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
      Result := (HFileRes = INVALID_HANDLE_VALUE);
      if not Result then
        CloseHandle(HFileRes);
    except
      Result := true;
    end;
  end;
begin
  try
    try
      IsFileInUse(sPath);
      if FileExists(sPath) then
      begin
        bOpen := false;
        while not bOpen do
        begin
          try
            IsFileInUse(sPath);
            FStream := TFileStream.Create(sPath, fmOpenWrite);
            bOpen := true;
          except on E: Exception do
            bOpen := false;
          end;
        end;
        FStream.Position := FStream.Size;
        Result := FStream.Size;
      end
      else
      begin
        FStream := TFileStream.Create(sPath, fmCreate);
        Result := 0;
      end;
    except
      on e: Exception do
      begin
        Result := -2;
      end;
    end;
  finally
    FreeAndNil(FStream);
  end;
end;

本文转载自:http://blog.csdn.net/liwb1987/article/details/42712715

依宸2016
粉丝 1
博文 94
码字总数 0
作品 0
济南
高级程序员
私信 提问
打造一个简单的TXT文本操作及日志框架

首先先介绍一下这个项目,该项目实现了文本写入及读取,日志写入指定文件夹或默认文件夹,日志数量控制,单个日志大小控制,通过约定的参数让用户可以用更少的代码解决问题。 1.读取文本文件...

殷慈航
2018/07/28
0
0
C#高性能大容量SOCKET并发(九):断点续传

上传断点续传 断点续传主要是用在上传或下载文件,一般做法是开始上传的时候,服务器返回上次已经上传的大小,如果上传完成,则返回-1;下载开始的时候,由客户端上报本地已经下载大小,服务...

andrewniu
2018/05/08
0
0
Jupyterhub 多用户版本

官网 https://jupyterhub.readthedocs.io/en/latest/installation-guide.html 文件结构 pip、conda和docker三种安装方式 JupyterHub can be installed with (and the proxy with ) or : pip,......

三也视界
2018/12/07
0
0
CentOS系统环境下安装MongoDB

原因:因为工作需要,集中管理log4j日志到MongoDB! 进入MongoDB下载中心:http://www.mongodb.org/downloads We recommend using these binary distributions (官方推荐使用二进制版本!) 根...

基督山伯爵
2013/03/01
0
1
JAVA检测端口的占用情况

有时候需要判断本地的某一个端口号是否被占用,网上通用的一种方法是: public boolean isPortAvailable(int port) { } 通过新建一个ServerSocket来判断端口是否被占用,但是实际上这个检测方...

jupiterbee
2013/09/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

【AI实战】手把手教你深度学习文字识别(文字检测篇:基于MSER, CTPN, SegLink, EAST等方法)

文字检测是文字识别过程中的一个非常重要的环节,文字检测的主要目标是将图片中的文字区域位置检测出来,以便于进行后面的文字识别,只有找到了文本所在区域,才能对其内容进行识别。 文字检...

雪饼
今天
5
0
思维导图XMind 8 Pro 绿化方法(附序列号)

按部就班: Step 1 -全新下载最新版本的 Xmind 8(注必须是英文官方的版本,中文代{过}{滤}理网站的版本修改过,无法使用pj); Step 2 -安装完毕后,点击文末的下载按钮下载pj补丁文件包,将...

一只小青蛙
今天
10
0
数据结构(ER数据库)设计规范

表命名规范 表命名的规则分为3个层级,层级之间通过_分割,例如b_r_identity、d_l_identity。规约为: [leavel]_[type]_[name] [leavel] 表示数据库表的层级和功能,分为: s:业务无关的系统...

随风溜达的向日葵
今天
5
0
阿里Sentinel控制台源码修改-对接Apollo规则持久化

https://github.com/alibaba/Sentinel/wiki/%E5%9C%A8%E7%94%9F%E4%BA%A7%E7%8E%AF%E5%A2%83%E4%B8%AD%E4%BD%BF%E7%94%A8-Sentinel 动态规则扩展 https://github.com/alibaba/Sentinel/wiki......

jxlgzwh
昨天
7
0
在Linux系统中创建SSH服务器别名

如果你经常通过 SSH 访问许多不同的远程系统,这个技巧将为你节省一些时间。你可以通过 SSH 为频繁访问的系统创建 SSH 别名,这样你就不必记住所有不同的用户名、主机名、SSH 端口号和 IP 地...

老孟的Linux私房菜
昨天
12
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部