Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Последовательное скачивание файлов

Автор: ВиталийD 7.4.2015, 16:41

Код


procedure TMainForm.DownloadMainButtonClick(Sender: TObject);
var
  DownloadMain: TDownloadArchiveThread;
begin
  GameButton.Visible := False;
  DownloadMainButton.Visible := False;
  DownloadMain := TDownloadArchiveThread.Create(True);
  DownloadMain.FreeOnTerminate := True;
  DownloadMain.Priority := tpNormal;
  DownloadMain.ArchiveType := ARCHIVE_MAIN;
  DownloadMain.URL := ClientAddress;
  DownloadMain.Destination := Minepath + '\' + ClientTempArchiveName;
  DownloadMain.PlayAfterDownloading := Sender = GameButton;
  ResetEvent(ArrayEvents[EVENT_MAIN]);
  DownloadMain.Resume;
  end;

Как добавить последовательное скачивание следующих файлов после закачивания первого?
Я так понимаю что-то надо с этой строкой сделать, но как? DownloadMain.PlayAfterDownloading := Sender = GameButton;

Автор: Poseidon 8.4.2015, 10:23

ВиталийD, либо передавай в поток сразу список всех файлов, а уже в потоке в Execute скачивай их по порядку, либо почитай про метод TThread.WaitFor

Автор: ВиталийD 8.4.2015, 10:42

Можно пример кода? Я пока еще слабо во всем разбираюсь

Автор: Poseidon 9.4.2015, 08:44

Покажи реализацию TDownloadArchiveThread