Оптимизация функции...

[prizrak1390]

Доброе время суток!

Помогите пожалуйста оптимизировать код данной функции. С её помощью файл разбивается на "куски" определённого размера. Я собираю прогу в которой одновременно можно "резать" больше 1-го файла. Но вот незадача...стоит начать "резать" этой функцией файл, как прога уже не отвечает. Я уже как мог экспериментировал с application.processmessages...не помогает. Пожалуйста, подскажите, как "разморозить" прогу во время выполнения одной или нескольких таких функций?

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;

Спасибо.

[mihali4]

Странно...
Всегда помогало (да и просто необходимо для отображения хода операции)

ProgressBar.Position := Round((fs.Position / fs.Size) * 100);
Application.ProcessMessages;

[prizrak1390]

mihali4, да ладно уже с отображением прогресса. Я пробовал и Ваш вариант. Дошло до того, что почти после КАЖДОЙ строчки поставил application.processmessages...но что бы Вы думали? Файл режется, прогресс отображается...но прога висит. И процесс отображается лишь, когда создан новый "кусок". И в такой момент прога на одну секунду "отмерзает". Но потом опять анабиоз...

[mihali4]

Так пройдитесь по шагам и посмотрите, на какой строке у вас "морозит"...

[prizrak1390]

Ну тут в глаза бросается:

 sStream.CopyFrom(fs, SizeofFiles);

Пробовал эту строку из кода убрать. Прога перестала "замерзать"..А как решить проблему?

[SNUPY]

prizrak1390, а почему бы вам эту ф-ию не запускать в отдельной нити (TThread помоему так пишеться)???? И Замараживаться перестанет =)

[BOBAH13]

Сообщение от prizrak1390

Ну тут в глаза бросается:

 sStream.CopyFrom(fs, SizeofFiles);

Пробовал эту строку из кода убрать. Прога перестала "замерзать"..А как решить проблему?

Если память не подводит, это TStream, а CopyFrom, это функция перегонки данных (байт) из одной части в другую (будь то память файл и т.п.), т.е. ручками читаем и пишем например порциями в 1024 байта, и в это же время вызываем Application.ProcessMessages.

[prizrak1390]

SNUPYуже думал об этом. Но хочется, как можно проще код сделать... Спасибо.

BOBAH13
То есть использовать blockread и blockwrite? Я не очень силен в этом. Помогите реализовать... А то я чую в дебри полезу..Ну или хоть дайте почитать нужную литературу...

[SNUPY]

Замени sStream.CopyFrom(fs, SizeofFiles);
на это

  while SizeofFiles>BlockSize do
  begin
    sStream.CopyFrom(fs,BlockSize);
    SizeofFiles:=SizeofFiles-BlockSize;
  end;
  sStream.CopyFrom(fs, SizeofFiles);

нуу типо меньшими блоками будет копировать =)))

[prizrak1390]

SNUPY,сейчас попробуемс

----

Вообщем...попробовал. Провел пару экспериментов даже, эффекта нету :'( Но за помощь все равно спасибо.