procedure TForm1.Button1Click(Sender: TObject);
const BufSize=128;
var FileStream: TFileStream;
i, BodyLen, ReadCount, ModRead: integer;
BodyBuf: array [0..70000] of Byte;
BodyBufchar: array [0..70000] of Char;
begin
try
FileStream := nil;
FileStream := TFileStream.Create('c:\test.txt', fmOpenRead);
BodyLen := FileStream.Size;
FileStream.Position := 0;
ReadCount := BodyLen div BufSize;
ModRead := BodyLen mod BufSize;
for i := 1 to ReadCount do
FileStream.ReadBuffer(BodyBuf[(i-1)*BufSize], BufSize);
if ModRead > 0 then
FileStream.ReadBuffer(BodyBuf[ReadCount*BufSize], ModRead);
for i := 0 to BodyLen -1 do
begin
BodyBufchar[i] := chr(BodyBuf[i]);
Memo1.Lines.Add(chr(BodyBuf[i]));
end;
FreeAndNil(FileStream);
except on e:exception do
ShowMessage(e.Message);
end;
end;
const BufSize=128;
var FileStream: TFileStream;
i, BodyLen, ReadCount, ModRead: integer;
BodyBuf: array [0..70000] of Byte;
BodyBufchar: array [0..70000] of Char;
begin
try
FileStream := nil;
FileStream := TFileStream.Create('c:\test.txt', fmOpenRead);
BodyLen := FileStream.Size;
FileStream.Position := 0;
ReadCount := BodyLen div BufSize;
ModRead := BodyLen mod BufSize;
for i := 1 to ReadCount do
FileStream.ReadBuffer(BodyBuf[(i-1)*BufSize], BufSize);
if ModRead > 0 then
FileStream.ReadBuffer(BodyBuf[ReadCount*BufSize], ModRead);
for i := 0 to BodyLen -1 do
begin
BodyBufchar[i] := chr(BodyBuf[i]);
Memo1.Lines.Add(chr(BodyBuf[i]));
end;
FreeAndNil(FileStream);
except on e:exception do
ShowMessage(e.Message);
end;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-775956/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
mySQL 中的游标使用简单一例
请登录后发表评论
登录
全部评论
