Закачка всех файлов в текущем каталоге адреса

[XNET Vladislav]

Я видел функцию загрузку файлов всех что есть в каталоге у хоста, но она не работает, как загрузить все файлы и переместить что скачал в каталог куда ставится программа?
В zip не подходит вариант

[Mitrich K]

Я видел функцию загрузку файлов всех что есть в каталоге у хоста, но она не работает

Где? Нет в IDP такой функции :)
Позже добавлю такую возможность, но только для FTP.
Пока могу предложить только хранить на сервере текстовый файл со списком файлов, подлежащих загрузке. Затем, для скачивания всех файлов, указанных в filelist.txt использовать такой код:

; This example downloads text file, which lists files to download, then downloads each file, specified in filelist.txt
; File list has following format: each file name on new line:
; file1.xyz
; file2.xyz
; file3.xyz

[Code]
var FileList: TStringList;

procedure InitializeWizard();
var i: Integer;
begin
    //Downloading file list
    idpDownloadFile('http://127.0.0.1/FileList.txt', ExpandConstant('{tmp}\FileList.txt'));
   
    FileList := TStringList.Create;
    FileList.LoadFromFile(ExpandConstant('{tmp}\FileList.txt'));
   
    for i := 0 to FileList.Count-1 do
        //Add each file to download queque
        idpAddFile('http://127.0.0.1/' + FileList[i], ExpandConstant('{tmp}\') + FileList[i]);
   
    idpDownloadAfter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var i: Integer;
begin
    if CurStep = ssPostInstall then
    begin
        // Copy downloaded files to application directory
        for i := 0 to FileList.Count-1 do
            FileCopy(ExpandConstant('{tmp}\') + FileList[i], ExpandConstant('{app}\') + FileList[i], false);
    end;
end;

[XNET Vladislav]

function idpDownloadFiles: Boolean;

Immediately download all files, previously added with idpAddFile procedure, without UI indication. Returns when all files downloaded. This function always downloads all files, ignoring component selection.

Returns:

True if all files was successfully downloaded, False otherwise

See also:

idpDownloadFilesComp
idpDownloadFile
idpDownloadAfter

В справке нашел

[XNET Vladislav]

Не только файлы, и папки с файлами, которые будут меняться, сможете сделать до 14-15 числа такую функцию? модуль хороший, но мелочь убрали в новых версиях ((

[Mitrich K]

В справке нашел

idpDownloadFiles скачивает файлы, которые были перед этим добавлены вызовами ф-ции idpAddFile.

Её можно использовать вместо idpDownloadAfter, от которой она отличается тем, что скачивает файлы сразу после её вызова и без показа страницы скачивания.

Не только файлы, и папки с файлами, которые будут меняться, сможете сделать до 14-15 числа такую функцию?

Для FTP?

[XNET Vladislav]

Да, хотя бы, чтоб качалось по адресу все содержимое без указаний вручную на них

[XNET Vladislav]

А когда примерно ждать новую версию?

[Mitrich K]

Думаю, через пару дней.

[XNET Vladislav]

Напишите сюда, когда обновите плагин

[Mitrich K]

Готово. Теперь есть такая вот функция:

procedure idpAddFtpDir(url, mask, destdir: String; recursive: Boolean);
procedure idpAddFtpDirComp(url, mask, destdir: String; recursive: Boolean; components: String);

Используется также, как и idpAddFile
Параметры:

• url - адрес
  
• mask - маска файла, вида *.xyz, или пустая строка если нужно качать всё
  
• destdir - целевой каталог
  
• recursive - включать подкаталоги или нет
  
• components - компоненты, также как и в idpAddFileComp или секции [Files]
  

Пример:

//Все файлы по заданному адресу, включая подкаталоги
idpAddFtpDir('ftp://ftpserver.com/pub/myfiles', '', ExpandConstant('{tmp}'), true);

//Только файлы *.dll files; не лезем в подкаталоги
idpAddFtpDir('ftp://ftpserver.com/pub/myfiles', '*.dll', ExpandConstant('{tmp}'), false);

Скачать - idpsetup-1.5.0.exe

[XNET Vladislav]

А есть скрипт idp.iss без функций ISPP? а то старый без них убрал и шла компиляция, а щас жалуется жалуется на #

[Mitrich K]

В смысле, у вас стоит старый Inno Setup без препроцессора? Если так, то в чём проблема установить?

[XNET Vladislav]

Разобрался, у меня ansi версия от китайцев

[XNET Vladislav]

Есть такая проблема, скачивает файлы по ftp, потом когда заканчивает, пишет - cannot create file, вот кусок кода что использовал

If CurPageID=wpReady then
begin
     idpAddFtpDir('ftp://dlink.ru/pub/Multimedia', '', ExpandConstant('{app}'), true);
     idpDownloadAfter(wpReady);
end;

[Mitrich K]

Это потому, что каталога {app} пока ещё не существует - он создается позже.
Решение - создавать его самому, добавив строчку

ForceDirectories(ExpandConstant('{app}'));

[XNET Vladislav]

А куда вписать, а то ошибка вылезает если подменить - ExpandConstant('{app}'), true);

[Mitrich K]

Вот сюда например и добавить:

procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpReady then
    begin
        ForceDirectories(ExpandConstant('{app}')); //Создаем каталог {app} вручную

        idpAddFtpDir('ftp://dlink.ru/pub/Multimedia', '', ExpandConstant('{app}'), true);
        idpDownloadAfter(wpReady);
    end;

end;

[XNET Vladislav]

Спс, помогло

[vdemed...@amcbridge.com]

Поддержка закачки директории по http (по аналогии с ftp) планируется?