Показать сообщение отдельно
  #3  
Старый 10.02.2019, 01:10
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Кхм... ну у тебя вообще предствлвенный код не код, а багодром.
И это не смотря на то, что имена переменных для потоков попутаны (ну тут подозреваю последствия вырезания кода для поста).
А по сути:
1. Не надо повторно использовать объекты. Создавай новые, это не так дорого стоить на современных системах.
2. Try..Finally у тебя является частью цикла, так лучше не делать.
3. Непонятен смысл испльзования промежуточного jpeg, а что, сразу в TFileStream религия не позволяет сохранять?
4. И вообще, такие вещи лучше переписать на многопоточность, не на модемах давно уже сидим, можно качать потоков так в 10, будет качаться раза в 3 быстрее, чем в один поток (да, кода будет чуть поболее, зато быстрее будет).
Ответить с цитированием