Hola de nuevo,
Porque se vea la sencillez (e incluso simpleza) de la clase que he dicho arriba que utilizo para comprobar si existe nuevas versiones del programa de que he hablado es esta misma, sin más:
Código Delphi
[-]
unit UBuscaVersiones;
interface
uses
Classes, SysUtils, DateUtils, Controls, IdHttp;
type
TOnNuevaVersion = procedure(Sender: TObject;
versionWeb, fechaVersionWeb: string) of object;
TOnNuevaFechaVersion = procedure(Sender: TObject;
versionWeb, fechaVersionWeb: string) of object;
type
TBuscaVersiones = class(TObject)
private
FDatos: TStrings;
FUrlDatos: string;
FFechaActual: string;
FVersionActual: string;
FOnError: TNotifyEvent;
FOnSinNuevaVersion: TNotifyEvent;
FOnNuevaVersion: TOnNuevaVersion;
FOnNuevaFechaVersion: TOnNuevaFechaVersion;
procedure ProcesarDatos;
function ObtenerDatos : boolean;
public
constructor Create;
destructor Destroy; override;
procedure Comprobar(versionActual, fechaActual: string);
public
property UrlDatos: string read FUrlDatos write FUrlDatos;
property OnError: TNotifyEvent read FOnError write FOnError;
property OnSinNuevaVersion: TNotifyEvent
read FOnSinNuevaVersion write FOnSinNuevaVersion;
property OnNuevaVersion: TOnNuevaVersion
read FOnNuevaVersion write FOnNuevaVersion;
property OnNuevaFechaVersion: TOnNuevaFechaVersion
read FOnNuevaFechaVersion write FOnNuevaFechaVersion;
end;
implementation
constructor TBuscaVersiones.Create;
begin
inherited Create;
FDatos := TStringList.Create;
end;
destructor TBuscaVersiones.Destroy;
begin
FDatos.Free;
inherited Destroy;
end;
procedure TBuscaVersiones.Comprobar(versionActual,
fechaActual: string);
begin
FFechaActual := fechaActual;
FVersionActual := versionActual;
if ObtenerDatos then ProcesarDatos;
end;
function TBuscaVersiones.ObtenerDatos : boolean;
var
http: TIdHTTP;
temp: TStringStream;
begin
Result := false;
http := TIdHTTP.Create(nil);
temp := TStringStream.Create(EmptyStr);
try
try
http.Get(FUrlDatos, temp);
if temp.Size > 0 then
begin
FDatos.Clear;
FDatos.Text := temp.DataString;
Result := true;
end;
except
if Assigned(FOnError)
then FOnError(Self);
Abort;
end;
finally
http.Free;
temp.Free;
end;
end;
procedure TBuscaVersiones.ProcesarDatos;
var
dVersionActual, dVersionWeb: double;
fechaVersionActual, fechaVersionWeb: TDate;
begin
if FDatos.Text = EmptyStr then begin
if Assigned(FOnError) then FOnError(Self);
Exit;
end;
DecimalSeparator := '.';
dVersionWeb := StrToFloat(FDatos.Strings[1]);
dVersionActual := StrToFloat(FVersionActual);
if dVersionActual < dVersionWeb then
begin
if Assigned(FOnNuevaVersion) then
FOnNuevaVersion(Self, FDatos.Strings[1],
FDatos.Strings[2]);
Exit;
end;
if dVersionActual = dVersionWeb then
begin
fechaVersionActual := StrToDate(FFechaActual);
fechaVersionWeb := StrToDate(FDatos.Strings[2]);
if (CompareDate(fechaVersionWeb,
fechaVersionActual) = 1) then
begin
if Assigned(FOnNuevaFechaVersion) then
FOnNuevaFechaVersion(Self, FDatos.Strings[1],
FDatos.Strings[2]);
Exit;
end;
end;
if Assigned(FOnSinNuevaVersion) then
FOnSinNuevaVersion(Self);
end;
end.
Podrá mejorarse todo lo que se quiera, no es mi intención entrar en eso ahora. El caso es que para hacer uso de la clase anteriormente presentada bastaría con algo así:
Código Delphi
[-]
var
FBuscaVersiones: TBuscaVersiones;
procedure TfrmPrincipal.PrepararBuscaVersiones;
begin
FBuscaVersiones := TBuscaVersiones.Create;
with FBuscaVersiones do begin
UrlDatos := rsUrlActualizar;
OnNuevaVersion := NuevaVersion;
OnError := ErrorComprobandoVersion;
OnNuevaFechaVersion := NuevaVersion;
OnSinNuevaVersion := SinNuevaVersion;
end;
end;
Donde "FBuscaVersiones" será una variable que guarde la referencia al objeto de la clase "TBuscaVersiones" que utilizaremos. A continuación proporcionamos una serie de datos, básicamente nos interesa la propiedad "UrlDatos", que ha de ser la URL en que se encuentre el archivo que contenga la información "a comparar", es decir, el archivo texto plano que referí más arriba.
A continuación hacemos uso de los eventos del objeto para informar al usuario o tomar las medidas necesarias en caso de encontrarse nuevas versiones, no encontrarse, etc.
En todo caso, la llamada "principal" al objeto "TBuscaVersiones" se realizaría de este modo, una vez hecho lo anterior, es decir, una vez creado el objeto e inicializado:
Código Delphi
[-]
FBuscaVersiones.Comprobar(rsVersion, rsFechaVersion);
Con esa instrucción estamos llamando al método "Comprobar" del objeto "TBuscaVersiones". A dicho método le pasamos dos parámetros, como puede verse, la versión actual (local) del programa y la fecha de esta versión. Echo eso el objeto se encargará internamente de descargar el archivo de Internet que contendrá los datos con los que podremos comparar y también el objeto se encargará de disparar los eventos oportunos, si estos están asignados.
Otra vez pido disculpas por tanto rollo. No sé, iré al médico mañana a ver si es que tengo la gripe del pollo o algo parecido...