还是在“PIA-MyPhotoGallery”中，为了能让使用者及时知道软件的更新版本发布，我增加了自动更新检查功能。鉴于这种功能具有很好的实用价值，所以写本文说明此功能的实现。
要实现更新检查，需要解决两个方面的问题：
1、通过Internet获取最新发布的版本号；
2、取得当前程序的版本，并与取得的最新版本相比较。
如果检查到有新版本发布，则打开下载页面（至于直接下载更新本文暂不讨论）。
对于第一个问题，最简单的解决办法就是在网站上发布新版本软件的同时，发布一个记录着版本号的文件。在软件进行版本检查时（比如程序启动时），通过Internet下载此文件，并读出最新的版本号。
注意：此方法仅适用于简单更新的情况，对于像杀毒软件的病毒库这样增量更新的情况，这种简单方法是不合适的，通常还需要有相应的服务端程序配合才行。
要通过Internet下载文件有很多方法，比如用WinINet API或现成的控件都可以。本文以Indy的TIdHTTP控件为例。
TIdHTTP控件的用法非常简单，但是直接使用它下载会有一个问题：程序会被阻塞着，直到文件被下载或连接超时（比如网络未连接）。所以必须将它放到线程中处理。
在PIA-MyPhotoGallery中，我用的代码如下：
//---------------------------------------------------------------------------// Get new version threadclass TGetNewVersionThread : public TThread{private:AnsiString FURL;TMFileVersion * FVer;protected:void __fastcall Execute( );public:__fastcall TGetNewVersionThread( AnsiString aURL ): TThread( true ), FURL( aURL ), FVer( new TMFileVersion( ) ){FreeOnTerminate = true;}__fastcall ~TGetNewVersionThread( ) { delete FVer; }__property TMFileVersion * Version = { read=FVer };};//---------------------------------------------------------------------------// TGetNewVersionThread//---------------------------------------------------------------------------void __fastcall TGetNewVersionThread::Execute( ){boost::scoped_ptr webConn( new TIdHTTP( NULL ) );boost::scoped_ptr ss( new TStringList( ) );try {ss->Text = webConn->Get( FURL );}catch ( ... ){ss->Text = "";}AnsiString s = ss->Values["piapg"];if ( s != "" )FVer->VerStr = s;}//---------------------------------------------------------------------------
这段代码很简单：创建一个线程，在线程里创建一个TIdHTTP实例，然后下载URL对应的文件，最后从中读出“piapg”的版本号。为了偷懒，我用了boost库里的smart pointer–scoped_ptr。
这个线程类的使用方法如下：
//---------------------------------------------------------------------------// 在程序启动时执行：if ( PIAPGCfg->AutoUpd ) // 如果选择了“检查更新”选项则执行检查{if ( SplashDlg ) // 如果有splash，则在其中显示提示文本{SplashDlg->labProgress->Caption = "正在检查新版本...";SplashDlg->labProgress->Refresh( );}// 创建检查新版本的线程TGetNewVersionThread * pThread = new TGetNewVersionThread( "http://mental.8gua.me/update.txt" );pThread->OnTerminate = GetNewVersionDone;pThread->Resume( );}//---------------------------------------------------------------------------// 版本文件下载完成或超时void __fastcall TMainForm::GetNewVersionDone(TObject * Sender){TGetNewVersionThread * pThread = dynamic_cast( Sender );boost::scoped_ptr fv( new TMFileVersion( ) );fv->GetVersionFromFile( Application->ExeName ); // 读取当前程序的版本if ( ( pThread->Version->Compare( fv.get( ) ) > 0 ) // 如果有新版本，则提示&& ( Application->MessageBox( "发现更新版本的程序，是否现在更新？","新版本检查", MB_YESNO | MB_ICONINFORMATION ) == IDYES ) ){ShellExecute( NULL, "open", "http://mental.8gua.me", NULL, NULL, SW_SHOW );PostQuitMessage( 0 );}}//---------------------------------------------------------------------------
此代码的功能详见其中的注释。
再来看第二个问题：程序版本的问题。
在上面的代码中，用到了一个类：TMFileVersion。这是我以前用DELPHI写的一个用于处理可执行文件版本号的类。实现代码如下：
TMFileVersion = classprivateFMajor : Integer;FMinor : Integer;FRelease : Integer;FBuild : Integer;Function GetVerStr : String;Procedure SetVerStr( aVerStr : String );publicconstructor Create;destructor Destroy; override;Procedure GetVersionFromFile( aFileName : String );Function Compare( aVer : TMFileVersion ) : Integer;Property VerStr : String read GetVerStr write SetVerStr;End;{ TMFileVersion }// initconstructor TMFileVersion.Create;BeginInherited;FMajor := 0;FMinor := 0;FRelease := 0;FBuild := 0;End;destructor TMFileVersion.Destroy;BeginInherited;End;// Get version info from a fileProcedure TMFileVersion.GetVersionFromFile( aFileName : String );TypePVS_FIXEDFILEINFO = ^VS_FIXEDFILEINFO;Varh : Cardinal; // a handle, ignorenSize : Cardinal; // version info sizepData : Pointer; // version info datapffiData : PVS_FIXEDFILEINFO; // fixed file info datanffiSize : Cardinal; // fixed file info sizeBeginFMajor := 0;FMinor := 0;FRelease := 0;FBuild := 0;If ( FileExists( aFileName ) ) ThenFBuild := 1;nSize := GetFileVersionInfoSize( PChar( aFileName ), h );If ( nSize = 0 ) ThenExit;GetMem( pData, nSize );TryGetFileVersionInfo( PChar( aFileName ), h, nSize, pData );If ( VerQueryValue( pData, '', Pointer( pffiData ), nffiSize ) ) ThenBeginFMajor := ( pffiData^.dwFileVersionMS ) SHR 16;FMinor := ( pffiData^.dwFileVersionMS ) AND $FFFF;FRelease := ( pffiData^.dwFileVersionLS ) SHR 16;FBuild := ( pffiData^.dwFileVersionLS ) AND $FFFF;End;FinallyFreeMem( pData );End;End;// Compare two version infoFunction TMFileVersion.Compare( aVer : TMFileVersion ) : Integer;Varn1, n2 : Cardinal;Beginn1 := ( FMajor SHL 16 ) OR FMinor;With aVer Don2 := ( FMajor SHL 16 ) OR FMinor;If ( n1 > n2 ) ThenResult := 1Else If ( n1 n2 ) ThenResult := 1Else IF ( n1 < n2 ) ThenResult := -1ElseResult := 0;End;End;// Get/Set property - VerStrFunction TMFileVersion.GetVerStr : String;BeginResult := Format( '%d,%.02d,%d,%.02d', [FMajor, FMinor, FRelease, FBuild] );End;Procedure TMFileVersion.SetVerStr( aVerStr : String );VarsTemp : TStrings;BeginFMajor := 0;FMinor := 0;FRelease := 0;FBuild := 0;sTemp := TStringList.Create;TrysTemp.CommaText := aVerStr;TryFMajor := StrToInt( sTemp.Strings[0] );FMinor := StrToInt( sTemp.Strings[1] );FRelease := StrToInt( sTemp.Strings[2] );FBuild := StrToInt( sTemp.Strings[3] );Except// Do nothingEnd;FinallysTemp.Free;End;End;
解决了这两个问题，自动更新检查的功能也就解决了。