Trocear y unir archivos

Una de las utilidades más famosas que se han asociado a la descarga de archivos es el programa Hacha, el cual trocea archivos a un cierto tamaño para luego poder unirlos de nuevo.

El siguiente procedimiento parte un archivo a la longitud en bytes que le pasemos:

procedure TrocearArchivo( sArchivo: TFileName; iLongitudTrozo: Integer );
var
  i: Word;
  FS, Stream: TFileStream;
  sArchivoPartido: String;
begin
  FS := TFileStream.Create( sArchivo, fmOpenRead or fmShareDenyWrite );

  try
    for i := 1 to Trunc( FS.Size / iLongitudTrozo ) + 1 do
    begin
      sArchivoPartido := ChangeFileExt( sArchivo, '.' + FormatFloat( '000', i ) );
      Stream := TFileStream.Create( sArchivoPartido, fmCreate or fmShareExclusive );

      try
        if fs.Size - fs.Position < iLongitudTrozo then
          iLongitudTrozo := FS.Size - FS.Position;

        Stream.CopyFrom( FS, iLongitudTrozo );
      finally
        Stream.Free;
      end;
    end;
  finally
    FS.Free;
  end;
end;

Si por ejemplo le pasamos el archivo Documentos.zip creará los archivos:

Documentos.001
Documentos.002
....

Para volver a unirlo tenemos otro procedimiento donde le pasamos el primer trozo y el nombre del archivo original:

procedure UnirArchivo( sTrozo, sArchivoOriginal: TFileName );
var
  i: integer;
  FS, Stream: TFileStream;
begin
  i := 1;
  FS := TFileStream.Create( sArchivoOriginal, fmCreate or fmShareExclusive );

  try
    while FileExists( sTrozo ) do
    begin
      Stream := TFileStream.Create( sTrozo, fmOpenRead or fmShareDenyWrite );

      try
        FS.CopyFrom( Stream, 0 );
      finally
        Stream.Free;
      end;

      Inc(i);
      sTrozo := ChangeFileExt( sTrozo, '.' + FormatFloat( '000', i ) );
    end;
  finally
    FS.Free;
  end;
end;

Una ampliación interesante a estos procedimientos sería meter el nombre del archivo original en el primer o último trozo, así como un hash (MD4, MD5, SHA, etc.) para saber si algún trozo está defectuoso.

Pruebas realizadas en Delphi 7.