社区
Delphi
帖子详情
怎样在Delphi中以最快的速度打开文件(用Read,BlockRead之类的函数)?急!!!!!!!!!
Putao
2000-08-20 04:27:00
要求:
1.打开后的文件读入到缓冲区char[0..1023]内
2.速度要最快
3.如果还不明白,请与我Email联系
--joft@126.com
...全文
300
6
打赏
收藏
怎样在Delphi中以最快的速度打开文件(用Read,BlockRead之类的函数)?急!!!!!!!!!
要求: 1.打开后的文件读入到缓冲区char[0..1023]内 2.速度要最快 3.如果还不明白,请与我Email联系 --joft@126.com
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
IAmKylix
2000-08-23
打赏
举报
回复
自己给自己加分?不会吧!
gigi2000
2000-08-22
打赏
举报
回复
如有兴趣,来信讨论!
Putao
2000-08-20
打赏
举报
回复
Read会更快些吗?因为它是最底层的Api函数.
IAmKylix
2000-08-20
打赏
举报
回复
ReadBlock应该最快。
delphizhao
2000-08-20
打赏
举报
回复
用TFileStream试试
afile:=tfilestream.create('filename',fmopenreadonly);
afile.read(@charbuffer,1024);
afile.free;
Putao
2000-08-20
打赏
举报
回复
Block
Read
_
delphi
_
delphi
block
read
_
block
read
_
block
read
delphi
_
delphi
Block
Read
用法的源码,
block
read
函数
可以读一个或多个记录到变量中
Delphi
演示通过文件读写的方式复制文件.rar
Delphi
演示通过文件读写的方式复制文件,本示例是通过读文件、重新写入文件的方式,来模拟出文件复制的功能,并不是使用
Delphi
中固有的copyFile
函数
来直接操作文件,有兴趣可参考以下的代码: AssignFile(ToF,edtTFile.Text); ReWrite(ToF,1); lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成!'; repeat
Block
Read
(FormF,Buf,SizeOf(BUf),Num
Read
);
Block
Write(ToF,Buf,Num
Read
,NumWritten); until (Num
Read
= 0) or (NumWritten <> Num
Read
); CloseFile(FormF); CloseFile(ToF); ShowMessage('文件复制完成!');
Delphi
指定目录复制文件的示例.rar
复制文件的
Delphi
代码示例,用自定义的窗体来实现传统的复制文件功能,主要是展示在
Delphi
下如何定义复制文件的
函数
,打基础的代码。复制的核心代码: if edtSFile.Text <> '' then begin AssignFile(FormF,edtSFile.Text); Reset(FormF,1); if edtTFile.Text <> '' then begin AssignFile(ToF,edtTFile.Text)
delphi
Block
Read
用法的源码实例
摘要:
Delphi
源码,其它类别,
Block
Read
delphi
Block
Read
用法的源码实例,
block
read
函数
可以读一个或多个记录到变量中,示例为你设计了一个按钮,点击这个按钮可以选择文件,选择文件后你可以看到复制了多少bytes到变量中,还不错吧,挺简单的例子了。 运行环境:Windows/
Delphi
7
delphi
常用
函数
大全
delphi
常用
函数
大全
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章