基本信息
源码名称:生成大文件,方便测试用
源码大小:1.60M
文件格式:.rar
开发语言:Pascal
更新时间:2025-07-31
友情提示:(无需注册或充值,赞助后即可获取资源下载链接)
嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):813200300
本次赞助数额为: 2 元×
微信扫码支付:2 元
×
请留下您的邮箱,我们将在2小时内将文件发到您的邮箱
源码介绍
生成大文件,方便测试用
procedure GenerateRandomLargeFile(const FileName: string; const TotalBytes: Int64);
const
BUFFER_SIZE = 1024 * 1024; // 1MB 缓冲区
var
FileStream: TFileStream;
Buffer: array of Byte;
BytesToWrite: Int64;
i: Integer;
begin
// TotalBytes := Int64(SizeInGB) * 1024 * 1024 * 1024;
SetLength(Buffer, BUFFER_SIZE);
// 填充随机数据(可选:用加密随机生成更安全)
Randomize;
for i := 0 to BUFFER_SIZE - 1 do
Buffer[i] := Random(256);
FileStream := TFileStream.Create(FileName, fmCreate);
try
BytesToWrite := TotalBytes;
while BytesToWrite > 0 do
begin
if BytesToWrite > BUFFER_SIZE then
FileStream.Write(Buffer[0], BUFFER_SIZE)
else
FileStream.Write(Buffer[0], BytesToWrite);
Dec(BytesToWrite, BUFFER_SIZE);
end;
finally
FileStream.Free;
end;
end;
生成大文件,方便测试用
procedure GenerateRandomLargeFile(const FileName: string; const TotalBytes: Int64);
const
BUFFER_SIZE = 1024 * 1024; // 1MB 缓冲区
var
FileStream: TFileStream;
Buffer: array of Byte;
BytesToWrite: Int64;
i: Integer;
begin
// TotalBytes := Int64(SizeInGB) * 1024 * 1024 * 1024;
SetLength(Buffer, BUFFER_SIZE);
// 填充随机数据(可选:用加密随机生成更安全)
Randomize;
for i := 0 to BUFFER_SIZE - 1 do
Buffer[i] := Random(256);
FileStream := TFileStream.Create(FileName, fmCreate);
try
BytesToWrite := TotalBytes;
while BytesToWrite > 0 do
begin
if BytesToWrite > BUFFER_SIZE then
FileStream.Write(Buffer[0], BUFFER_SIZE)
else
FileStream.Write(Buffer[0], BytesToWrite);
Dec(BytesToWrite, BUFFER_SIZE);
end;
finally
FileStream.Free;
end;
end;