5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
aaa2520 2007-04-20
- 打赏
- 举报
想读取二进制文件指定位置的几个字节 怎么实现啊？
想按照 字节 读入 到另一个文件
想按照 字节 读入 到另一个文件
HsWong 2007-04-20
- 打赏
- 举报
//读取haha.txt文件第3字节开始4个字节的内容,haha.txt的内容为1234567
procedure TForm1.Button1Click(Sender: TObject);
var
hFile: THandle;
iBytesRead: Integer;
Buffer: PChar;
begin
try
hFile := FileOpen('C:\haha.txt', fmOpenRead);
FileSeek(hFile,2,0);
GetMem(Buffer,5);
FileRead(hFile, Buffer^,4);
ShowMessage(Buffer);
finally
FileClose(hFile);
FreeMem(Buffer);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hFile: THandle;
iBytesRead: Integer;
Buffer: PChar;
begin
try
hFile := FileOpen('C:\haha.txt', fmOpenRead);
FileSeek(hFile,2,0);
GetMem(Buffer,5);
FileRead(hFile, Buffer^,4);
ShowMessage(Buffer);
finally
FileClose(hFile);
FreeMem(Buffer);
end;
end;
