无类型文件怎么以只读方式打开--快

[g961681]

无类型文件怎么以只读方式打开啊

[DWGZ]

h := FileOpen(yourfile, fmOpenRead);

[g961681]

h是什么类型的变量啊

[DWGZ]

Integer

读数据
FileRead
关闭
FileCLose;

[g961681]

那怎么跟blockread 与blockwrite连起来使用呢
或者，用fileopen打开文件后，怎么以块读入和读出呢？
举个小例题看看啊

[zjqyb]

blockread,blockwrite
只能用assignfile
reset打开

[timgreen]

你不存就是了

[g961681]

问题就出在reset上啊
我用reset 打开光盘文件时，他总是说deny access
然后就报错啊

[zjqyb]

var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;

[g961681]

我用以上程序读硬盘文件时没问题，但光盘文件时，会出错，是出在只读问题上啊
我把硬盘上的文件设为只读，单步到reset时就出同一个错误啊