HTTP.Download

HTTP.Download("http://www.indigorose.com/downloads/sample.zip", _TempFolder .. "\\sample.zip", MODE_BINARY, 20, 80, nil, nil, nil);

-- Check to see if the user is connected to the internet
-- Проверяем есть ли у пользователя соединение с интернетом
connected = HTTP.TestConnection("http://www.indigorose.com", 20, 80, nil, nil);

-- If they are connected.
-- Если соединение есть.
if connected then
    -- Download a file to their temporary directory.
    -- Загружаем файл во временную папку пользователя.
    StatusDlg.Show(MB_ICONNONE, false);
    HTTP.Download("http://www.indigorose.com/setup.exe", _TempFolder .. "\\setup.exe", MODE_BINARY, 20, 80, nil, nil, nil);

    -- Get any error codes that may have been returned by the download action.
    -- Получаем коды любых ошибок, которые могут быть возвращени действием загрузки.
    error = Application.GetLastError();
    StatusDlg.Hide();

    -- If there was an error during the download, display the error message.
    -- Если была ошибка при загрузке, показываем сообщение об ошибке.
    if error ~= 0 then
        result = Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);

    -- If there was no error during the download.
    -- Если при загрузке не было ошибки.
    else
        -- Get the CRC value of the downloaded file.
        -- Получаем CRC значение загруженного файла.
        crc_value = File.GetCRC(_TempFolder.."\\setup.exe");
        -- Check to see if the CRC value matches it's expected value.
        -- Проверяем совпадает ли CRC значение с предполагаемым значением.
        if crc_value == 824907888 then

            -- Run the exectuable that was downloaded.
            -- Запускаем выполнение загруженного файла.
            File.Run(_TempFolder .. "\\setup.exe", "", "", SW_SHOWNORMAL, true);

        -- The CRC value does not match. Display an error message to the user.
        -- CRC значение не совпадает. Показываем пользователю сообщение об ошибке.
        else
            result = Dialog.Message("Error", "The downloaded file is incomplete. Please try downloading again.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
        end
    end

-- Display a notice informing them that they are not connected.
-- Показываем уведомление пользователю, что у него нет соединения с интернетом.
else
    Dialog.Message("Internet Error", "You are not connected to the internet. Please connect to download.");
end

-- Callback function for HTTP.Download
-- Возвращающаяся функция для HTTP.Download
function DownloadCallback (nDownloaded, nTotal, TransferRate, SecondLeft, SecondsLeftFormat, Message)
    -- Convert total and downloaded bytes into formatted strings
    -- Конвертируем полное и загруженное количество байтов в формат строки
    sDownloaded = String.GetFormattedSize(nDownloaded, FMTSIZE_AUTOMATIC, true);
    sTotal = String.GetFormattedSize(nTotal, FMTSIZE_AUTOMATIC, true);

    -- Output time left, formatted.
    -- Переводим в строку оставшееся время загрузки.
    StatusDlg.SetMessage("Currently downloading file . . . Time Left: " .. SecondsLeftFormat);

    -- Output formatted sizes to user through statusdlg status text
    -- Выводим конвертированные в строки размеры пользователю через текст состояния окна statusdlg
    StatusDlg.SetStatusText("Downloaded: " .. sDownloaded .. " / " .. sTotal);

    -- Set meter position (fraction downloaded * max meter range)
    -- Устанавливаем позицию счетчика (частично загруженный размер * макс. значение счетчика)
    StatusDlg.SetMeterPos((nDownloaded / nTotal) * 65534);
end

-- Show the StatusDlg
-- Показываем окно StatusDlg
StatusDlg.Show(0, false);

-- Set statusdlg title and message
-- Устанавливаем заголовок и сообщение окна statusdlg
StatusDlg.SetTitle("Downloading . . . ");

-- Set meter range (max range = 65534)
-- Устанавливаем диапазон измерения (макс.значение = 65534)
StatusDlg.SetMeterRange(0, 65534);

-- Download a file from the internet to the user's computer
-- Uses DownloadCallback() as the callback function
-- Загружаем файл из интернета в компьютер пользователя
-- Используем DownloadCallback() как возвращающуюся функцию
HTTP.Download("http://www.yourdomain.com/downloads/update.exe", _TempFolder .. "\\update.exe", MODE_BINARY, 20, 80, nil, nil, DownloadCallback);

-- Hide the StatusDlg
-- Скрываем окно StatusDlg
StatusDlg.Hide();