Einfaches Online Update

[Jeff93]

Habe mein Problem in ein eigenes Thema gesteckt. Siehe Hier

[SaFu]

So hab mal ein BspProjekt angehängt.

Habe es nicht getestet und Kompalieren musst du es dir auch selber, habe es nicht gemacht da die Pfade zu deiner Url angepast werden müssen sowie der Programmname (.exe) aber sollte eigentlich laufen.

Das Programm das dein Update in dein Programmverzeichnis KOPIERT (vorher löschen) musst du dir selber schreiben.

Hoffe es hielft dir weiter.

zu meinem Post der oben steht habe ich noch verbesserungen eingebaut, da es mit dieser blöden Textdatei Probleme gab unter VISTA.
Hab es jetzt auf INI's umgestellt somit werden die Werte korekt angezeigt.

Bei diesem Update wird jetzt auch direkt die Programmversion verglichen, besser gesagt die Updateversion die in der ini steht mit der des aktuellen Programms.

Eine Bsp ini die auf den FTP Server muss ist auch im Anhang

Viel spass damit.

[AlexanderBrade]

Hallo Lars, ich habe deine Prozeduren nach Anleitung in mein Projekt integriert, allerdings lädt er bei mir die Datei garnicht herunter!

Anbei mein Quelltext(ich habe das in das FormCreate des 1. Formulars integriert)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Datei,Ziel:PChar;
    List: TStrings;

begin
  try
    Datei := 'http://alexanderbrade.al.funpic.de/abi/version.txt';
    Ziel := 'C:\';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
  end;

 List := TStringList.Create;
try
  List.LoadFromFile('C:\version.txt');
  if List.Count>0 then
    Edit1.Text:=List[0];
    Edit2.Text:=List[1];
finally
  List.Free;
end;

if StrToInt(Edit1.text) > StrToInt(Label1.caption) then begin
ShowMessage('Es ist ein Update möglich!');
try
    Datei := 'http://alexanderbrade.al.funpic.de/abi/abi.zip';
    Ziel := 'C:\';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

  except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
  end; end



else
ShowMessage('Es ist kein Update nötig! Die Software ist auf dem neusten Stand!');

{DeleteFile('C:\version.txt'); }

end;

[DeddyH]

Muss unter Ziel nicht ein Dateiname angegeben werden?

[AlexanderBrade]

Ja OK das klappt! Danke.

[Larsi]

Zitat von DeddyH:

Muss unter Ziel nicht ein Dateiname angegeben werden?

Genau richtig

[jaenicke]

Zitat von AlexanderBrade:

Ja OK das klappt! Danke.

Aber auch nur bei dir...
Unter Vista oder bei einem gut eingerichteten XP wirst du dort keine Schreibrechte haben unter c:\, weshalb du da das Verzeichnis für temporäre Dateien benutzen musst. Das bekommst du mit GetTempPath.

Bei der Aktualisierung selbst brauchst du dann Administratorrechte. Eine Möglichkeit wäre, die eigene Exe mit Administratorrechten und einem speziellen Parameter selbst erneut zu starten. Diese neue Instanz benennt sich dann selbst um, kopiert die neue Exe ins Verzeichnis, löscht die Daten im Tempverzeichnis und startet wiederum die neue Exe mit einem Parameter zum Löschen der alten umbenannten Exe. Dies wird dann gemacht, und schon ist dein Programm aktualisiert.

[DeddyH]

Abgesehen davon ist es auch möglich, dass es gar kein Laufwerk C gibt

[AlexanderBrade]

Aber für "Ziel" kann ich nur einen absloten Pfad verwenden, da er sonst sagt: inkompatible Typen: PAnsiCHar und string;

Vielleicht könnte ich dem Ziel ja den Pfad aus einem SavetoFIle Dialog zuordnen!

[Larsi]

Dann musst du Pchar() nehmen.