请教:在调用函数BlockRead()的时候,老是出现 I/O error 998的错误,通常是什么原因?
解决方案 »
- Blog:在Delphi中应用AOP实现日志功能,顺便散分
- 谁有可以调整窗体所有控件大小及位置的控件呀,就是在窗体改变大小时能保证窗体布局不变!(急急急)
- 请问把各个菜单功能和权限都放在一个表中,如何使登录时动态显示菜单?
- 一组数字如何读到数组
- 窗体关闭不了。总是出错!
- webbrowser问题
- 100分~Fast Report 读取Excel报表当作报表的问题
- 罗刚事件当晚录音http://www.91pop.com/upfile/31_1012.mp3
- 纪念伟大的屈原-----让我们有粽子吃,散分!!
- DCOM问题,我就这点分了,全给你们
- 关于日期时间型数据的update问题,请教各位高手
- 一个很简单的问题,请帮我解决,50分!在线等!谢谢!
var
AmtTransferred: Integer;
begin
BlockRead(F, Buf, Count, AmtTransferred);而不是:
BlockRead(F, Buf, Count);
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
这样吧,我把我的代码贴出来,看看有什么问题?
procedure TForm1.Button3Click(Sender: TObject);
var
source,target:file;
numread,numwrite:integer;
buffer:array[1..2048] of byte;
begin
AssignFile(source,edit1.text);
reset(source);
AssignFile(target,edit2.text);
rewrite(target);
repeat
begin
BlockRead(source,buffer,sizeof(buffer),numread);
BlockWrite(target,buffer,numRead,numWrite);
end;
until (numread=0) or (numread<>numwrite);
closefile(source);
closefile(target);
end;
rewrite(target,1);