Ну тут кому как удобно уже. О спасибо, опробую. Ну главное если от 1,5 до 2Гб съедят уже хорошо. А вот SharedStream мне с каждым часом всё больше и больше нравится, много прикручивать правда приходится но думаю минимизирую всё со временем. Есть вот по первым постам ещё один вопрос по компонентам StreamPack и StreamUnPack, какой максимальный размер пакета можно получить с помощью них в Гигабайтах? Чуть не забыл ещё немного осталось попробую с остатками обряд провести по призыву остальных на родину.
------------ Дoбавленo в 01.19:
Вообще столкнувшись с этой проблемой задумался о компоненте разбить файл, пошёл в интернет поискать чего нить, найти то нашёл но прочесть код не смог (языков я программирования не знаю) но, < это же поправимо, особенно если сам код уже кто то написал осталось перевести только. Сказать что в коне совсем ничего не вижу это неправильно, вижу то что можно исключить так как у нас своих кнопок и диалогов достаточно допустим это > procedure TForm1.Button1Click(Sender: TObject); дальше в коде есть ещё такое что тоже можно выкинуть > [color=green] begin
if OpenDialog1.InitialDir = '' then begin
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end; [/color] Но выкидывать часть мусора с кода это понятно может каждый и явное увидеть. Проблема дальше скрывается это старая тема как (откуда берётся интерфейс "GUI"). Весь процесс планировал как вставкой кода и адаптацией его (заинлайнить), и столкнулся со строчкой AssignFile(F2, OpenDialog1.FileName + '.part' + IntToStr(i)); чтож в коде постоянно этот диалог открывается то, откуда тут можно удалить что нить где начало где конец, дальше и то больше читается и понимается чем в той маленькой строчке [color=green] Rewrite(F2, 1);
BlockRead(F1, Pointer(Buff)^, SizePart);
BlockWrite(F2, Pointer(Buff)^, SizePart);
if (i = N) and (SizePartAdd > 0) then begin [/color] В общем вот как то так покатилось всё к SharedStream а это плохо тяга к лёгкому пути это синдром ЗПР а для таких спец отделения строятся Нужно как то коду поучится к кубикам привыкаешь быстро.