GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 01:03:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: What's New list

Browse Source
This commit is contained in:
Mark van Renswoude 2005-10-28 20:42:21 +00:00
parent f5535247fa
commit bbe4c1822a
1 changed files with 47 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
X2UtInetVersion.pas
View File

@ -13,6 +13,7 @@ interface
uses
Classes,
IdHTTP,
IdHTTPHeaderInfo,
XMLIntf;
@ -21,17 +22,20 @@ type
TX2InetVersionInfo = class(TCollectionItem)
private
FBuild: Integer;
FMajor: Integer;
FMinor: Integer;
FRelease: Integer;
FBuild: Integer;
FNewer: Boolean;
FRelease: Integer;
FVersionType: TX2InetVersionType;
FVersionTypeString: String;
FWhatsNewTemp: String;
FWhatsNew: TStrings;
protected
procedure LoadFromNode(const ANode: IXMLNode);
public
constructor Create(Collection: TCollection); override;
destructor Destroy(); override;
property VersionType: TX2InetVersionType read FVersionType;
property VersionTypeString: String read FVersionTypeString;
property Major: Integer read FMajor;
@ -39,7 +43,7 @@ type
property Release: Integer read FRelease;
property Build: Integer read FBuild;
property Newer: Boolean read FNewer;
property WhatsNewTemp: String read FWhatsNewTemp;
property WhatsNew: TStrings read FWhatsNew;
end;
TX2InetVersions = class(TCollection)
@ -60,6 +64,7 @@ type
FAppID: String;
FURL: String;
FProxyParams: TIdProxyConnectionInfo;
FHTTP: TIdHTTP;
FApplicationURL: String;
FVersions: TX2InetVersions;
@ -69,6 +74,9 @@ type
constructor Create();
destructor Destroy(); override;
procedure Terminate();
property AppID: String read FAppID write FAppID;
property URL: String read FURL write FURL;
property ProxyParams: TIdProxyConnectionInfo read FProxyParams;
@ -84,11 +92,25 @@ uses
XMLDoc,
IdURI,
IdHTTP,
X2UtApp;
{ TX2InetVersionInfo }
constructor TX2InetVersionInfo.Create(Collection: TCollection);
begin
inherited;
FWhatsNew := TStringList.Create();
end;
destructor TX2InetVersionInfo.Destroy();
begin
FreeAndNil(FWhatsNew);
inherited;
end;
procedure TX2InetVersionInfo.LoadFromNode(const ANode: IXMLNode);
function GetVersion(const AName: String): Integer;
var
@ -127,7 +149,6 @@ begin
((FMajor = Major) and (FMinor = Minor) and (FRelease > Release)) or
((FMajor = Major) and (FMinor = Minor) and (FRelease = Release) and (FBuild > Build));
FWhatsNewTemp := '';
xmlWhatsNew := ANode.ChildNodes.FindNode('whatsnew');
if Assigned(xmlWhatsNew) then
begin
@ -135,9 +156,7 @@ begin
while Assigned(xmlItem) do
begin
if xmlItem.NodeName = 'item' then
begin
FWhatsNewTemp := FWhatsNewTemp + '- ' + xmlItem.Text + #13#10;
end;
FWhatsNew.Add(xmlItem.Text);
xmlItem := xmlItem.NextSibling();
end;
@ -189,7 +208,6 @@ end;
procedure TX2InetVersion.Execute();
var
idHTTP: TIdHTTP;
memData: TMemoryStream;
xmlDoc: IXMLDocument;
xmlRoot: IXMLNode;
@ -199,19 +217,25 @@ var
begin
CoInitialize(nil);
idHTTP := TIdHTTP.Create(nil);
FHTTP := TIdHTTP.Create(nil);
try
idHTTP.ProxyParams.Assign(FProxyParams);
FHTTP.ProxyParams.Assign(FProxyParams);
memData := TMemoryStream.Create();
try
idHTTP.Get(Format('%s?appid=%s', [FURL, TIdURI.ParamsEncode(FAppID)]), memData);
FHTTP.Get(Format('%s?appid=%s', [FURL, TIdURI.ParamsEncode(FAppID)]), memData);
memData.Seek(0, soFromBeginning);
if Terminated then
exit;
xmlDoc := TXMLDocument.Create(nil);
try
xmlDoc.LoadFromStream(memData);
xmlRoot := xmlDoc.DocumentElement;
if Terminated then
exit;
if xmlRoot.NodeName <> 'application' then
exit;
@ -234,9 +258,18 @@ begin
FreeAndNil(memData);
end;
finally
FreeAndNil(idHTTP);
FreeAndNil(FHTTP);
end;
end;
procedure TX2InetVersion.Terminate();
begin
inherited Terminate();
if Assigned(FHTTP) then
FHTTP.Disconnect();
end;
end.