在 B/w 字符串解压缩中暂停 & 运行外部命令

Question

向尊敬的成员问候...我使用以下函数来压缩多个文件，但在提取时我需要运行一个外部程序。

有两种方法，首先，等待完全提取，这很慢，所以，请大家帮帮我，这样，在提取n个文件时，提取暂停，& 运行是一个代码部分，例如开始和结束，然后继续，然后在 n 个文件后再次暂停并重复该过程。

uses
  Zlib;

procedure CompressFiles(Files : TStrings; const Filename : String);
var
  infile, outfile, tmpFile : TFileStream;
  compr : TCompressionStream;
  i,l : Integer;
  s : String;

begin
  if Files.Count > 0 then
  begin
    outFile := TFileStream.Create(Filename,fmCreate);
    try
      { the number of files }
      l := Files.Count;
      outfile.Write(l,SizeOf(l));
      for i := 0 to Files.Count-1 do
      begin
        infile := TFileStream.Create(Files[i],fmOpenRead);
        try
          { the original filename }
          s := ExtractFilename(Files[i]);
          l := Length(s);
          outfile.Write(l,SizeOf(l));
          outfile.Write(s[1],l);
          { the original filesize }
          l := infile.Size;
          outfile.Write(l,SizeOf(l));
          { compress and store the file temporary}
          tmpFile := TFileStream.Create('tmp',fmCreate);
          compr := TCompressionStream.Create(clMax,tmpfile);
          try
            compr.CopyFrom(infile,l);
          finally
            compr.Free;
            tmpFile.Free;
          end;
          { append the compressed file to the destination file }
          tmpFile := TFileStream.Create('tmp',fmOpenRead);
          try
            outfile.CopyFrom(tmpFile,0);
          finally
            tmpFile.Free;
          end;
        finally
          infile.Free;
        end;
      end;
    finally
      outfile.Free;
    end;
    DeleteFile('tmp');
  end;
end;

procedure DecompressFiles(const Filename, DestDirectory : String);
var
  dest,s : String;
  decompr : TDecompressionStream;
  infile, outfile : TFilestream;
  i,l,c : Integer;
begin
  // IncludeTrailingPathDelimiter (D6/D7 only)
  dest := IncludeTrailingPathDelimiter(DestDirectory);

  infile := TFileStream.Create(Filename,fmOpenRead);
  try
    { number of files }
    infile.Read(c,SizeOf(c));
    for i := 1 to c do
    begin
      { read filename }
      infile.Read(l,SizeOf(l));
      SetLength(s,l);
      infile.Read(s[1],l);
      { read filesize }
      infile.Read(l,SizeOf(l));
      { decompress the files and store it }
      s := dest+s; //include the path
      outfile := TFileStream.Create(s,fmCreate);
      decompr := TDecompressionStream.Create(infile);
      try
        outfile.CopyFrom(decompr,l);
      finally
        outfile.Free;
        decompr.Free;
      end;
    end;
  finally
    infile.Free;
  end;
end;

Answer 1

要在循环的每 n 次迭代后执行一个动作，只需检查到目前为止的迭代次数是否是 n[=16= 的倍数].您的变量 i 中有当前迭代次数，因此使用它来扩充循环，如下所示：

for i := 1 to c do begin ... // existing contents of the loop can go here. if (i mod n) = 0 then begin // TODO: Run external program here. end; end;

在 B/w 字符串解压缩中暂停 & 运行外部命令

Pausing & Running External Commands in B/w String Decompression

delphi

delphi-2010

在 B/w 字符串解压缩中暂停 & 运行 外部命令

Pausing & Running External Commands in B/w String Decompression

delphi

delphi-2010

在 B/w 字符串解压缩中暂停 & 运行外部命令