Updater

[mira]

Вощем надоело мне давать обновления вручную, решил сделать как положено.

может кто подсказать с чего начать или какуюнеть статейку?
Интересует :
где хранить файлы, как регистрировать сайт и че там писать как получать доступ к нему из по и узнавать версию.
Как скачивать соответственно и получать список обновленных компонентов.

[J-Fobos]

Один из вариантов http://programmersforum.ru/showthread.php?t=34131

[Silent]

Сообщение от J-Fobos

Один из вариантов http://programmersforum.ru/showthread.php?t=34131

Кроме работы с архивом по данной ссылке ничего путевого нету.
Небольшие замечания по данному примеру:
- Качать каждый раз архив со всеми файлами глупо т.к. в программе может обновится только библиотека так зачем же тогда качать еще ехе и другие библиотеки если они есть. В данном случае нужно скачивать только те файлы которые обновились.
- Отдельный апдетор для программы это на любителя, я делал всегда апдейт программ в самой программе. Дико раздражает на руофе этот долбанный зависатор который сам толком не может обновится и клиент игры тоже обновляет как Бог на душу послал, поэтому имхо программа которая обновляет сама себя намного интереснее и исключает некоторые глюки.

[mira]

Сообщение от Silent

Кроме работы с архивом по данной ссылке ничего путевого нету.
Небольшие замечания по данному примеру:
- Качать каждый раз архив со всеми файлами глупо т.к. в программе может обновится только библиотека так зачем же тогда качать еще ехе и другие библиотеки если они есть. В данном случае нужно скачивать только те файлы которые обновились.
- Отдельный апдетор для программы это на любителя, я делал всегда апдейт программ в самой программе. Дико раздражает на руофе этот долбанный зависатор который сам толком не может обновится и клиент игры тоже обновляет как Бог на душу послал, поэтому имхо программа которая обновляет сама себя намного интереснее и исключает некоторые глюки.

идеальный алгоритм для меня это по принципу lameupdater.
Сверяем хеши наших файлов с хешами на сервере. Составляем список че обновить и качаем.

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

[Hint]

Генерируешь текстовый файл, содержащий следующую информацию о каждом файле:
1. Имя файла
2. Контрольная сумма файла (лучше md5)
3. Размер файла в сжатом виде

Загружаешь этот служебный файл на сайт. Сжимаешь отдельно каждый файл программы и тоже загружаешь на сайт.

Контрольную сумму надо считать от оригинального файла. Размер указывать от архива с файлом.

Программа загружает с сайта служебный файл, проверяет все файлы по списку на отличие контрольной суммы, суммирует размер сжатых версий для получения общего размера загрузки (исключительно для информирования пользователя и для отображения общего прогресса загрузки), загружает необходимые файлы и распаковывает их.

[mira]

хм. найти какуюнеть надежную компонетнты бы умеющую загружать файло и дающую возможность отслеживать прогресс.

то есть примеры на стандартных инди но как я понял они имеют ряд подводных камней и затупов.

[supernewbie]

не компанента, но тоже норм - http://www.delphisources.ru/pages/fa...with_http.html

[Hint]

idHTTP вполне себе удобный компонент.

[SeregaZ]

и мои пять копеек. файл большой получится. ну всмысле 5 килобайт это конечно не много, но не лучше ли вести учет номера версии. поясняю:
вышел релиз программы, на сайте лежит файлик "ver", с цифоркой 1.
программа при запуске качает этот файл и сравнивает со своей версией то есть 1.
сделал какой-то новый файл, на сайте правишь тот файлик пишешь 2. и выкладываешь сам файл и тот файл с хешами.
программа получает первый мизерный файл, видит что цифорка изменилась - льет файл с хешами, сраванивает, выбирает что скачать, качает файлы.

в моем случае, тот файл с номером весил несколько байт. его проще каждый раз проверять.

[mira]

unit inntUtils;

interface

uses Wininet,Windows,sysutils,defineewa;

var
 WININETHANDLE : Pointer=nil;

type
 TInetLoadingCallback = function(progress : INT64):BOOL; stdcall;


function GetInetFile(const fileURL, FileName: string; ldc : TInetLoadingCallback): boolean;

implementation


function GetInetFile(const fileURL, FileName: string; ldc : TInetLoadingCallback): boolean;
const
  BufferSize = 1024;
var
  hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
  cmdl : array[0..511]of ansichar;
  posit : INT64;
  sz    : INT64;
  dwsz,dwreserved,ecode  : DWORD;
begin
  Result := False;
  GetModuleFileName(0,@cmdl,sizeof(cmdl));
  sAppName:=PAnsiChar(@cmdl);
  sAppName := ExtractFileName(sAppName);
  if WININETHANDLE=nil then WININETHANDLE:= InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if WININETHANDLE=nil then exit;
    hURL := InternetOpenURL(WININETHANDLE, PChar(fileURL), nil, 0, 0, 0);
    if hURL=nil then exit;  
    posit:=0;
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
        inc(posit,BufferLen);
        if assigned(ldc)then if not ldc(posit)then begin
          CloseFile(f);
          exit;
        end;
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
end;

initialization

finalization
 InternetCloseHandle(WININETHANDLE);

end.

чуток подправил, впринципе нормально