基本信息
源码名称:生成大文件,方便测试用
源码大小:1.60M
文件格式:.rar
开发语言:Pascal
更新时间:2025-07-31
   友情提示:(无需注册或充值,赞助后即可获取资源下载链接)

     嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):813200300

本次赞助数额为: 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;