Оптимизация приложения "менеджер закачек"

@Farrewa · Регистрация: 27.12.2013

Author24 — интернет-сервис помощи студентам

Добра всем, помогите оптимизировать мою программку. Сразу скажу, она является частью проекта для института. Ее суть в том, что бы скачивать разные файлы из интернета.
В данном примере я скачиваю картинки. Опуская все подробности... у меня есть список с прямыми ссылками на картинки и моя программа по этому списку скачивает картинки ( там не только одни картинки встречаются ). С небольшим списком, ну где-то до 10-15 ссылок проблем нет, но списки у меня очень и очень большие... ну оооочень большие. Размер txt файлика с ссылками доходит до 1мб ( редко но бывало ).
Проблема собственно вот в чем. Программа перестает "отвечать", однако скачивание продолжается. Все хорошо, но препод сказал что бы я оптимизировал приложение иначе оценка будет ниже.
Вот весь собственно код:

Delphi

var
  str :tmemorystream;
  IdHTTP: TIdHTTP;
  i: Integer;
  fname : string;
begin
  pb1.Position := 0;
  pb1.Max := lst1.Items.Count;
  for i := 0 to lst1.Items.Count-1 do
    begin
      fname := copy(lst1.Items[i],pos('img_',lst1.Items[i])+1,length(lst1.Items[i])-pos('img_',lst1.Items[i]));
      str:=TMemoryStream.Create;
      IdHTTP := TIdHTTP.Create(nil);
      IdHTTP.Get(lst1.Items[i],str);
      str.SaveToFile(Directory + '\i' + fname);
      str.Clear;
      IdHTTP.Free;
      pb1.Position := pb1.Position + 1;
    end;
  ShowMessage('Скачивание успешно завершено!');

Это лишь часть для работы с картинками, но тем не менее если сделать тут, то по аналогии сделаю и в других участках.

Я думаю что если добавить проверку:
1. скачивается файл
2. проверка на его появление в папке
3. если он появился, то только тогда переходить к следующей строке.

Но это лишь мои догадки, потому и пишу на форум... подскажите как поправить дело?

@krapotkin · 15.06.2015, 21:01

значит, где-то ошибка
я не тестировал

вот и она

Delphi

1 2	if not FStopAll then RunThread(FThreadCount)

а должно быть

Delphi

1 2	if not FStopAll then RunThread(FThreadIndex)

у меня скачивает все 10

@Farrewa · 18.06.2015, 22:28 **[ТС]**

Попробую и спасибо.

@YouReTs · 21.07.2015, 23:04

От себя дополню...

Delphi

procedure TfThreadsMain.RunThread(index:Integer);
var
  th : TGetThread;
  link, fname : string;//////////////////////////////////
  i : integer;////////////////////////////////////////////
begin
  link := m1.Lines[index];/////////////////////////////
  i := LastDelimiter('/', link);///////////////////////////
  fname := Copy(link, i + 1, Length(link) - (i));//////
 
  th := TGetThread.Create(m1.Lines[index], extractfilepath(ParamStr(0))+'Download\'+fname,ThreadTerminated);////
  th.Resume;
  Inc(FThreadCount);
  Inc(FThreadIndex);
end;

... имена файлов после скачки будут как в URL.

@Sfairath · 22.07.2015, 09:54

А ты не пробовал сделать что-то похожее

Delphi

k:=0;
while k < memo.Lines.Count-1
  for i := 0 to ThreadMaxCount-1 do
    begin
      if i<m1.Lines.Count then
        RunThread(i);
    end;
k:=k+i;

А ThreadMaxCount задавать как memo.Lines.Count mod <вменяемое число> (в идеале, чтобы остаток был 0)
а если не 0, то с условием завершения цикла пошаманить

@krapotkin · 22.07.2015, 10:39

k:=k+i;

в паскале после завершения цикла For переменная цикла может содержать мусор

@krapotkin 5859 / 4588 / 1447 Регистрация: 14.04.2014 Сообщений: 20,350 Записей в блоге: 20
	22.07.2015, 10:39	25
	k:=k+i; в паскале после завершения цикла For переменная цикла может содержать мусор 0

@Farrewa 29 / 29 / 22 Регистрация: 27.12.2013 Сообщений: 368
	18.06.2015, 22:28 [ТС]	22
	Попробую и спасибо. 0

Опции темы