TMSWebUpdate - eine neue WebUpdate-Komponente

[Marco Steinebach]

Hallo Listers,
vor gut einer Woche hatte ich entgültig die Nase voll. Ich suchte eine Komponente für ein automatisches WebUpdate, Internet-Update, ganz wie ihr wollt.
Entweder es gab lauter teures Zeug, oder Freeware, die zwar gut, aber meist recht wenig anpassbar war, dann noch ein paar Schnipsel hier, ein Textchen da, ein Code-Teilchen wo anders....
Also gut, selber schreiben...
Und hier ist das Ergebnis.

TMSWebUpdate ist ganz sicher nicht neu, aber
- Freeware mit Source
- Einfach zu integrieren
- Anpassbar, also keine Formulare die schon mit dabei sind
- Flexibel, was die Anzahl der runterzuladenden Dateien angeht
- Flexibel beim format der Steuerdatei auf dem Server.
- Nicht erst ab Delphi 2006 enterprise lauffähig.
- Auf Indy basierend, also geht ab Delphi 5.


Webupdate schaut auf einem Server in einer Infodatei nach, ob eine neuere Version, als die aktuelle, vorhanden ist. Falls ja, können eine, oder mehrere Dateien, heruntergeladen, und ggf. eine davon als Update ausgeführt werden.

Dazu einfach die Komponente auf die form.
Die zwei eigenschaften
UpdateURL und IniName müssen natürlich ausgefüllt werden.
UpdateUrl ist die Adresse zur ini-datei also z.B.
www.meine-seite.de/Software
(http und / am ende werden automatisch ergänzt)
IniName ist der Name der Datei, in der die Infos über ein evtl. Update stehen, also beispielsweise
MeinProg_Update.html

Und MeinProg_Update.html könnte dann ungefähr so aussehen:
[Version]
Major=1
Minor=0
Release=0
Build=99

[File001]
Name=MeinProg_Update.exe
Start=1

[File002]
name=EinSound.wav
Path=sounds

[New]
Ein Fehler beim entgültigen löschen von Dateien wurde beseitigt.

Mehrere kleine Sachen sind jetzt leider kaput. Ich bin noch dran!
...

Alles was nach dem Schlüsselwort
[New]
steht, wird gnadenlos als WhatsNew angezeigt, dann zu finden in der WhatsNewListe der Komponente.

Ach ja, die Anweisung zur Prüfung heißt
CheckForUpdates.
Das war’s schon, und 6 Ereignisse
OnUpdatefound
OnNoUpdateFound
OnDownloadProgress
OnDownloadComplete
OnNextFile und
OnError
Gibt’s natürlich auch noch.

So. und nun wünsche ich viel spaß beim ausprobieren, testen, einsetzen, was auch immer. Ich würde mich über verbesserungsvorschläge, wünsche, anregungen, kritik, besonders über Lob, natürlich sehr freuen. Wenn bedarf ist, können wir auch gerne ein Projekt daraus machen.

Viele Grüße
Marco

[fylo]

Zitat von Marco Steinebach:

Eine Frage noch:
Ist bei dir der SourcePath mit im Suchpfad von Delphi angegeben?
In welchem Verzeichnis liegt bei dir die IdCompilerDefines.inc?

Hallo Marco,

ich nutze die Subversion-Version von Indy 10. Bei dieser ist die Datei IdCompilerDefines.inc in den Unterverzeichnissen Core, System und Protocols enthalten. Diese drei Verzeichnisse sind bei mir in meinem Delphi 7 auch im Suchpfad eingetragen. Ich weiß aber nicht mehr, ob dass das Indy-Setup gemacht hat oder ob ich es selber gemacht hab

[Svenkan]

Hallo Marco,

nach anfänglichen Problemen funktioniert nun auch bei mir alles wunderbar!
Wie wäre es aber noch mit einer Möglichkeit, dass bspw. in ein Edit-Feld eintragen kann, welche Dateien bereits heruntergeladen wurden? Oder irgendwie anders kenntlich machne, dass der Download noch läuft?

[Marco Steinebach]

Hallo Listers,
Es gibt, mal wieder, ‚ne neue Version:

Neuerungen in TWebUpdate V1.10.0 vom 01.07.2008:
Als erstes möchte ich mich für das kommende im voraus entschuldigen. All diejenigen, die TwebUpdate bereits eingebunden haben, müssen nämlich ein paar Zeilen code ändern, denn:
TWebUpdate, jedenfalls der Code und die Info-Datei, sind ab sofort in englisch. Die englische Doku läßt noch ein wenig auf sich warten.
Aber keine Angst, es wird nicht wieder deutsch, also wer jetzt ändert, braucht das nicht nochmal machen.
Das heißt: die eigenschaften bleiben gleich, SucheNachUpdates ist zu CheckForUpdates geworden, und die ereignisse entsprechen allesamt dem Standard.

Als weiteres gibt es eine Fehlerbehandlung (OnError), die verschiedene Fehlercodes interprätieren kann. Bitte auch das Demo und TwebUpdate.pas hierzu anschauen.

Ein herzliches Dankeschön an DiamondBack2007 für die Erstellung eines Zählers, der es ermöglicht, die Größe aller herunterzuladenden Dateien zu bestimmen.

Auf die anderen Vorschläge gehe ich gesondert ein, kann ein, zwei Tage dauern.
Das Demo wird auch nochmal erweitert, – damit es ein bißchen aussagekräftiger wird.

Viel Spaß mit der neuen Version und immer her mit Ideen, Lob, Kritik und sowas!

Einen schönen Abend!
Marco

[shmia]

Hier sind bestimmt noch Units drin, die nicht gebraucht werden (z.B. Graphics, Controls)

Delphi-Quellcode:

unit WebUpdate;
interface
{$i WebUpdate.inc}
// Diverse Compilerschalter.
// bitte dringend überprüfen, ob diese euren Anforderungen gerecht werden.,
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Und noch ne Idee:
Man sollte die Update-Komponente vom Downloader trennen.
Soll heisen, es wäre gut, wenn man Indy ganz einfach durch etwas anderes austauschen könnte.
Der Downloader hat ja nicht anderes zu tun, als eine URL herunterzuladen und in einer best. Datei abzulegen.
Dabei soll er aber nach Möglichkeit OnProgress Event unterstützen, damit man ggf. eine ProgressBar ansteuern kann.

Delphi-Quellcode:

TDownloader = class(TObject)
public
   procedure DownloadURL(const URL, DestFilename : string); virtual;
   property OnProgress: TProgressEvent;
end;

Davon könnte man konkrete Klassen ableiten: TIndy9Downloader, TIndy10Downloader und TSimpleDownloader.
TSimpleDownloader benötigt kein Indy, sondern verwendet die Funktion URLDownloadToFile aus Unit UrlMon.
Dafür kann der TSimpleDownloader keine ProgressEvents erzeugen; aber das kann man verschmerzen.
Wenn ein Downloader eine URL nicht runterladen konnte, dann wirft er eine Exception.

[Svenkan]

*** Vorherigen Satz bitte vergessen (falls gelesen)! Hab meine INI nicht bearbeitet. ***

Ich wollte mal gerne wissen, an welcher Stelle ich 'AllFileSize' anwenden kann. Denn bisher bekomme ich (Prozedur 'UpdateFound') nur eine 0 ausgegeben.

[Marco Steinebach]

Zitat von Svenkan:

Also ich habe mir grad das Update installiert, allerdings funktioniert der Download nun nicht mehr.
Sobald ich den Download des Updates bestätige, bekomme ich einen Zugriffsfehler.

Eine Exception oder wie?
Läßt du das Proggi unter der IDE laufen, so daß die Delphi-Exceptions ausgelöst werden?

Zitat von Svenkan:

Desweiteren wollte ich mal gerne wissen, an welcher Stelle ich 'AllFileSize' anwenden kann. Denn bisher bekomme ich (Prozedur 'UpdateFound') nur eine 0 ausgegeben.

AllFileSize ist dafür gedacht, die ProgressBar vernünftit berechnen zu können. Wenn eine neue Programmversion gefundne wurde, also bevor DownloadStart loslegt, ist die Eigenschaft AllFileSize mit der Gesamtgröße aller herunterzuladender Dateien gefüllt.
Schau dir mal die prograssbar im Demoprogramm an.
Viele Grüße
Marco

[Svenkan]

Zitat von Marco Steinebach:

Zitat von Svenkan:

Also ich habe mir grad das Update installiert, allerdings funktioniert der Download nun nicht mehr.
Sobald ich den Download des Updates bestätige, bekomme ich einen Zugriffsfehler.

Eine Exception oder wie?
Läßt du das Proggi unter der IDE laufen, so daß die Delphi-Exceptions ausgelöst werden?

Siehe Post-Edit

Zitat von Marco Steinebach:

Zitat von Svenkan:

Desweiteren wollte ich mal gerne wissen, an welcher Stelle ich 'AllFileSize' anwenden kann. Denn bisher bekomme ich (Prozedur 'UpdateFound') nur eine 0 ausgegeben.

AllFileSize ist dafür gedacht, die ProgressBar vernünftit berechnen zu können. Wenn eine neue Programmversion gefundne wurde, also bevor DownloadStart loslegt, ist die Eigenschaft AllFileSize mit der Gesamtgröße aller herunterzuladender Dateien gefüllt.
Schau dir mal die prograssbar im Demoprogramm an.

Dankeschön! Funktioniert wunderbar!

Kann man eigtl. 2 Dateien nach dem Update starten lassen? (z.B. Programm und Readme)
Ich habe mal testweise bei zweien das Attribut 'Start' auf '1' gesetzt, allerdings wird nur die erste geöffnet.

[Pif]

Wenn ich ein neues PAckage mache und die 3 units einfüge und es dann installieren will bekomme ich nen error:

requires
vclx,
vcl,
rtl;

was muss ich da machen? wo bekomme ich diese dateien her?

MfG Pif

[Svenkan]

/edit: Sry, hab mich verlesen. Ich sollte jetzt echt mal ins Bett gehen. ^^

[Diamondback2007]

Hey,

also erst mal finde ich es super, dass jetzt alles in Englisch ist
Ich bin gerade dabei einen UpdateCreator zu erstellen, wenn der fertig, kann ich den ja hier mal posten.
Als Anregungen. Du könntest noch implementieren, dass auf dem Server Ordner mit den einzelnen Dateien liegen. Diese würden dann genauso heißen wie später nach dem Download. Du würdest also praktisch die gesamte Ordnerstruktur auch auf dem Server haben. Das schafft Ordnung.

Und wenn du Lust hast, könntest du auch noch eine Backupmöglichkeit einbauen. Bei einem neuen Update könntest du die zu ersetzenden Dateien einfach in einen Backupordner kopieren und bei Bedarf wiederherstellen.

gruß