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

okamor71

Дата 25.10.2007, 17:05 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

Репутация: нет
Всего: нет

Поставлена слудующая задача:

При запуске проги нужно провести проверку на наличее новой версии и при определение такой нужно автоматично произвести его. Но тут как раз и трабл это дело нужно нужно делать одним и тем же модулем. Помогите, плиз.

P.S. Обновление должо работать через WWW тоесть инет

Rennigth

Дата 25.10.2007, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

okamor71, делай отдельную лаунчер твоей проги

--------------------

(* Honesta mors turpi vita potior *)

Alix

Дата 25.10.2007, 17:41 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

или скачиваешь в *.tmp, затем в шедулере виндовском выставляешь переименование *.exe -> *.bak, *.tmp -> *.exe и запуск. Когда загрузил обновления, спрашиваешь о необходимости перезапуска приложения, пишешь все эти действия в шедулер скажем на через 10 сек (а может там есть и другие условия?) и выгружаешь программу.
Про работу с шедулером где-то тут видел тему. Вроде даже была закреплена, но чего-то не найду (а через поиск лениво).

Или вместо шедулера, запускаешь свою маленькую програмку, которая висит в беке, ждет сообщения WM_UPDATEME = WM_USER+123, после чего заменяет *.exe файл, запускает его а сама завершается. Главная программа, перед завершением, ясное дело посылает ей это сообщение. Программка же, соответственно должна дождаться, когда exe можно будет перезаписать.

Добавлено через 6 минут и 30 секунд
вариант 3. создаешь примерно такой батник

Код

start /wait taskkill.exe /F /IM program.exe
// тут действия по переименованию
start program.exe

(с) http://forum.codenet.ru/showthread.php?t=30078

вариант 4. сохраняешь ту программу как program_2.exe, в основной запускаешь ее, а саму ее завершаешь. В программе при выходе делать тест, если я запустилась из *_2.exe, то переименовываю себя в *.exe. хотя что-то мне это не нравится smile

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

maniaks1

Дата 30.10.2007, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 16.12.2006

Репутация: нет
Всего: нет

Ну я бы сделал так (точнее уже сделал):

Код в программе:

Код


//***************Код Закачки****************
type
   CalBackInet = class(TInterfacedObject, IBindStatusCallback)
    function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
    function GetPriority(out nPriority): HResult; stdcall;
    function OnLowResource(reserved: DWORD): HResult; stdcall;
    function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
      szStatusText: LPCWSTR): HResult; stdcall;
    function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
    function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
    function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc;
      stgmed: PStgMedium): HResult; stdcall;
    function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
   end;

function DownloadFile(SourceFile, DestFile: string): Boolean;
var
  CLB : IBindStatusCallback;
begin
 CLB := CalBackInet.Create as IBindStatusCallback;
 try
   Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, CLB) = 0;
 except
   Result := False;
 end;
 CLB := nil;
end;

{ CalBackInet }

function CalBackInet.GetBindInfo(out grfBINDF: DWORD;
  var bindinfo: TBindInfo): HResult;
begin

end;

function CalBackInet.GetPriority(out nPriority): HResult;
begin

end;

function CalBackInet.OnDataAvailable(grfBSCF, dwSize: DWORD;
  formatetc: PFormatEtc; stgmed: PStgMedium): HResult;
begin

end;

function CalBackInet.OnLowResource(reserved: DWORD): HResult;
begin

end;

function CalBackInet.OnObjectAvailable(const iid: TGUID;
  punk: IInterface): HResult;
begin

end;

function CalBackInet.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
  szStatusText: LPCWSTR): HResult;
begin
  //Этот метод вызывается постоянно
  //тут можно вызвать Application.ProcessMessages для обработки сообщений
  // перерисовки и отображения прогресса.
end;

function CalBackInet.OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult;
begin
  //Тут отображаем начало старта закачки
end;

function CalBackInet.OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult;
begin
  //Вызовиться по завершению процесса закачки
end;
// ************************* Конец кода закачки**************


//Проверяем подключен ли интернет
function IsConnectedToInternet: Boolean;
var
   dwConnectionTypes: DWORD;
begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Узнаём об обновлениях (можно при показе формы):

Код


version:='1.02';//Версия... Например 1.02
  if Pos('.',version)<>0 then Delete(version, Pos('.', version), 1);
  SourceFile:='http://www.maniaks1.cwx.ru/myprograms/news/index.php?program=screen&version='+version;
  DestFile:=ExtractFilePath(Application.ExeName)+'versioninfo.html';
  if IsConnectedToInternet then
  begin
  Label9.Caption:='Получение данных...';
  if DownloadFile(SourceFile, DestFile) then
  begin
    Label9.Caption:='Готово';
    Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'versioninfo.html');
    info:=Memo1.Text;
    if Pos('no_new', info)<>0 then
    Label9.Caption:='Обновлений нет.' else
    begin
      GroupBox1.Enabled:=true;
      if Pos('new_version=', info)<>0 then
      begin
        Delete(info, 1, Pos('new_version=', info)-1);
        Label11.Caption:=Copy(info, Pos('new_version=', info)+12, Pos(';', info)-13);
        Delete(info, Pos('new_version=', info), Pos(';', info));
      end;
      if Pos('link=', info)<>0 then
      begin
        Delete(info, 1, Pos('link=', info)-1);
        Link:=Copy(info, Pos('link=', info)+5, Pos(';', info)-6);
        Delete(info, Pos('link=', info), Pos(';', info));
      end;
      if Pos('size=', info)<>0 then
      begin
        Delete(info, 1, Pos('size=', info)-1);
        Label13.Caption:=Copy(info, Pos('size=', info)+5, Pos(';', info)-6);
        Delete(info, Pos('size=', info), Pos(';', info));
      end;
      if Pos('info=', info)<>0 then
      begin
        Delete(info, 1, Pos('info=', info)-1);
        readme:=Copy(info, Pos('info=', info)+5, Pos(';', info)-6);
        Delete(info, Pos('info=', info), Pos(';', info));
      end;
    end;
  end
  else
   Label9.Caption:='Нет данных.';
  end
  else Label9.Caption:='Интернет не подключен';
  if FileExists(DestFile) then DeleteFile(DestFile);

Вот так мы узнаём есть ли новая программа, и инфу о ней.
Думаю сложностей при переделке не возникнет.

Теперь код интернет страницы. Причём она может располагаться и на ,бесплатном сервере.

index.php

Код


<?
session_start();
if (isset($_SESSION['page'])) {$page=$_SESSION['page'];} else {$page='no';}
$program=strtolower($_REQUEST['program']);
$version=strtolower($_REQUEST['version']);


if ($program=='') {
echo"<center>Вы не ввели имя программы</center>";
die();
}

if (File_Exists("$program.php")) {

  include("$program.php");

} else {

  echo"<center>Программа не найдена.</center>";

}

if ($version<$new_version) {

echo"<center>Появилась новая версия. new_version=$new_version;link=$link;size=$size;info=$info;";

} else {

echo"Обновлений нет. no_new";

}

?>

Например программа называеться Screen, тогда в этойже директории ложим Screen.php

Код


<?

    $new_version='120';
    $link='http://maniaks1.cwx.ru/download.php?page=myprograms&file=Screen_v1.20.rar';
    $size='249 кб.';
    $info='*Появилась новая возможность: поворот изображения.#13 *Появилась опция: оттенки серого.';    
?>

в uses понадобится WinInet, ActiveX, UrlMon

Конечно всё довольно некрасиво, но работает.
Тебе нужно добавить что то вроде

Код


procedure update;
Var f:Text;
begin
  AssignFile(f, ExtractFilePath(Application.ExeName)+'update.bat');
  Rewrite(f);
  Write(f, 'del'+Application.Exename);
  Write(f, 'rename new.tmp '+Application.Exename);
  Closefile(f);
  ShellExecute(Handle, 'open', PAnsiChar(ExtractFilePath(Application.ExeName)+'update.bat'), nil, nil, SW_SHOWNORMAL);
  Application.Terminate;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »