在线更新的实现1

最新推荐文章于 2022-03-16 17:53:41 发布
最新推荐文章于 2022-03-16 17:53:41 发布
阅读量556 收藏 1
点赞数
分类专栏： DELPHI编程 文章标签： command string openxml xml file forms

首先是要有个能放更新文件的服务器，把要更新的文件放上去。然后做一个 xml 文件，用于保存更新文件的信息。对于一个文件，是否需要更新，采用 md5 的方式去判断。如果 md5 值相同，则表示是同一个文件，不需要再更新。

xml 生成工具的代码：


 

  1. unit frmMain;
  3. interface
  5. uses
  6.    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.    Dialogs, xmldom, XMLIntf, Menus, StdCtrls, msxmldom, XMLDoc, OBDragDrop,
  8.    ExtCtrls, MD5Real, ComCtrls, WinSkinData;
  10. type
  11.    TFormMain = class(TForm)
  12.      XML: TXMLDocument;
  13.      PopupMenu1: TPopupMenu;
  14.      N1: TMenuItem;
  15.      N2: TMenuItem;
  16.      N3: TMenuItem;
  17.      N4: TMenuItem;
  18.      N5: TMenuItem;
  19.      N6: TMenuItem;
  20.      N7: TMenuItem;
  21.      N9: TMenuItem;
  22.      MainMenu1: TMainMenu;
  23.      F1: TMenuItem;
  24.      XML1: TMenuItem;
  25.      XML3: TMenuItem;
  26.      N10: TMenuItem;
  27.      N11: TMenuItem;
  28.      N12: TMenuItem;
  29.      N13: TMenuItem;
  30.      N14: TMenuItem;
  31.      N20: TMenuItem;
  32.      H1: TMenuItem;
  33.      OBDragDrop1: TOBDragDrop;
  34.      odSelFile: TOpenDialog;
  35.      N21: TMenuItem;
  36.      N22: TMenuItem;
  37.      N23: TMenuItem;
  38.      Panel1: TPanel;
  39.      Label1: TLabel;
  40.      Splitter1: TSplitter;
  41.      Panel2: TPanel;
  42.      Label2: TLabel;
  43.      mmCommands: TMemo;
  44.      odOpenXml: TOpenDialog;
  45.      sdSaveXml: TSaveDialog;
  46.      lstUpdateFiles: TListView;
  47.      pmDir: TPopupMenu;
  48.      N15: TMenuItem;
  49.      N16: TMenuItem;
  50.      N17: TMenuItem;
  51.      N18: TMenuItem;
  52.      N8: TMenuItem;
  53.      N19: TMenuItem;
  54.      N24: TMenuItem;
  55.      SkinData1: TSkinData;
  56.      XML2: TMenuItem;
  57.      procedure OBDragDrop1Drop(Sender: TObject; Pos: TPoint;
  58.        Value: TStringList);
  59.      procedure N14Click(Sender: TObject);
  60.      procedure N9Click(Sender: TObject);
  61.      procedure lstUpdateFilesDblClick(Sender: TObject);
  62.      procedure N20Click(Sender: TObject);
  63.      procedure N12Click(Sender: TObject);
  64.      procedure XML1Click(Sender: TObject);
  65.      procedure FormCreate(Sender: TObject);
  66.      procedure XML2Click(Sender: TObject);
  67.      procedure XML3Click(Sender: TObject);
  68.      procedure N10Click(Sender: TObject);
  69.      procedure N18Click(Sender: TObject);
  70.      procedure N21Click(Sender: TObject);
  71.      procedure N23Click(Sender: TObject);
  72.      procedure N17Click(Sender: TObject);
  73.      procedure N15Click(Sender: TObject);
  74.      procedure N24Click(Sender: TObject);
  75.    private
  76.      FileName: string;
  78.    public
  79.      function GetFileSize(aFileName: string): integer;
  80.      procedure GenerateFileList;
  81.      procedure CopyFilesToUpdateDir(Files: TStrings);
  82.      function ValidateCommands: Boolean;
  83.    end;
  85. var
  86.    FormMain           : TFormMain;
  87.    fileList           : TStringList;
  88.    DirList            : TStringList;
  90. implementation
  92. {$R *.dfm}
  94. function TFormMain.GetFileSize(aFileName: string): integer;
  95. var
  96.    sr                 : TSearchRec;
  97. begin
  98.    if FindFirst(aFileName, faAnyFile, sr) = 0 then
  99.      Result := sr.Size
  100.    else
  101.      Result := 0;
  102.    FindClose(sr);
  103. end;
  105. procedure TFormMain.OBDragDrop1Drop(Sender: TObject; Pos: TPoint;
  106.    Value: TStringList);
  107. var
  108.    i                  : Integer;
  109.    node               : TListItem;
  110. begin
  111.    for i := 0 to Value.Count - 1 do
  112.    begin
  113.      //     if lstUpdateFiles.Items.Item[i].Caption = ExtractFileName(Value[i]) then
  114.      //       Continue;
  115.      node := Self.lstUpdateFiles.Items.Add;
  116.      node.Caption := ExtractFileName(Value[i]);
  117.      node.SubItems.Add(IntToStr(GetFileSize(Value[i])));
  118.      node.SubItems.Add(EmptyStr);
  119.      node.SubItems.Add(ExtractFileName(Value[i]));
  120.    end;
  121.    GenerateFileList;
  122.    CopyFilesToUpdateDir(Value);
  123. end;
  125. function TFormMain.ValidateCommands: Boolean;
  126. var
  127.    i                  : Integer;
  128.    n, t               : Integer;
  129. begin
  130.    // todo: validate commands
  131.    t := 0;
  132.    n := 0;
  133.    for i := 0 to mmCommands.Lines.Count - 1 do
  134.    begin
  135.      if Pos('stop', mmCommands.Lines[i]) > 0 then
  136.        n := 1;
  137.      if Pos('kill', mmCommands.Lines[i]) > 0 then
  138.        n := 2;
  139.      if (Pos('copy', mmCommands.Lines[i]) > 0) or (Pos('delete', mmCommands.Lines[i]) > 0) or (Pos('rename', mmCommands.Lines[i]) > 0) then
  140.        n := 3;
  141.      if Pos('run', mmCommands.Lines[i]) > 0 then
  142.        n := 4;
  143.      if Pos('start', mmCommands.Lines[i]) > 0 then
  144.        n := 5;
  145.      if Pos('reboot', mmCommands.Lines[i]) > 0 then
  146.        n := 6;
  147.      if n < t then
  148.      begin
  149.        // 顺序出错
  150.        Result := False;
  151.        Exit;
  152.      end;
  153.      t := n;
  154.    end;
  155.    Result := True;
  156. end;
  158. procedure TFormMain.XML1Click(Sender: TObject);
  159. begin
  160.    // DONE: new file
  161.    self.XML.Active := False;
  162.    self.XML.XML.Clear;
  163.    lstUpdateFiles.Items.Clear;
  164.    mmCommands.Lines.Clear;
  165.    FileName := EmptyStr;
  166.    fileList.Clear;
  167.    DirList.Clear;
  168. end;
  170. procedure TFormMain.XML2Click(Sender: TObject);
  171. var
  172.    node               : IXMLNode;
  173.    detail             : IXMLNode;
  174.    str                : string;
  175.    li                 : TListItem;
  176. begin
  177.    // DONE: open xml
  178.    if not odOpenXml.Execute() then
  179.      Exit;
  180.    // open
  181.    FileName := odOpenXml.FileName;
  182.    self.XML.Active := False;
  183.    self.XML.XML.LoadFromFile(FileName);
  184.    self.XML.Active := True;
  185.    node := xml.DocumentElement;
  186.    if node = nil then
  187.      Exit;
  188.    lstUpdateFiles.Items.Clear;
  189.    node := node.ChildNodes.First;
  190.    while node <> nil do
  191.    begin
  192.      str := node.NodeName;
  193.      if str = 'file' then
  194.      begin
  195.        detail := node.ChildNodes[0];      // name
  196.        li := lstUpdateFiles.Items.Add;
  197.        li.Caption := detail.NodeValue;
  199.        detail := node.ChildNodes[1];      // size
  200.        li.SubItems.Add(detail.NodeValue);
  202.        detail := node.ChildNodes[2];      // dir
  203.        if detail.NodeValue = null then
  204.          li.SubItems.Add(EmptyStr)
  205.        else
  206.          li.SubItems.Add(detail.NodeValue);
  208.        detail := node.ChildNodes[4];
  209.        li.SubItems.Add(detail.NodeValue);
  210.        // detail := node.ChildNodes[2]; // md5
  211.      end;
  212.      // lstUpdateFiles.Items.Add(string(node.NodeValue));
  213.      if str = 'command' then
  214.        mmCommands.Lines.Add(string(node.NodeValue));
  215.      node := node.NextSibling;
  216.    end;
  217.    GenerateFileList;
  218. end;
  220. procedure TFormMain.XML3Click(Sender: TObject);
  221. var
  222.    node               : IXMLNode;
  223.    sub                : IXMLNode;
  224.    i                  : Integer;
  225.    sl                 : TStringList;
  226.    detail             : IXMLNode;
  227. begin
  228.    if not ValidateCommands then
  229.    begin
  230.      MessageBox(Handle, '控制指令顺序有误！不能保存！', '提示', MB_OK or MB_ICONINFORMATION);
  231.      Exit;
  232.    end;
  233.    // DONE: save xml
  234.    if FileName = EmptyStr then
  235.    begin
  236.      N10Click(Self);
  237.      Exit;
  238.    end;
  239.    self.XML.Active := False;
  240.    self.XML.XML.Clear;
  241.    self.XML.Active := True;
  242.    node := self.XML.CreateNode('root');
  243.    self.XML.DocumentElement := node;
  244.    node := XML.DocumentElement;
  245.    for i := 0 to lstUpdateFiles.Items.Count - 1 do
  246.    begin
  247.      sub := node.AddChild('file');
  248.      detail := sub.AddChild('name');
  249.      detail.NodeValue := lstUpdateFiles.Items[i].Caption;
  251.      detail := sub.AddChild('size');
  252.      detail.NodeValue := lstUpdateFiles.Items[i].SubItems[0];
  254.      detail := sub.AddChild('dir');
  255.      try
  256.        detail.NodeValue := lstUpdateFiles.Items[i].SubItems[1];
  257.      except
  258.        detail.NodeValue := EmptyStr;
  259.      end;
  260.      detail := sub.AddChild('crc');
  261.      detail.NodeValue := MD5Real.RivestFile(fileList[i]);
  263.      detail := sub.AddChild('truename');
  264.      detail.NodeValue := lstUpdateFiles.Items[i].SubItems[2];
  265.    end;
  266.    for i := 0 to mmCommands.Lines.Count - 1 do
  267.    begin
  268.      sub := node.AddChild('command');
  269.      sub.NodeValue := mmCommands.Lines[i];
  270.    end;
  271.    sl := TStringList.Create;
  272.    sl.Text := FormatXMLData(xml.XML.Text);
  273.    sl.SaveToFile(FileName);
  274.    sl.Free;
  275. end;
  277. procedure TFormMain.N14Click(Sender: TObject);
  278. var
  279.    i                  : Integer;
  280.    node               : TListItem;
  281. begin
  282.    if not odSelFile.Execute then
  283.      Exit;
  284.    for i := 0 to odSelFile.Files.Count - 1 do
  285.    begin
  286.      node := lstUpdateFiles.Items.Add;
  287.      node.Caption := ExtractFileName(odSelFile.Files[i]);
  288.      node.SubItems.Add(IntToStr(GetFileSize(odSelFile.Files[i])));
  289.      node.SubItems.Add(EmptyStr);
  290.      node.SubItems.Add(ExtractFileName(odSelFile.Files[i]));
  291.    end;
  292.    GenerateFileList;
  293.    CopyFilesToUpdateDir(odSelFile.Files);
  294. end;
  296. procedure TFormMain.N15Click(Sender: TObject);
  297. var
  298.    str                : string;
  299. begin
  300.    if lstUpdateFiles.Items.Count = 0 then
  301.      Exit;
  302.    if lstUpdateFiles.ItemIndex = -1 then
  303.      Exit;
  304.    str := lstUpdateFiles.Items.Item[lstUpdateFiles.ItemIndex].SubItems[1];
  305.    str := InputBox('输入目录', '输入文件更新到的目录：　　　　', str);
  306.    if str = EmptyStr then
  307.      Exit;
  308.    lstUpdateFiles.Items.Item[lstUpdateFiles.ItemIndex].SubItems[1] := str;
  309. end;
  311. procedure TFormMain.N17Click(Sender: TObject);
  312. begin
  313.    // todo: delete item
  314.    if lstUpdateFiles.Items.Count = 0 then
  315.      Exit;
  316.    if lstUpdateFiles.ItemIndex = -1 then
  317.      Exit;
  318.    lstUpdateFiles.Items.Delete(lstUpdateFiles.ItemIndex);
  319. end;
  321. procedure TFormMain.N18Click(Sender: TObject);
  322. begin
  323.    // todo: auto command
  324. end;
  326. procedure TFormMain.N9Click(Sender: TObject);
  327. var
  328.    str                : string;
  329.    str2               : string;
  330. begin
  331.    //
  332.    case TMenuItem(Sender).Tag of
  333.      1:
  334.        begin
  335.          // download
  336.          str := InputBox('输入文件名', '输入要下载的文件名：　　　　　',
  337.            EmptyStr);
  338.          if str <> EmptyStr then
  339.            mmCommands.Lines.Add(Format('/download "%s"', [str]));
  340.        end;
  341.      2:
  342.        begin
  343.          // update
  344.          str := InputBox('输入文件名', '输入要更新的文件名：　　　　　',
  345.            EmptyStr);
  346.          if str <> EmptyStr then
  347.            mmCommands.Lines.Add(Format('/update "%s"', [str]));
  348.        end;
  349.      3:
  350.        begin
  351.          // stop service
  352.          str := InputBox('输入服务名', '输入要停止的服务名：　　　　　',
  353.            EmptyStr);
  354.          if str <> EmptyStr then
  355.            mmCommands.Lines.Add(Format('/stop "%s"', [str]));
  356.        end;
  357.      4:
  358.        begin
  359.          // start service
  360.          str := InputBox('输入服务名', '输入要启动的服务名：　　　　　',
  361.            EmptyStr);
  362.          if str <> EmptyStr then
  363.            mmCommands.Lines.Add(Format('/start "%s"', [str]));
  364.        end;
  365.      5:
  366.        begin
  367.          // copy file
  368.          str := InputBox('输入文件名', '输入原文件名：　　　　　',
  369.            EmptyStr);
  370.          str2 := InputBox('输入文件名', '输入新文件名：　　　　　', EmptyStr);
  371.          if (str <> EmptyStr) and (str2 <> EmptyStr) then
  372.            mmCommands.Lines.Add(Format('/copy "%s" to "%s"', [str, str2]));
  373.        end;
  374.      6:
  375.        begin
  376.          // delete file
  377.          str := InputBox('输入文件名', '输入要删除的文件名：　　　　　',
  378.            EmptyStr);
  379.          if str <> EmptyStr then
  380.            mmCommands.Lines.Add(Format('/delete "%s"', [str]));
  381.        end;
  382.      7:
  383.        begin
  384.          // rename file
  385.          str := InputBox('输入文件名', '输入原文件名：　　　　　',
  386.            EmptyStr);
  387.          str2 := InputBox('输入文件名', '输入新文件名：　　　　　', EmptyStr);
  388.          if (str <> EmptyStr) and (str2 <> EmptyStr) then
  389.            mmCommands.Lines.Add(Format('/rename "%s" to "%s"', [str, str2]));
  390.        end;
  391.      8:
  392.        begin
  393.          // reboot software
  394.          str := InputBox('输入程序名', '输入要重启的程序名：　　　　　',
  395.            EmptyStr);
  396.          if str <> EmptyStr then
  397.            mmCommands.Lines.Add(Format('/restart "%s"', [str]));
  398.        end;
  399.      9:
  400.        begin
  401.          // reboot computer
  402.          mmCommands.Lines.Add('/reboot');
  403.        end;
  404.      10:
  405.        begin
  406.          str := InputBox('输入进程名', '输入要停止的进程名称：　　　　　　', EmptyStr);
  407.          if str > EmptyStr then
  408.            mmCommands.lines.Add(Format('/kill "%s"', [str]));
  409.        end;
  410.      11:
  411.        begin
  412.          str := InputBox('输入进程名', '输入要开始的进程名称：　　　　　　', EmptyStr);
  413.          if str > EmptyStr then
  414.            mmCommands.lines.Add(Format('/run "%s"', [str]));
  415.        end;
  416.    end;
  417. end;
  419. procedure TFormMain.FormCreate(Sender: TObject);
  420. begin
  421.    FileName := EmptyStr;
  422. end;
  424. procedure TFormMain.lstUpdateFilesDblClick(Sender: TObject);
  425. begin
  426.    if lstUpdateFiles.Items.Count = 0 then
  427.      Exit;
  428.    if lstUpdateFiles.ItemIndex = -1 then
  429.      Exit;
  430.    lstUpdateFiles.Items.Delete(lstUpdateFiles.ItemIndex);
  431. end;
  433. procedure TFormMain.N20Click(Sender: TObject);
  434. begin
  435.    if MessageBox(Handle, '确定要删除所有的更新文件吗？', '提示', MB_YESNO or
  436.      MB_ICONINFORMATION) = idno then
  437.      Exit;
  438.    lstUpdateFiles.Items.Clear;
  439. end;
  441. procedure TFormMain.N21Click(Sender: TObject);
  442. begin
  443.    // todo: help
  444. end;
  446. procedure TFormMain.N23Click(Sender: TObject);
  447. begin
  448.    // todo : about
  449. end;
  451. procedure TFormMain.N24Click(Sender: TObject);
  452. var
  453.    str                : string;
  454. begin
  455.    if lstUpdateFiles.Items.Count = 0 then
  456.      Exit;
  457.    if lstUpdateFiles.ItemIndex = -1 then
  458.      Exit;
  459.    str := lstUpdateFiles.Items.Item[lstUpdateFiles.ItemIndex].SubItems[2];
  460.    str := InputBox('输入文件名', '输入文件的真实文件名：　　　　', str);
  461.    if str = EmptyStr then
  462.      Exit;
  463.    lstUpdateFiles.Items.Item[lstUpdateFiles.ItemIndex].SubItems[2] := str;
  465. end;
  467. procedure TFormMain.N10Click(Sender: TObject);
  468. var
  469.    sl                 : TStringList;
  470.    i                  : Integer;
  471.    node               : IXMLNode;
  472.    sub                : IXMLNode;
  473.    detail             : IXMLNode;
  474. begin
  475.    if not ValidateCommands then
  476.    begin
  477.      MessageBox(Handle, '控制指令顺序有误！不能保存！', '提示', MB_OK or MB_ICONINFORMATION);
  478.      Exit;
  479.    end;
  480.    // DONE: save as ...
  481.    if not sdSaveXml.Execute() then
  482.      Exit;
  483.    FileName := sdSaveXml.FileName;
  484.    self.XML.Active := False;
  485.    self.XML.XML.Clear;
  486.    self.XML.Active := True;
  487.    node := self.XML.CreateNode('root');
  488.    self.XML.DocumentElement := node;
  489.    node := XML.DocumentElement;
  490.    for i := 0 to lstUpdateFiles.Items.Count - 1 do
  491.    begin
  492.      sub := node.AddChild('file');
  493.      detail := sub.AddChild('name');
  494.      detail.NodeValue := lstUpdateFiles.Items[i].Caption;
  496.      detail := sub.AddChild('size');
  497.      detail.NodeValue := lstUpdateFiles.Items[i].SubItems[0];
  499.      detail := sub.AddChild('dir');
  500.      try
  501.        detail.NodeValue := lstUpdateFiles.Items[i].SubItems[1];
  502.      except
  503.        detail.NodeValue := EmptyStr;
  504.      end;
  505.      detail := sub.AddChild('crc');
  506.      detail.NodeValue := MD5Real.RivestFile(fileList[i]);
  508.      detail := sub.AddChild('truename');
  509.      detail.NodeValue := lstUpdateFiles.Items[i].SubItems[2];
  510.    end;
  511.    for i := 0 to mmCommands.Lines.Count - 1 do
  512.    begin
  513.      sub := node.AddChild('command');
  514.      sub.NodeValue := mmCommands.Lines[i];
  515.    end;
  516.    sl := TStringList.Create;
  517.    sl.Text := FormatXMLData(xml.XML.Text);
  518.    sl.SaveToFile(FileName);
  519.    sl.Free;
  520. end;
  522. procedure TFormMain.N12Click(Sender: TObject);
  523. begin
  524.    Close;
  525. end;
  527. procedure TFormMain.GenerateFileList;
  528. var
  529.    i                  : Integer;
  530. begin
  531.    fileList.Clear;
  532.    for i := 0 to lstUpdateFiles.Items.Count - 1 do
  533.    begin
  534.      fileList.Add(ExtractFilePath(ParamStr(0)) + '/Files/' +
  535.        lstUpdateFiles.Items[i].Caption);
  536.    end;
  537. end;
  539. procedure TFormMain.CopyFilesToUpdateDir(Files: TStrings);
  540. var
  541.    i                  : Integer;
  542. begin
  543.    //
  544.    for i := 0 to Files.Count - 1 do
  545.    begin
  546.      CopyFile(PChar(Files[i]), PChar(ExtractFilePath(ParamStr(0)) + '/Files/' +
  547.        ExtractFileName(Files[i])), False);
  548.    end;
  549. end;
  551. initialization
  552.    fileList := TStringList.Create;
  553.    DirList := TStringList.Create;
  555. finalization
  556.    fileList.Free;
  557.    DirList.Free;
  559. end.

生成完的 xml 命名为 update.xml，放到服务器上，与更新文件放在一起。

其实看到上面的代码也就明白了，这个更新可以选择执行指令，比如说要更新某个服务，必须先停止服务再更新，或是先终止某个程序再更新。更新完毕后，可以再次启动程序或服务。

 

 

aroc_lo
关注
专栏目录
electron在线升级更新的两种方式(整体更新和部分更新)及我是如何实现electron在线升级热更新功能的?(企业级项目已上线)
DLGDark的博客
03-24 7339
这篇主要以讲解部分资源在线热更新的实现为核心，electron自带的整体更新的实现较简单，简单说一下即可，如有疑问点的可以自行查阅相关资料或在下面留言给我即可 一.electron的在线升级更新方式都有哪些？ 1. electron自带的整体更新方式 这种方式为electron官方的升级更新方式，主要是通过主进程中的autoUpdater模块进行检测升级更新的，此方式也是大家常见的大多数electron应用程序的更新方式。 不过，此方式有一个瑕疵就是，每次更新都是整体更新软件，安装包资源比较大，下载安装.
Gitbook 接入 Gitlab Webhook 功能，实现文档实时在线更新
Java极客技术
04-24 1387
步骤 安装 Node 和 NPM； 安装git， gitbook，gitbook-cli； 配置 Gitlab Webhook； 创建 Webhook 监听服务； 编辑文档检查实时更新； 安装 Node，NPM 第一步我们先安装 Node 和 NPM， # 下载压缩包 wget https://nodejs.org/dist/v9.10.1/node-v9.10.1-linux-x64.tar.gz # 解压 tar xzvf node-v9.10.1-linux-x64.tar.gz # 重命名 mv
简单的在线升级的实现方法
悠游在线
07-07 2604
作者：徐长友    用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，你是否也想实现这个功能？本文就是如何实现在线升级，讲述一下如何通过HTTP检测是否需要下载升级版本，并下载升级。实现方法：  1、网站提供升级信息。  2、使用HTTP从网站下载升级信息。  3、确定是否进行升级，升级程序下面我们定义一下升级信息： 
通过C＃中的在线文件自动更新应用程序
寒冰屋的专栏
04-07 488
本文介绍如何在不使用ClickOnce的情况下为您的应用程序提供一键更新或自动更新功能。 下载演示项目-586.48 KB 下载源-1.13 MB 下载Readme.txt-413 B 下载版本更新文件-14.87 KB 介绍 如果要为用户提供一种更新应用程序的方式，则有几种不同的选择，其中一些是： 让用户手动下载和安装更新——通过电子邮件通知它们或依靠它们进行在线检查。 使用ClickOnce。 允许应用程序在线检查更新，并自动更新或向用户提供一键式更新功能——无需使用Clic...
简单实现在线更新系统
weixin_30568591的博客
02-24 396
因工作需要，笔者需要做一个客户端产品的在线更新系统，在线更新谁都知道，但是一些具体的业务细节还是需要说明一下的。 一、在线更新的实现方式 1、在部署安装包的时候，添加一个配置文件，配置文件中包含了所有的dll、exe、文件夹、其他类型的文件以及文件夹；每次启动或者需要调用的时候，根据需要覆盖相应的文件即可。此种方式比较简单，有效，更新体量小，不涉及用户文件夹的修改但是...
Android实现在线更新的过程案例
徐刘根的博客
03-15 4140
一、更新软件的准备 在线更新软件的话需要我们有签名的应用，我们需要把签过名之后的软件放入到服务器中，我的如下： 其中apk是有签名的更新版本！ updateinfo.html代码如下：{"version":"2.0","description":"有全新版本，请下载！","apkurl":"hhtp://172.23.252.89:8080/MobileSafe2.0.ap
C#实现在线升级，在线更新源码
02-28
这是一个C#程序实现软件在线更新的源码示例，里面有自己写的一个的更新组建，实现了由客户端实现软件的在线升级。 这是一个C#程序实现软件在线更新的源码示例，里面有自己写的一个的更新组建，实现了由客户端实现...
HBuilder实现App资源在线升级更新
01-10
本文只要介绍HBuilder实现App资源在线升级更新。 梳理思路： 1.获取线上App版本号和当前App版本号 2.比对版本号，判断是否资源在线升级更新 3.是否下载最新安装包[可以静默下载或用户触发] 4.是否执行资源在线升级...
用VC++如何实现程序版本在线升级更新.rtf
04-13
用VC++如何实现程序版本在线升级更新.rtf
实现软件自动在线升级的原理
Feebas
11-17 7017
写两个程序，一个是主程序；一个是升级程序；所有升级任务都由升级程序完成。 　1.启动升级程序，升级程序连接到网站，下载新的主程序（当然还包括支持的库文件、XML配置文档等）到临时文件夹； 　2.升级程序获取服务器端XML配置文件中新版本程序的更新日期或版本号或文件大小； 　3.升级程序获取原有客户端应用程序的最近一次更新日期或版本号或文件大小，两者进行比较；如果发现升级程序的日期大于原有程序
服务器需要更新维护吗,服务器什么时候需要更新？
weixin_39619433的博客
08-10 944
任何产品都是有使用期限的，这个期限不代表就是使用寿命的终结，也有可能是产品技术的更新，使得原始产品不得不被市场淘汰。服务器也是如此，当服务器系统需要更新的时候，会由一些信号显现出来。一、服务器的工作负载性降0要是某台主机服务器再也无法满足应用程序和用户越来越高的计算要求，企业就可能需要购买款式更新颖、功能更强大的系统。具体解释如下：服务器的损耗并不仅仅体现在传统意义上的外在损耗，随着应用程序更新和...
【DEVOPS】实现Swagger2应用接口文档Word格式的在线实时更新
夫礼者的专栏
10-23 1484
借助 maven plugin + 自定义服务Swagger2Word服务，实现满足自定义格式需求的RESTful API文档的实时更新和在线展示。
Android - 软件自动更新的实现
编程语言小筑
11-18 311
Android - 软件自动更新的实现 2012年11月18日 天气慢慢变凉了，给位亲，注意保暖啊。 接触到一个很实用的技术，那就是软件自动更新。一般开发者是通过自行在应用平台添加更新版本的apk。这样做，如果是在一两个应用平台发布应用，那还说得过去，工作量还不是很大。但大家都知道，Android开发者是比较苦逼的。由于开源所致，出现了N多应用市场。如果想赚取更多的收入，那就要在各个应用市场...
看看菜鸟怎么实现软件的在线更新
自命不凡的垃圾篓
03-11 1739
实现方式：1)程序启动，检测版本2)有新的版本，是否更新3)运行更新程序，退出原程序 private void Test(){                    DialogResult dr = MessageBox.Show("有新版本，是否现在更新？", "在线更新", MessageBoxButtons.YesNoCancel);                    
C#实现在线更新系统
weixin_33800463的博客
09-08 373
先来看一下程序完成后长什么样。 这个是程序的组成部分。 主要功能是在InitializationUpdate这个类中完成的，From1主要起到调用的作用，所以重心还是在InitializationUpdate这个类上，下面我们来看一下这个类完成了什么工作，都是如何完成的。 先调用两个类： //使用WebClient下载 public WebClient cli...
浅谈在线文档的那些事儿
奇舞周刊
03-16 1979
前言对前端来说开发一个在线文档需要啥技术呢？想一下，开发一个在线文档我们可能要解决的问题：最基础的文本编辑功能(哦？好像textarea就可以完成，那如果是富文本呢？)我们需要一个文档模型...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值