用 FileRead和 FileWrite读写文件时, 如果字节数过大时的问题.

用 FileRead和 FileWrite读写文件时, 如果字节数过大时的问题. [已结贴,结贴人:twfldy]

twfldy
青竹
等级:

发表于：2008-03-26 13:48:07 楼主

procedure TForm1.Button2Click(Sender: TObject);
var
h1,h2: Thandle;
buf: ^Byte;
size: cardinal;
tmplen: int64;
begin
h1 := fileOpen(ExtractFilepath(Paramstr(0)) + '0.bmp', fmOpenRead);
h2 := FileCreate(extractFilePath(paramStr(0))+'0_out.bmp');
if (h1 = -1) or (h2 = - 1) then begin
if h1 <> -1 then fileClose(h1);
if h2 <> -1 then fileClose(h2);
raise Exception.Create('文件打开失败！');
end;

size := fileseek(h1, 0, 2); //跟踪 size 得到的长度没错误
fileseek(h1, 0, 0); //复位

buf := AllocMem(size);
showmessage('源文件长度：' + intToStr(size) + '字节');

tmplen := fileRead(h1, buf, size);
showmessage(intToStr(tmplen) + '字节读取');
tmplen := filewrite(h2, buf, size);
showmessage(intToStr(tmplen) + '字节写入');

fileclose(h1);
fileclose(h2);
freemem(buf, size);
end;

该部代码运行时. 源文件的长度测试正确!
读取时失败,提示读取-1字节, 写入也是提示 -1字节.
请教大虾们是什么原因?

问题点数：20 回复次数：4 修改删除举报引用回复