API for Software Update

Parameters

Parameter Value Description Example
Task getswversion, getfilesize, getcurversion, test (string) Specify task to perform 'Task=getswversion'
CurrentVersion 4.18 (double) Specify current software version being used 'CurrentVersion=4.192008021801'
DevStage Dev, Alpha, Beta, RC1, RC2 (string) Specify current software development stage being used 'DevStage=Beta'
LangLocale da, en, es, fr, ko, pt, ru (string) Specify language locale of software to download 'LangLocale=en'
CompanyCode 001 (string) Specify company code of software to download (default = 001) 'CompanyCode=001'
NoahSupport yes (empty = no) Specify whether to download the Noah support version of the software (default = <empty>) 'NoahSupport=yes'

Example Code

Call to update software: 

resourceString
 
  rsEzFitVersionNum     = '4.19';
  rsEzFITDevStage       = 'Beta';   // 'Dev', 'Alpha', 'Beta', 'RC1', 'RC2', 'Stable'
  rsEzFITBuild          = '2008021801';
  rsLangLocale          = 'en';  // en (English), es (Spanish), fr (French),
                                 // pt (Portuguese), da (Danish), ko (Korean),
                                 // cn (Chinese), tr (Turkish), ru (Russian)
 
const
  {$ifdef NOAH}
      ezFitURL     = 'http://www.audina.net/downloads/ezfitnoahupdate.php';
  {$else}
      ezFitURL     = 'http://www.audina.net/downloads/ezfitupdate.php';  //'http://www.caribtrade.com/audina/ezfitupdate.php';
  {$endif}
  ezFitUrlChkVersion  = 'http://www.audina.net/downloads/chk-ezfit-version.php';
  ezFitUrlChkFilesize = 'http://www.audina.net/downloads/chk-ezfit-filesize.php';
  ezFitUrlParamTask        = 'Task=';
  ezFitUrlParamCurVersion  = 'CurrentVersion=';
  ezFitUrlParamDevStage    = 'DevStage=';
  ezFitUrlParamLangLocale  = 'LangLocale=';
  ezFitUrlParamCompanyCode = 'CompanyCode=';
  ezFitUrlParamNoahSupport = 'NoahSupport=';
 
  . . .
 
implementation
 
procedure TfrmMain.ChkNewSoftwareVersion();
var
  HttpClient: TIdHTTP;
  NewSwVersion: string;
begin
    // check if new software version exists
    HttpClient   := TIdHTTP.Create(Self);
    NewSwVersion := HttpClient.Get(ezFITURL +
                       '?' + ezFitUrlParamTask + 'getswversion'+
                       //'&' + ezFitUrlParamCurVersion  + frmSettings.CurrentVersion +
                       '&' + ezFitUrlParamCurVersion  + rsEzFitVersionNum + rsEzFITBuild +
                       '&' + ezFitUrlParamDevStage    + rsEzFITDevStage +
                       '&' + ezFitUrlParamLangLocale  + rsLangLocale +
                       '&' + ezFitUrlParamCompanyCode + datamod.lbl_ezCustomCompanyCode
                     );
 
   . . .
 
   FreeAndNil(HttpClient);
end;