Einfaches Online Update

[Larsi]

Hi,
bitte nicht so hart mit mir sein, denn das ist mein erster Beitrag für die Code-Lib!
Mithilfe dieser Anleitung ist es möglich ein kleines aber feines Online- Update zu realisieren!
Der Grundgedanke ist, dass man eine Textdatei auf einem Server downloadet, diese ausliest und dann prüft ob ein Update notwendig ist und gegebenfalls downloaden!
Dies sollte in gut einer halben Stunde zu schaffen sein. Kein wirklich großer Aufstand, da eine Update- Funktion ja gar nicht so schwer sein muss
Anleitung:
Zuerst downloadet man sich ja die Textdatei:

Delphi-Quellcode:

uses 
  URLMon; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Datei,Ziel:PChar; 
begin  
  try 
    Datei := 'http://www.DieSeite/DieDatei.txr'; 
    Ziel := 'C:\Windows\Desktop\DieDatei.txt'; 
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil); 
     
  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
  end; 
end; 
end;

Dies kann man entweder so wie gerade beschrieben oder halt über die Indys tun!
Bei "Datei" die Textdatei auf deinem Server eintragen, bei "Ziel" das Ziel^^
Ich würde euch empfehlen, die Datei im Ordner deiner Anwendung zu downloaden. Und vergesst nicht, sie am Schluss wieder zu löschen, den sonst entsteht Datenmüll:
DeleteFile('Pfad der Textdatei.txt'); Die Textdatei würde ich wie folgt aufbauen:

• 20
  2.0
  http://www.dieSeite/DieDatei.zip
  Schönheitsfehler wurden behoben. Vor dem Update alle anderen Programme schließen!

GANZ WICHTIG: Die Beschrieung darf nur eine Zeile in Anspruch nehmen, da wir ja gleich die einzelnen Zeilen auslesen, aber auch eine Zeile kann ja ziemlich viele Buchstaben enthalten...!
Zur Erklärung:
1. Zeile := Die Version ohne einen Punkt in der Mitte damit man Sie mit < bzw. > dann später vergleichen kann
2. Zeile := Die Version so, wie Sie der User dann sehen wird um dann zu entscheiden ob er ein Update will oder nicht
3. Zeile := Die Datei, die gedownloadet werden soll
4. Zeile := Die Beschreibung warum ein Update gemacht werden soll bzw. die Update- Erneuerungen

Dann noch in eurem Programm die Textdatei öffnen:

Delphi-Quellcode:

var 
List: TStrings; 
begin 
List := TStringList.Create; 
try 
  List.LoadFromFile('C:\UpdateDatei.txt'); 
  if List.Count>0 then 
    Edit1.Text:=List[0]; 
finally 
  List.Free; 
end; 
end;

Das Edit1.text := List[0] list die erste Zeile aus wenn ihr da [1] reinschreibst halt die 2. Zeile und immer so weiter.

Wenn ihr das so für alle vier Zeilen gemacht hast, steht im ersten Edit die Version im 2. Edit die Version mi nem Punkt in der Mitte zur Übersicht und so weiter...
Dann könnt ihr ja ein Label auf euer Form ziehen in dem z.B.: 31(für Version 3.1) drinnen steht und das vergleichst du dann mit Edit1.text:
Die Überprüfung ob ein Update von Nöten ist (in diesem Fall nämlich nicht!):

Delphi-Quellcode:

if StrToInt(Edit1.text) > StrToInt(Label1.caption) then 
ShowMessage('Es ist ein Update möglich!') 
else 
ShowMessage('Es ist kein Update nötig! Die Software ist auf dem neusten Stand'!);

Wenn ein Update möglich ist dann macht ihr wieder die Download Procedur mit dem Link aus deiner gedownloadeten Textdatei!
Was ich euch noch empfehlen kann ist ein Vorschau- Fenster wo noch Beschreibung und so drinnen steht:
Gehen wir mal davon aus, das das Vorschau Form den Namen Form2 trägt und sich auf diesem ein paar Labels und ein Memo- Feld befinden, dann müsste man ja nurnoch mit der Textfeld- Laden Procedur die einzelnen Zeilen auslesen und Fertig! Das mit dem Memo würde ich empfehlen für die Beschreibung, da diese in einem einzigen Label wohl kaum Platz finden könnte!
Außerdem sollte die alte Version des Programmes dann selbst gelöscht werden nach Nachfrage!
Auch eine ProgressBar für dein Fortschritt kann man einbauen, ist aber bei kleineren Dateien sinnlos:
Dafür wurde von BullsEye ein Thread aufgemacht, der euch bestimmt weiterhelfen kann.


Solltest ihr noch Fragen haben, stellt sie einfach!
Hoffe ich konnte euch damit helfen!

Falls Ihr euch das Update und so mal angucken wollt, dann downloadet doch einfach meinen Passwort Saver, denn dort ist GENAUS DAS VERFAHREN drinnen!
MFG Lars Wiltfang

[edit=Matze]Dieses Thema reicht nicht ganz aus, um in die Code-Library aufgenommen zu werden. MfG, Matze[/edit]

[Zacherl]

Wohl eher PAnsiChar(), sonst gibts unter D2009 trotzdem Mecker

[jaenicke]

Zitat von AlexanderBrade:

Aber für "Ziel" kann ich nur einen absloten Pfad verwenden

Das ist ja auch wichtig, relative Pfade sind ja genauso schlimm.
Aber der absolute Pfad muss nicht hartcodiert sein. Den kannst du schon mit GetTempPath ermitteln und wie schon gesagt ggf. mit dem Cast verwenden.