Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 2 | Rev 13 | ||
|---|---|---|---|
| Line 3... | Line 3... | ||
| 3 | interface |
3 | interface |
| 4 | 4 | ||
| 5 | uses |
5 | uses |
| 6 | Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, |
6 | Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, |
| 7 | StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, |
7 | StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, |
| 8 | ActnList, ToolWin, ImgList, ShellAPI; |
8 | ActnList, ToolWin, ImgList, ShellAPI, System.ImageList, System.Actions; |
| 9 | 9 | ||
| 10 | type |
10 | type |
| 11 | TMainForm = class(TForm) |
11 | TMainForm = class(TForm) |
| 12 | MainMenu1: TMainMenu; |
12 | MainMenu1: TMainMenu; |
| 13 | Window1: TMenuItem; |
13 | Window1: TMenuItem; |
| Line 172... | Line 172... | ||
| 172 | lng_update_error = 'Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.'; |
172 | lng_update_error = 'Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.'; |
| 173 | lng_caption_error = 'Fehler'; |
173 | lng_caption_error = 'Fehler'; |
| 174 | lng_caption_information = 'Information'; |
174 | lng_caption_information = 'Information'; |
| 175 | lng_update_new_version = 'Eine neue Programmversion (%s) ist vorhanden. Möchten Sie diese jetzt herunterladen?'; |
175 | lng_update_new_version = 'Eine neue Programmversion (%s) ist vorhanden. Möchten Sie diese jetzt herunterladen?'; |
| 176 | const |
176 | const |
| 177 | url_comparison = 'http://www.viathinksoft.de/update/?id=%s&expect_version=%s'; |
177 | url_comparison = 'https://www.viathinksoft.de/update/?id=%s&expect_version=%s'; |
| 178 | url_version = 'http://www.viathinksoft.de/update/?id=%s'; |
178 | url_version = 'https://www.viathinksoft.de/update/?id=%s'; |
| 179 | url_download = 'http://www.viathinksoft.de/update/?id=@%s'; |
179 | url_download = 'https://www.viathinksoft.de/update/?id=@%s'; |
| 180 | res_nothing = 'NO_UPDATES'; |
180 | res_nothing = 'NO_UPDATES'; |
| 181 | res_updates = 'UPDATE_AVAILABLE'; |
181 | res_updates = 'UPDATE_AVAILABLE'; |
| 182 | var |
182 | var |
| 183 | temp: string; |
183 | temp: RawByteString; |
| 184 | begin |
184 | begin |
| 185 | temp := GetHTML(Format(url_comparison, [abbreviation, thisversion])); |
185 | temp := GetHTML(Format(url_comparison, [abbreviation, thisversion])); |
| 186 | 186 | ||
| 187 | if temp = res_nothing then |
187 | if temp = res_nothing then |
| 188 | begin |
188 | begin |