Delphi XE8 利用HttpClient实现的一个App自动更新组件

第一个版本，分享了。
unit AutoUpdate;

interface

uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants, System.IOUtils, System.JSON, System.Net.HttpClient

{$IFDEF MSWINDOWS}
       , Winapi.Windows,
{$ENDIF}
{$IFDEF IOS}
, FMX.Platform.iOS,
   iOSapi.Foundation,
   Macapi.ObjectiveC,
{$ELSE}
{$IFDEF MACOS}
, FMX.Platform.Mac,
   Macapi.Foundation,
   Macapi.ObjectiveC,
{$ELSE}
{$IFDEF ANDROID}
, Androidapi.JNI.GraphicsContentViewText,
   Androidapi.JNI.JavaTypes,
   FMX.Helpers.Android, Androidapi.Helpers,
   Androidapi.JNI.Net,
{$ENDIF ANDROID}
{$ENDIF MACOS}
{$ENDIF IOS}
   FMX.Dialogs;

type
   TAutoUpdate = class(TComponent)
   private
       FServerVersion, FInstallFileUrl, FDescription: String;
       FInstallFileName: string;
       FCheckURL: String;
       procedure SetCheckURL(const Value: String);
   public
       constructor Create(AOwner: TComponent); override;
       function Check: Boolean;
       procedure DownLoad;
       procedure Install;
       property CheckURL: String read FCheckURL write SetCheckURL;
       property ServerVersion: string read FServerVersion;
       property Description: String read FDescription;
   end;

function GetAppVersion: String;

implementation

function GetAppVersion: String;
{$IFDEF MSWINDOWS}
   function GetBuildInfoAsString: string;
   var
       V1, V2, V3, V4: word;
       procedure GetBuildInfo(var V1, V2, V3, V4: word);
       var
           VerInfoSize, VerValueSize, Dummy: DWORD;
           VerInfo: Pointer;
           VerValue: PVSFixedFileInfo;
       begin
           VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
           if VerInfoSize > 0 then
           begin
               GetMem(VerInfo, VerInfoSize);
               try
                   if GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo)
                   then
                   begin
                       VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
                       with VerValue^ do
                       begin
                           V1 := dwFileVersionMS shr 16;
                           V2 := dwFileVersionMS and $FFFF;
                           V3 := dwFileVersionLS shr 16;
                           V4 := dwFileVersionLS and $FFFF;
                       end;
                   end;
               finally
                   FreeMem(VerInfo, VerInfoSize);
               end;
           end;
       end;

   begin
       GetBuildInfo(V1, V2, V3, V4);
       result := IntToStr(V1) + '.' + IntToStr(V2) + '.' + IntToStr(V3) + '.' +
           IntToStr(V4);
   end;

begin
   result := GetBuildInfoAsString;
end;
{$ENDIF}
{$IFDEF ANDROID}

var
   PackageInfo: JPackageInfo;
   PackageName: JString;
begin

   PackageName := SharedActivityContext.getPackageName;
   PackageInfo := SharedActivityContext.getPackageManager.getPackageInfo
       (PackageName, 0);
   result := JStringToString(PackageInfo.versionName);

end;
{$ENDIF}
{$IFDEF MACOS}

var
   AppNameKey: Pointer;
   AppBundle: NSBundle;
   NSAppName: NSString;
begin
   AppBundle := TNSBundle.Wrap(TNSBundle.OCClass.mainBundle);

   AppNameKey := (NSSTR('CFBundleName') as ILocalObject).GetObjectID;
   NSAppName := TNSString.Wrap(AppBundle.infoDictionary.objectForKey
       (AppNameKey));
   // Memo1.Lines.Add('CFBundleName : ' + UTF8ToString(NSAppName.UTF8String));

   AppNameKey := (NSSTR('CFBundleDisplayName') as ILocalObject).GetObjectID;
   NSAppName := TNSString.Wrap(AppBundle.infoDictionary.objectForKey
       (AppNameKey));
   // Memo1.Lines.Add('CFBundleDisplayName : ' + UTF8ToString(NSAppName.UTF8String));

   AppNameKey := (NSSTR('CFBundleIdentifier') as ILocalObject).GetObjectID;
   NSAppName := TNSString.Wrap(AppBundle.infoDictionary.objectForKey
       (AppNameKey));
   // Memo1.Lines.Add('CFBundleIdentifier : ' + UTF8ToString(NSAppName.UTF8String));

   AppNameKey := (NSSTR('CFBundleVersion') as ILocalObject).GetObjectID;
   NSAppName := TNSString.Wrap(AppBundle.infoDictionary.objectForKey
       (AppNameKey));
   // Memo1.Lines.Add('CFBundleVersion : ' + UTF8ToString(NSAppName.UTF8String));
   result := UTF8ToString(NSAppName.UTF8String);

end;
{$ENDIF}
{ TAutoUpdate }

function TAutoUpdate.Check: Boolean;
var
   LocalVersion: string;
   hc: THTTPClient;
   ss: TStringStream;
   jo: TJsonObject;
begin

   hc := THTTPClient.Create;
   ss := TStringStream.Create;
   try

       hc.Get(FCheckURL, ss);

       jo := TJsonObject.ParseJSONValue(ss.DataString) as TJsonObject;
       try
           FServerVersion := jo.GetValue('Version').Value;
           FDescription := jo.GetValue('Description').Value;
           FInstallFileUrl := jo.GetValue('URL').Value;
       finally
           jo.Free;
       end;

   finally
       hc.Free;
       ss.Free;
   end;

   LocalVersion := GetAppVersion;
   result := CompareText(FServerVersion, LocalVersion) > 0;

end;

constructor TAutoUpdate.Create(AOwner: TComponent);
begin
   inherited;
   FInstallFileName := TPath.GetSharedDocumentsPath + PathDelim + 'install.apk';
end;

procedure TAutoUpdate.DownLoad;
var
   Stream: TMemoryStream;
   hc: THTTPClient;
begin
   Stream := TMemoryStream.Create;
   hc := THTTPClient.Create;
   try
       try
           hc.Get(FInstallFileUrl, Stream);
           Stream.SaveToFile(FInstallFileName);
       except
           on e: Exception do
               ApplicationShowException (e);
       end;
   finally
       hc.Free;
       Stream.Free;
   end;
end;

procedure TAutoUpdate.Install;
{$IFDEF ANDROID}
var
   Intent: JIntent;
   aUrl: string;
begin

   aUrl := 'file://' + FInstallFileName;

   Intent := TJIntent.Create;
   Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
   Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
   Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString(aUrl)),
       StringToJString('application/vnd.android.package-archive'));
   try
       SharedActivity.startActivity(Intent);
   except
       on e: Exception do
       begin
           // if DisplayError then
           ShowMessage('Error: ' + e.Message);
       end;
   end;
end;
{$ELSE}

begin

end;
{$ENDIF}

procedure TAutoUpdate.SetCheckURL(const Value: String);
begin
   FCheckURL := Value;
end;

end.

使用了网友的取版本号及调用apk，这里谢过！

调用方法：

procedure TMainForm.Button1Click(Sender: TObject);
begin

   TThread.CreateAnonymousThread(
       procedure()
       var
           au: TAutoUpdate;
       begin

           au := TAutoUpdate.Create(Self);
           try
               au.CheckURL := 'http://wx.test.cc/test.inf';
               if au.Check then
               begin
                   au.DownLoad;
                   au.Install;
               end;
           finally
               au.Free;
           end;
       end).Start;

end;

转自：http://blog.sina.com.cn/s/blog_44fa172f0102vgd1.html