[Tco 03]

Что-то у меня не работает... Висит надпись "Preparing download..." и всё, больше никаких действий! »

Тут оказывается косяк! При нерабочем интернете (или рабочем, но не может связаться по ссылке с файлом) инсталлятор зависает! И выход из ситуации только "убить процесс".

например с 1 файла из 3 если они все втроём составляют одно целое »

Ну три файла составляют одно целое, но если интернет отрубился, а до этого два файла успешно скачались, объёмом по 80 метров, скачивать заново те, что уже скачались? Тут по правилам нужно сделать какую-нибудь проверку... Ещё бы хотелось добавить фунцию повтора закачки, если при обрыве связи закачка одного из трёх файлов была прервана (соответственно нужно скачать только его (недокаченный)).

ну всё, с тебя ящик бухла: »

Johny777, Как в твоём примере нарисовать скорость загрузки?

Mat_y, А назад вернуть надпись кнопки!?

читать дальше »

Код:

Procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectTasks then
begin
  WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
end else begin
  WizardForm.NextButton.Caption:= WizardForm.NextButton.Caption;
end;
end;

[Mat_y]

Mat_y, А назад вернуть надпись кнопки!? »

А автор не просил чтобы они еще и назад вернулись
З.Ы. А серьезно - просто забыл.

[Johny777]

Tco 03,

Ну три файла составляют одно целое, но если интернет отрубился, а до этого два файла успешно скачались, объёмом по 80 метров, скачивать заново те, что уже скачались? Тут по правилам нужно сделать какую-нибудь проверку... Ещё бы хотелось добавить фунцию повтора закачки, если при обрыве связи закачка одного из трёх файлов была прервана (соответственно нужно скачать только его (недокаченный)). »

OK,
но повторюсь, интернет для меня тема в большей мере непознанная. я еще с переадресацией и прокси не разобрался.
http://forum.oszone.net/post-2267708-1631.html
код будет очень нескоро. Паси форум

Как в твоём примере нарисовать скорость загрузки? »

вычисляется статистически. Учитывая прошедшее время и тд. Типа как здесь оставшееся время вычисляется.
http://forum.oszone.net/post-2264978-1575.html
Потом добавлю в демо.

Tco 03, ну всё, с тебя ящик бухла: »

временно отменяется. пока готовь 2 ящика!

[Shkutu]

Доброго времени суток!
А нет ли у кого-нибудь случаем алгоритма кодирования в/декодирования base64 для инно?

[Mat_y]

Ребят!
А можно ли вот эту часть кода

Код:

var
  InfoBMP: TBitmapImage;
  I_BMP : Array [0..10] of TBitmap;

которая призвана выводить картинки формата BMP при наведении на компонент (см. код ниже):

читать дальше »

Код:

procedure ComponentsListItemMouseMove(Sender: TObject; X: Integer; Y: Integer; Index: Integer; Area: TItemArea);
begin
  InfoBMP.Bitmap.FreeImage;
  if ((Index >-1) and (Index<10))then InfoBMP.Bitmap := I_BMP[Index];
end;

procedure InitializeImageInfo;
var
  i : Integer;
begin
  with WizardForm do
  begin
    with ComponentsList do
    begin
      OnItemMouseMove := @ComponentsListItemMouseMove;
    end;
  end;

  InfoBMP := TBitmapImage.Create(WizardForm); //*****************************
  with InfoBMP do
  begin
    Parent := WizardForm.MainPanel;
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(149));
    Stretch := true;
//    InfoBMP.Bitmap := I_BMP[0]; // 0-ая картинка по умолчанию
  end;
  for i := 0 to 10 do
  begin
    I_BMP[i] := TBitmap.Create;
    with I_BMP[i] do
    begin
      case i of
         0 : LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
         1 : LoadFromFile(ExpandConstant('{tmp}\2.bmp'));
//////////............................................

Заменить на картинки на формат *.PNG и привязать их к свободной форме Parent := WizardForm;

Другими словами TBitmapImage можно чем либо заменить? Или другой подход реализовать... через dll какой нибудь?

[Tco 03]

Johny777,

код будет очень нескоро. Паси форум »

Я его почти каждый день просматриваю (правда через E-Mail)

вычисляется статистически. Учитывая прошедшее время и тд. Типа как здесь оставшееся время вычисляется. »

Чего-то у меня это не получается

временно отменяется. пока готовь 2 ящика! »

Mat_y,

Заменить на картинки на формат *.PNG и привязать их к свободной форме Parent := WizardForm; »

Тут Вам поможет ботва!

Другими словами TBitmapImage можно чем либо заменить? Или другой подход реализовать... через dll какой нибудь? »

Незнаю, что конкретно Вам нужно... Типа вроде этого?



Если да, то вот готовый пример:

[Shkutu]

И еще вопрос.
Можно ли в инно как-то менять кодировку текста, сохраняемого в файлик? При сохранении получается utf-8 (у меня юникодная версия), а надо в результате ucs-2 little endian

[Dimas2011]

Ребята помогите не показывает картинку.я пытаюсь сделать так что когда выбираешь куда устанавливать файлы потом открывается сам список того что хочешь установить. так чтобы когда наводишь на название какого-то файла выскакивала картинка а оно не работает.Test.rar

[FX-DENIS]

Ребята я наверно многим тут уже надоел,но вроде все делаю правильно.Скрипт компилируется без ошибок и запускается в инно (расширенная версия юникод) когда нажимаешь на запуск инсталятора в инно(зеленая стрелка).Как только компилирую,закрываю инно,нажимаю Setup.exe , появляется на панели задач иконка и окно иснталла и не раскрывается,тупо зависает инсталл не появившись.Не пойму почему такой глюк.Ошибок при компиляции не выдает.Система свежая тока недавно ставил,временные папки и реестр чистил.Вот скрипт,может просмотрите глазом ,что не так.Подозреваю ,что то в procedure InitializeWizard();
FX_NEWc прозрачным текстом_без фри арк.zip

[Gnom_aka_Lexander]

FX-DENIS, вот это все:

Код:

Source: ISSkin.dll; Flags: dontcopy
Source: tiger.cjstyles; Flags: dontcopy
//Source: ISDone.dll; DestDir: {tmp}; Flags: dontcopy
//Source: ISDone_Arc.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\InnoCallback.dll;  Flags: dontcopy
Source: CallbackCtrl.dll; Flags: dontcopy
Source: logo.bmp; Flags: dontcopy

подними в начало секции, а строчку с файлами игры (у тебя эта:

Код:

Source: D:\Games\R.G. Catalyst\Far Cry 3\*; DestDir: {app}; AfterInstall: Progress; Flags: ignoreversion createallsubdirs recursesubdirs sortfilesbyextension sortfilesbyname

) наоборот в самый низ секции файлов