文档章节

文件 Copy

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 58
阅读 9
收藏 0
procedure FileCopy(const FileFrom, FileTo: string);
var
  FromF,ToF: file;
  NumRead,NumWritten: Integer;
  Buffer: array[1..2048] of Byte;
begin
  AssignFile(FromF, FileFrom);
  Reset(FromF, 1);
  AssignFile(ToF, FileTo);
  Rewrite(ToF, 1);

  repeat
    BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead);
    BlockWrite(ToF, Buffer, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);

  CloseFile(FromF);
  CloseFile(ToF);
end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/19/1006124.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
win7 x64 vs2008无法编译xapain,请指教

参考了Building Xapian & the C# bindings for 64bit Windows 环境已经按要求安装,一直找不到问题所在! MSYS+MINGW也无法编译,真是奇怪了! Setting environment for using Microsoft Vi...

robin2010
2010/12/25
1K
1
4种复制文件的方式性能比较

4种复制文件的方式性能比较 最近工作中涉及到了文件的下载,于是就想寻找一种最快的方式,考虑到在不考虑网络因素的情况下,下载和文件的复制其实可以理解为 一回事,本次测试中使用了4种方式...

泳泳啊泳泳
01/07
0
0
sendfile机制学习(转)

在传统的文件传输里面(read/write方式),在实现上其实是比较复杂的,需要经过多次上下文的切换,我们看一下如下两行代码: 以上两行代码是传统的read/write方式进行文件到socket的传输。 ...

屌丝Lee
2016/04/14
21
0
MooseFS之Chunkserver是如何存储文件的?

文件以chunk大小存储,每chunk最大为64M。小于64M的,该chunk的大小即为该文件大小,超过64M的文件将被均分,每一份(chunk)的大小以不超过64M为原则;文件可以有多份copy,即除原始文件以外...

柳哥
2015/10/27
0
0
PostgreSQL 服务端COPY和客户端COPY - 暨PG有哪些服务端操作接口

标签 PostgreSQL , copy , 服务端接口 , 客户端接口 背景 有些朋友在使用COPY命令对数据库进行数据导入导出时,可能会发现COPY到文件时,怎么和想象的不一样,COPY到文件并没有落到指定的地方...

德哥
06/21
0
0

没有更多内容

加载失败,请刷新页面

加载更多

js的

<%@ taglib uri="http://java.sun.com/jsp/jstl/core" prefix="c" %> <c:forEach items="${topics}" var="item" varStatus="status"> </c:forEach> 注意 c:forEach E大写 varStatus ......

踏破铁鞋无觅处
22分钟前
0
0
带你走进java集合之ConcurrentHashMap

一、概述 上一篇文章《带你走进java集合之HashMap》分析了HashMap的实现原理,重点分析了HashMap是怎么样的一种数据结构,以及如何去插入,查询,扩容等操作。相信经过上一篇文章的学习,大家...

木木匠
23分钟前
0
0
spring-boot 热加载实现替换

参考资料 1、spring-boot 热加载实现替换

哎小艾
24分钟前
0
0
kotlin使用spring mvc(二)

使用FilterRegistrationBean注册Filter 使用WebFilter配置过滤器的缺点是不可以对过滤器进行排序,但是使用FilterRegistrationBean可以设置Filter执行的顺序 编写过滤器 class CustomFilter...

weidedong
26分钟前
0
0
Qt那些事0.0.5

碰到了中文乱码问题。 虽然是自己做了件令自己都不齿的事情,但是情急之下,暂且如此:将中文硬编码进代码中。 我也想通过tr+qm翻译进行转换,但是难过的是,tr之后,找不到或者不起作用。这...

Ev4n
27分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部