DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hekai_dut
今日帖子: 0
在线用户: 6
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 hnyinping (hnyinping) ★☆☆☆☆ -
普通会员
2018/6/14 10:10:43
标题:
为什么总是要升级,不提示已是最新版本,请帮我查看下什么原因,谢谢 浏览:280
加入我的收藏
楼主: procedure TForm1.Image10Click(Sender: TObject);
var
  surl, sfname, banben: string;
   // aFile:Jfile;
  mydown: TMemoryStream;
  Intent: JIntent;
  flag, DisplayError: Boolean;
  newbanben, oldbanben: Integer;
begin
  banben := 'http://网址/update/newupdate.txt';
  sfname := TPath.GetSharedDocumentsPath + '/newupdate.txt';
  mydown := TMemoryStream.Create;
  try
    IdHTTP1.Head(banben);
    IdHTTP1.Get(banben, mydown);
    mydown.SaveToFile(sfname);
    try
      getstring := TStringList.Create;
      getstring.LoadFromFile(TPath.GetSharedDocumentsPath + '/newupdate.txt');
      newbanben := getstring.Strings[0].ToInteger;

    finally
      getstring.Free;
    end;
  finally
    mydown.Free;
  end;

  if System.SysUtils.FileExists(TPath.GetSharedDocumentsPath + '/update.txt') then
  begin
    try
      getstring := TStrings.Create;
      getstring.LoadFromFile(TPath.GetSharedDocumentsPath + '/update.txt');
      oldbanben := getstring.Strings[0].ToInteger;

    finally
      getstring.Free;
    end;
    System.SysUtils.DeleteFile(TPath.GetSharedDocumentsPath + '/update.txt');
    if newbanben > oldbanben then
      flag := true
    else
      flag := False;
  end
  else
  begin
    flag := True;          //没有找到update.txt文件,也升级
  end;
  System.SysUtils.RenameFile(TPath.GetSharedDocumentsPath + '/newbanben.txt', TPath.GetSharedDocumentsPath + '/update.txt');
  if flag then
  begin
    MessageDlg('有新版本,确定要升级吗?', system.UITypes.TMsgDlgType.mtInformation, [system.UITypes.TMsgDlgBtn.mbYes, system.UITypes.TMsgDlgBtn.mbNo], 0,
      procedure(const aresult: TModalResult)
      begin
        if aresult = mrYes then
        begin
          Button3.Enabled := False;
          surl := 'http://网址/update/datasnap_client.apk';
          sfname := TPath.GetSharedDocumentsPath + '/datasnap_client.apk';
          try
          idhttp1.Head(surl);
          ChangeTabAction7.ExecuteTarget(self);
          if downloadfile(surl, sfname) = True then
          begin
          ShowMessage('下载完成,请点升级!');
          Button3.Enabled := True;
          end;
          except
          on e: Exception do
          ShowMessage('连接服务器错误!' + #13 + #10 + e.Message);  //你可以在这里分别对多种错误做处理
          end;

        end;
        if aresult = mrNo then
          Exit;
      end);
  end
  else
    TToast.MakeText(Self, '已是最新版本!', ttoastlength.Toast_LENGTH_LONG);
end;
----------------------------------------------
-
作者:
男 msfm (清洁工) ★☆☆☆☆ -
盒子活跃会员
2018/6/14 11:49:26
1楼: 看看你的 apk是不是修改了版本号
----------------------------------------------
-
作者:
男 hnyinping (hnyinping) ★☆☆☆☆ -
普通会员
2018/6/14 13:45:50
2楼: 我是检测update.txt和newupdate.txt对比升级
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2018/6/14 14:16:36
3楼: 插上手机,自己 DEBUG。
----------------------------------------------
(C)(P)Flying Wang
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.00586毫秒 RSS