文件访问错误
数字蛋糕 2001-08-18 05:22:59 我在使用AssignFile和Reset的时候系统报错“E/A Error 103”
然后换用TFileStream和fmOpenRead方式的时候系统报错无法打开指定文件。
我要打开的是一个Dll,是不是跟这个有关系?
不过我想在访问的时候也没有其他程序正在用那个Dll的呀。
源代码如下:
procedure WriteAFile(var f:File;AFileName:String);
var
af:File;
fsize,rs:Integer;
buf:array [0..2047] of Byte;
begin
AssignFile(af,AFileName);
try
Reset(af,1);
fsize:=FileSize(af);
WriteInteger(f,fsize);
while not EOF(af) do
begin
BlockRead(af,buf,SizeOf(buf),rs);
BlockWrite(f,buf,rs);
end;
finally
CloseFile(af);
end;
end;
就是在Reset的时候出错。参数传递完全正常。