Довольно простая процедура, которая делит файл на части и складывает их рядом с EXE следующим образом
Для чтения файла использую TFileStream из которого потом выдергиваю чанки в TMemoryStream методом CopyFrom. TFileStream – чтобы работать с большими файлами, на которых MemoryStream часто показывает OutOfMemory.
1 2 |
uses System.SysUtils, System.Classes,System.IOUtils |
Сам код…
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
procedure TDivideAndGatherFile. DivideFileInChunks(AFilepath: string; AChunkSize: Int64; ADirForChunks: string); var Buffer:TBytes; FS:TFileStream; MS:TMemoryStream; FileName:string; ChunkNumber:Int64; ByteToRead: Int64; ReadSize: Int64; begin FS:=TFile.OpenRead(AFilepath); FS.Position:=0; MS:=TMemoryStream.Create; MS.Position:=0; FileName:=ExtractFileName(AFilepath); try try ByteToRead:=FS.Size; ChunkNumber:=0; while ByteToRead>0 do begin ReadSize := AChunkSize; if ReadSize > ByteToRead then ReadSize := ByteToRead; MS.CopyFrom(FS,ReadSize); MS.SaveToFile(FileName+'_chunk_'+ChunkNumber.ToString); MS.Clear; MS.Position:=0; Inc(ChunkNumber); //ByteToRead:=ByteToRead-ReadSize; // or dec... dec(ByteToRead,ReadSize); end; finally FreeAndNil(FS); FreeAndNil(MS); end; except on E:EStreamError do raise Exception.Create('This is EStreamError EClassName'+E.ClassName+' ' +'EMessage '+E.Message); on E:Exception do raise Exception.Create('This is Error EClassName'+E.ClassName+' ' +'EMessage '+E.Message); end; end; |
Пример использования
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
procedure TVisualFrame_HTTP.bDivideFileClick(Sender: TObject); var DivideAndGatherFile:TDivideAndGatherFile; begin DivideAndGatherFile:=TDivideAndGatherFile.Create(Self); if OpenDialog.Execute then begin DivideAndGatherFile.DivideFileInChunks( OpenDialog.FileName, 1048576, // 1024*1024 <<<ChunkSize '' ); end; end; |