社区
Delphi
帖子详情
怎样在Delphi中以最快的速度打开文件(用Read,BlockRead之类的函数)?急!!!!!!!!!
Putao
2000-08-20 04:27:00
要求:
1.打开后的文件读入到缓冲区char[0..1023]内
2.速度要最快
3.如果还不明白,请与我Email联系
--joft@126.com
...全文
299
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
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。
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
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章