Como dividir arquivos em peda�os menores?

Question

Ol� galera, gostaria de saber como dividir arquivos grandes (de qualquer extens�o) em peda�os menores, ou por quantidade de bytes ou por quantidade de arquivos divididos? Se puderem me passar o c�digo pra estudar, prefiro!

Marcelo Saviski · Answer

vc podeia tentar abrir o arquivo numa Stream e escrever ewm outras Streams ele por partes, tipo:

const
  MaxFileSize = 50*1024; //50Kb
var
  NomeArquivo, NomeArquivosFilhos: TFileName;
  Arquivo: TStream;
  I, FileSize: Integer;
  Buffer: array[0..MaxFileSize -1] of Byte;
begin
  NomeArquivo := �ArquivoX�;
  NomeArquivosFilhos := ChangeFileExt(NomeArquivos, �.parte�d.dat�);
  I := 1;
  with TFileStream.Create(Arquivo, fmOpenRead or fmShareDenyWrite);  
  try
    while Position < Size do
    begin
      Arquivo := TFileStream.Create(Format(NomeArquivosFilhos, [I]), fmCreate);
      FileSize := MaxFileSize;
      if FileSize > Size - Position then
        FileSize := Size - Position;
      ReadBuffer(Buffer, FileSize);
      Arquivo.WriteBuffer(Buffer, FileSize);
      Arquivo.Free;
      Inc(I);
    end;
  finally
    Free;
  end;
end;

Eu n�o testei :wink: , ent�o se puder me dizer se funciona

Marcelo Saviski · Answer

Depois para juntar de volta, vc deveria abrir todos as partes do arquivo e salvar tudo num s� devolta...

Jc · Answer

Ol� galera... e ai Marcelo, valeu pela for�a. Acabei encontrando na net uma ajudinha que caiu perfeitamente (claro que deve ser feitos alguns ajustes).Vejam ai abaixo:[quote:72cc61ed20=�JC�]// Split file / Dividir arquivo{  Parametros:  FileToSplit: Especificar um arquivo para divis�o.  SizeofFiles: Especificar o tamanho dos arquivos divididas (em bytes).  Progressbar: Especificar a TProgressBar para mostrar o progresso da divis�o.  Resultado:  SplitFile() criar� os arquivos FileName.001, FileName.002, FileName.003 e assim por diante, e ter�o o tamanho em bytes definidos em SizeofFiles. }function SplitFile(FileName: TFileName; SizeofFiles: Integer; ProgressBar: TProgressBar): Boolean;var  i: Word;  fs, sStream: TFileStream;  SplitFileName: String;begin  ProgressBar.Position := 0;  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);  try    for i := 1 to Trunc(fs.Size / SizeofFiles) + 1 do    begin      SplitFileName := ChangeFileExt(FileName, �.�+ FormatFloat(�000�, i));      sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);      try        if fs.Size - fs.Position < SizeofFiles then          SizeofFiles := fs.Size - fs.Position;        sStream.CopyFrom(fs, SizeofFiles);        ProgressBar.Position := Round((fs.Position / fs.Size) * 100);      finally        sStream.Free;      end;    end;  finally    fs.Free;  end;end;[/quote:72cc61ed20][quote:72cc61ed20=�JC�]// Combine files / Juntar arquivos{  Parametros:  FileName: Especificar ...

Delphi32 · Answer

Ol�! Achei este t�pico antigo por pesquisa e tenho algumas d�vidas com rela��o a esse c�digo postado acima:

1) Como poderia fazer para no primeiro arquivo eu colocar sempre uma identifica��o no in�cio (cabe�alho) do arquivo. Queria fazer isso porque queria que o programa verificasse se esse era um arquivo v�lido. E o modo de valida��o seria procurar por essa indentifica��o no cabe�alho do primeiro arquivo.

2) E como eu teria que modificar a rotina de juntar os arquivos para na hora de formar o arquivo ele ignorasse a identifica��o?

F�rum Como dividir arquivos em peda�os menores? #270495