Автоматическое обновление программы

[Voody]

Сообщение от Smitt&Wesson

Менять версию программы, без ведома пользователя, это жестоко, не демократично и не правомерно.

Когда-то...
Сейчас уже вряд ли) Даже "не демократичный и не правомерный" Google Chrome обновляется, никого не спрашивая

[Smitt&Wesson]

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

Когда-то...
Сейчас уже вряд ли) Даже "не демократичный и не правомерный" Google Chrome обновляется, никого не спрашивая

Ну, Вы сравнили. От Гугола, просто деваться некуда, а от вашей программки?
Если я замечу, что в моём компе кто-то, что-то творит без моего ведома, я сочту это за действия трояна и мигом её удалю (и удаляю безоговорочно)!
Строго наблюдаю за процессами в сети. И ни дай Бог, какой-то процесс запустится без моего на то согласия. Считай, что он уже труп.

[lux16]

Хм, я думаю просто в программе должна быть константа что то вроде ver = '0.2', а не сервере или простой файл, любой структуры или PHP - скрипт, отдающий информацию о текущей версии на сайте, и все. А там уже просто с программы запрашиваешь и делаешь выбор качать или нет

[Человек_Борща]

Все просто , до безобразия.
Ни каких констант и прочей мути.

На сервере лежит некий файл ver.ini с данными:

[U]
File=Update.exe
Ver=1.1.0.3456
Size=<Size in bytes>

Файл скачивается и расфасовывается, формируется ссылка вида:
http://localhost/UPD/Значение из переменной File в ini файле.

Далее проверка версий, берём свою версию:

function MyVersion(Files: string): string;
var
  Buffer: string;
  fInfoSize: DWORD;
  function InitVersion: boolean;
  var
    FilenamePointer: PChar;
  begin
    Result := True;
    FilenamePointer := PChar(Files);
    fInfoSize := GetFileVersionInfoSize(FilenamePointer, fInfoSize);
    if fInfoSize > 0 then
    begin
      SetLength(Buffer, fInfoSize);
      if not GetFileVersionInfo(FilenamePointer, 0, fInfoSize, PChar(Buffer)) then
      begin
        Result := False;
      end;
    end; //if
  end; //InitVersion

  function GetVersion(whatToGet: string): string;
  var
    tmpVersion: string;
    Len, Len2: DWORD;
    Value: PChar;
    temp: PLongInt;
    tempStr: string;
  begin
    Result := '';
    if fInfoSize > 0 then
    begin
      SetLength(tmpVersion, 200);
      Value := @tmpVersion;
      VerQueryValue(PChar(Buffer), '\VarFileInfo\Translation', Pointer(temp), Len2);
      tempStr := Format('%s%.4x%.4x\%s%s', ['\StringFileInfo\', LoWord(temp^), HiWord(temp^), whattoget, #0]);
      if VerQueryValue(PChar(Buffer), PChar(tempStr), Pointer(Value), Len) then
        Result := Value;
    end; // if
  end; //getversion
begin
  Buffer := '';
  try
    InitVersion;
    result := GetVersion('FileVersion');
  except
    Result := '';
  end;
end;

и сравниваешь то, что отдал тебе ini и то, что отдано тебе myVersion, при помощи:

function CompareVersion(s1, s2: string): integer;
var
  d1, d2: TStrings;
  i: integer;
begin
  if s1 = s2 then
    Result := 0
  else
  begin
    d1 := TStringList.Create;
    d2 := TStringList.Create;
    try
      d1.Delimiter := '.';
      d2.Delimiter := '.';
      d1.DelimitedText := trim(s1);
      d2.DelimitedText := trim(s2);
      if d1.Count <> d2.Count then
      begin
        Result := 0; //Обновление не надо
      end
      else
      begin
        Result := 0;
        for i := 0 to d1.Count - 1 do
        begin
          if (StrToinTDef(trim(d1[i]), 0) > StrToinTDef(trim(d2[i]), 0)) then
          begin
            Result := 1; //Версия на сервере старше
            break;
          end;
          if (StrToinTDef(trim(d1[i]), 0) < StrToinTDef(trim(d2[i]), 0)) then
          begin
            Result := -1; //Версия на сервере младше
            break;
          end;
        end;
      end;
    finally
      d1.Free;
      d2.Free;
    end;
  end;
end;

Что делать с размеров в байтах? Сам что-нибудь придумай

[lux16]

Сообщение от Человек_Борща

Все просто , до безобразия.
Ни каких констант и прочей мути.

На сервере лежит некий файл ver.ini с данными:

[U]
File=Update.exe
Ver=1.1.0.3456
Size=<Size in bytes>

Файл скачивается и расфасовывается, формируется ссылка вида:
http://localhost/UPD/Значение из переменной File в ini файле.

Далее проверка версий, берём свою версию:

function MyVersion(Files: string): string;
var
  Buffer: string;
  fInfoSize: DWORD;
  function InitVersion: boolean;
  var
    FilenamePointer: PChar;
  begin
    Result := True;
    FilenamePointer := PChar(Files);
    fInfoSize := GetFileVersionInfoSize(FilenamePointer, fInfoSize);
    if fInfoSize > 0 then
    begin
      SetLength(Buffer, fInfoSize);
      if not GetFileVersionInfo(FilenamePointer, 0, fInfoSize, PChar(Buffer)) then
      begin
        Result := False;
      end;
    end; //if
  end; //InitVersion

  function GetVersion(whatToGet: string): string;
  var
    tmpVersion: string;
    Len, Len2: DWORD;
    Value: PChar;
    temp: PLongInt;
    tempStr: string;
  begin
    Result := '';
    if fInfoSize > 0 then
    begin
      SetLength(tmpVersion, 200);
      Value := @tmpVersion;
      VerQueryValue(PChar(Buffer), '\VarFileInfo\Translation', Pointer(temp), Len2);
      tempStr := Format('%s%.4x%.4x\%s%s', ['\StringFileInfo\', LoWord(temp^), HiWord(temp^), whattoget, #0]);
      if VerQueryValue(PChar(Buffer), PChar(tempStr), Pointer(Value), Len) then
        Result := Value;
    end; // if
  end; //getversion
begin
  Buffer := '';
  try
    InitVersion;
    result := GetVersion('FileVersion');
  except
    Result := '';
  end;
end;

и сравниваешь то, что отдал тебе ini и то, что отдано тебе myVersion, при помощи:

function CompareVersion(s1, s2: string): integer;
var
  d1, d2: TStrings;
  i: integer;
begin
  if s1 = s2 then
    Result := 0
  else
  begin
    d1 := TStringList.Create;
    d2 := TStringList.Create;
    try
      d1.Delimiter := '.';
      d2.Delimiter := '.';
      d1.DelimitedText := trim(s1);
      d2.DelimitedText := trim(s2);
      if d1.Count <> d2.Count then
      begin
        Result := 0; //Обновление не надо
      end
      else
      begin
        Result := 0;
        for i := 0 to d1.Count - 1 do
        begin
          if (StrToinTDef(trim(d1[i]), 0) > StrToinTDef(trim(d2[i]), 0)) then
          begin
            Result := 1; //Версия на сервере старше
            break;
          end;
          if (StrToinTDef(trim(d1[i]), 0) < StrToinTDef(trim(d2[i]), 0)) then
          begin
            Result := -1; //Версия на сервере младше
            break;
          end;
        end;
      end;
    finally
      d1.Free;
      d2.Free;
    end;
  end;
end;

Что делать с размеров в байтах? Сам что-нибудь придумай

Ну да тут ты прав, ну а если без сохранения файла на диске, то только так, ведь есть и ситуации когда и нельзя сохранять файл на диске

[Человек_Борща]

lux16 мб написание своего варианта ini с возможностью загрузить данные из потока или списка строк, не?

[lux16]

Человек_Борща, да блин я про то, что иногда есть задачи, где просто не надо скачивать из нета файл, а просто проверить версию.

[Пепел Феникса]

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

[celovec]

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

И просто при каждом запуске ее она сверяется с программой на сайте, если та программа создана позже чем ваша запущенная games.exe то значит появилась новая версия.

Может кто-то поможет это реализовать?

[Пепел Феникса]

метод HEAD поидее.
но на практике это неверно.
вы не можете гарантировать правильность даты и времени у пользователя(+еще часовые пояса)
версия куда более надежный принцип.