Accueil > Programmes > Copie et sauvegarde > D-COPY > Delphi : Lire un Fichier texte de versionning en ligne

Delphi : Lire un Fichier texte de versionning en ligne

dimanche 20 novembre 2011, par bluegyn_spip

Le but de la manip est de lire le numéro de versionning d’un programme en ligne, afin d’indiquer à l’utilisateur si une nouvelle version est disponible au téléchargement.

Pour la démo ce numéro est contenu dans un fichier texte

version.log

Qui est déposé sur le site à côté de l’exe, et qui est mis a jour à chaque nouvelle compilation

RAPPELS UTILES

L’incrément du versionning de Delphi nécessite l’action sur le Projet

Construire tous les Projets

L’incrémentation automatique doit être activée dans le menu Options du Projet

Delphi ne possède pas de fonction directe permettant de lire la version de l’application

La fonction

app_version

Est disponible dans la jc_lib, module

jc_ini.pas

Inclure jc_ini dans les USES du projet

ECRIRE LE VERSION.LOG

Un simple rappel sur la façon d’écrire un ficher texte

CODE

AssignFile(myFile, 'version.log');
  ReWrite(myFile);
  WriteLn(myFile, app_version);
CloseFile(myFile);

LIRE LA VERSION EN LIGNE

Le programme va lire le fichier version.log (précédemment créé et déposé sur le site) à partir de son URL, exemple :

http://bluegyn.com/dcopy/version.log

COMPOSANT NECESSAIRE SUR LA FICHE

Composant	Onglet
idHTTP	indy Client

CODE DE LECTURE

function GetHTMLContent(HTTP: TidHTTP;URL: String) : string;
var
  PostDataStream : TStringStream;
begin
  PostDataStream := TStringStream.Create('');
  try
    HTTP.Get(URL, PostDataStream);
    result := PostDataStream.DataString;
  finally
    PostDataStream.Free;
  end;
end;

EXEMPLE DE DIALOGUE

CODE

Procedure MessageDLG_WebUpDate(HTTP:TidHTTP; myMsg,myURL_DownLoad,myUrl_VersionLOG:string );
begin
if messagedlg(format(
	'Vous utilisez la version :' +#13+#10+ '- %s' +#13+#10+#13+#10+
	'La dernière version en ligne est la :'+#13+#10+ '- %s'+#13+#10+#13+#10+
  'Voulez vous télécharger la version en ligne ?',
  [myMsg, GetHTMLContent(HTTP, myURL_VersionLOG)]),
    mtInformation, mbOkCancel, 0) = mrOk then
	    ShellExecute(0,'OPEN', PChar(myURL_Download), NIL,NIL,1);
end;

Ces codes sont disponibles dans la bibliothèque jc_lib

inclure jc_web

dans les USES

on rappelle que dans les constantes de dialogues sous Windows mrOK = 1

DOWNLOAD JC_LIB

Delphi : Lire un Fichier texte de versionning en ligne

RAPPELS UTILES

ECRIRE LE VERSION.LOG

LIRE LA VERSION EN LIGNE

EXEMPLE DE DIALOGUE

Programmes

Dans la même rubrique