如何把读取的数据写到缓冲区。
解决方案 »
- devexpress expressprinting system3.37怎么安装呢
- 内存操作与数据库操作的问题
- 如何定义系统热键?
- 能否在程序运行时,自动在SQL中创建数据库?????哪位有办法实现!!
- 怎么能让做出来的程序不在任务栏里显示?
- 存储过程变量设置的问题??急用??
- 请教关于多网卡操作的小问题,请大家帮忙一下,up,gz全有分。
- 如何限制RichEdit单行的最大长度?
- 大侠们,帮忙看看http://www.csdn.net/expert/topic/327/327933.shtm
- 我想为bitbtn 增加两个方法 OnMouseIn ,OnMouseLeave , 我知道在WinControl中有两个相应的消息,我在做时有点不顺给点好意见也有分,
- 过年啦,领分啦,风云公开测试啦......集信息管理,多媒体播放(FLASH,影视,歌曲),图片浏览,网页浏览于一体的...Faint,先用用再说
- 放假了 爽???十分钟后揭贴
然后用New()函数分配内存。
之后将读取的数据放在刚分配的内存你就可在对这缓冲区进行操作了使用完毕后
别忘了用Dispose()释放空间。
呵呵呵
多读些Object Pascal方面的书哟
const
BUFFERSIZE = 1024;
var
hFile: THandle;
hTempFile: THandle;
Buffer: array[0..BUFFERSIZE] of Char;
begin
hFile := FileOpen(FileToSendName, fmOpenRead);
hTempFile := FileCreate(TempFileName); FileSeek(hFile, BytesHaveSent, 0);
repeat
BytesRead := FileRead(hFile, Buffer, BUFFERSIZE);
FileWrite(hTempFile, Buffer, BytesRead);
until BytesRead < BUFFERSIZE;
memInformation.Lines.Add('断点初始化完毕!');
FileClose(hFile);
FileClose(hTempFile);
end;