update eures eigenen Programms: vorgehensweise

[Chewie]

Zitat:

Zitat von Ajin

Die Batch-Datei ist aber kleiner und genauso wirksam.

Nein, ist sie nicht. Es gibt einen wichtigen Unterschied: Ein Dienst hat immer Schreibrechte für das Programmverzeichnis, ein normaler Benutzer nicht. Arbeitest du nicht als Administrator, musst du die Batchdatei explizit als Administrator starten, um sie auszuführen. Bei einem Dienst kann jeder Benutzer ein Update durchführen.

[Schubi]

[quote="Chewie"][quote="Schubi"]

Zitat:

Zitat von messie

Zitat:

Zitat von Ajin

Die Batch-Datei ist aber kleiner und genauso wirksam.

Nein, ist sie nicht. Es gibt einen wichtigen Unterschied: Ein Dienst hat immer Schreibrechte für das Programmverzeichnis, ein normaler Benutzer nicht. Arbeitest du nicht als Administrator, musst du die Batchdatei explizit als Administrator starten, um sie auszuführen. Bei einem Dienst kann jeder Benutzer ein Update durchführen.

Das wird wahrscheinlich den Grund haben, dass ein normaler Benutzer nun mal nicht zu schreiben HAT.
Solche Sicherheitsmechanismen sollte man nicht einfach so umgehen.

[Chewie]

Zitat:

Zitat von Schubi

Das wird wahrscheinlich den Grund haben, dass ein normaler Benutzer nun mal nicht zu schreiben HAT.

Richtig. Und ein "normales" Programm sollte nicht von einem Administrator gestartet werden müssen. Eine Updatefunktion aus dem Programm heraus per Batchdatei erfordert aber Administratorrechte. Wozu dann, könnte man sich fragen.


Man muss halt einen Kompromiss schließen zwischen Sicherheit und Komfort. Und bei Programmen, die häufigen Updates bedürfen (z.B. Virenscanner) ziehe ich die Variante mit dem Dienst vor.

[Ajin]

Mochen!

Delphi-Quellcode:

batchname := Pfad_Lokal+'Update.bat';

FileSetAttr(Pfad_Lokal+'TTS_Starter.exe', 0);
batchfile := TStringList.Create;
with batchfile do
begin
  try
    Add('@Echo off');
    Add(':Label1');
    Add('del "'+Pfad_Lokal+File1+'"');  //Löscht die alte Datei
    Add('copy "' + Pfad_Netz + File1 + '" "' + Pfad_Lokal + File1 + '"');  //Kopiert die Neue
    Add('if not Exist "' + Pfad_Lokal + File1 + '" goto Label1');  //Prüft, ob sie vorhanden ist
    Add(Pfad_Lokal + File1);  //Startet sie
    Add('del ' + batchname);  //und löscht die BAT
    SaveToFile(batchname);
    ChDir(ExtractFilePath(Application.ExeName)); 
    WinExec(PChar(batchname), SW_HIDE);  //BAT starten
  finally
    batchfile.Free;
  end;
  Halt; //Programm beenden
end;

Kann man dem batch file eine Pause geben bevor es das alte File löscht? Ich bekomm immer den Fehler: keinen Zugriff weil die Anwendung noch läuft und daher nicht gelöscht werden kann.
WAIT und SLEEP scheint es nicht zu geben im Batch code.

[Schubi]

Du kannst sowas wie

Delphi-Quellcode:

dir c:\ /s >> NULL

machen. Das dauert ne kleine Weile.
(Gibt alle Verzeichnisse und Dateien auf Laufwerk C aus. Allerdings wird wegen ">> NULL" nichts angezeigt)

Ansonsten so:

Delphi-Quellcode:

Add(':Label1');
Add('del "'+Pfad_Lokal+File1+'"');  //Löscht die alte Datei
Add('if Exist "' + Pfad_Lokal + File1 + '" goto Label1');  //Prüft, ob sie

[Ajin]

Nach einigem herumprobieren hab ich ein ähnliches System wie Schubi entworfen. Nun funktionert das prima! Schubis Lösung funktioniert ebenfalls einwandfrei :)

Vielen Dank !

[dor557]

So nun habe ich "Meine eigene" lösung zusammengetragen und Hier Gepostet.

Gruss Sascha

[QuickAndDirty]

Zitat:

Zitat von Ajin

Mochen!

Delphi-Quellcode:

batchname := Pfad_Lokal+'Update.bat';

FileSetAttr(Pfad_Lokal+'TTS_Starter.exe', 0);
batchfile := TStringList.Create;
with batchfile do
begin
  try
    Add('@Echo off');
    Add(':Label1');
    Add('del "'+Pfad_Lokal+File1+'"');  //Löscht die alte Datei
    Add('copy "' + Pfad_Netz + File1 + '" "' + Pfad_Lokal + File1 + '"');  //Kopiert die Neue
    Add('if not Exist "' + Pfad_Lokal + File1 + '" goto Label1');  //Prüft, ob sie vorhanden ist
    Add(Pfad_Lokal + File1);  //Startet sie
    Add('del ' + batchname);  //und löscht die BAT
    SaveToFile(batchname);
    ChDir(ExtractFilePath(Application.ExeName)); 
    WinExec(PChar(batchname), SW_HIDE);  //BAT starten
  finally
    batchfile.Free;
  end;
  Halt; //Programm beenden
end;

Kann man dem batch file eine Pause geben bevor es das alte File löscht? Ich bekomm immer den Fehler: keinen Zugriff weil die Anwendung noch läuft und daher nicht gelöscht werden kann.
WAIT und SLEEP scheint es nicht zu geben im Batch code.

ping -t

[Jelly]

Zitat:

Zitat von manfred_h

schau Dir doch diese Komponente an:
http://www.tp-soft.de/index.php?T=rema&P=produkte

Oder genauer, besser hier

Da mein Programm ja mittlerweilen Freeware ist, sind ja damit keine Kosten verbunden. Ich fahre alle meine Updates darüber. Und die Liste zeigt dir, dass du nicht nur Updates damit fahren kannst, sondern sogar noch viel mehr... Was du brauchst, ist:

• Ein MySQL 4.1 Server
• PHP Anbindung
• Webserver
• FTP Server

Und das Programm sowie die TInternetUpdate Komponente, die es aber auch auf meiner Seite zum Runterladen gibt und auch im REMA Paket enthalten ist.

Rema regelt die Versionssteueren, setzt also Version verfügbar, und lädt das Setup dann auch autmatisch via FTP auf den Server hoch. Zu jeder Version schreibst du TODO- und WHATSNEW-Listen.

Die TInternetUpdate Komponente prüft, ob eine neue Version verfügbar ist (über http, nicht ftp), und lädt diese gegebenfalls runter... Alles in eigenem Thread ausgelagert und mit 2 Zeilen Code erledigt.

[Luckie]

Zitat:

Zitat von Schubi

Bat-Dateien sinf recht praktisch für sowas!
Die kannst du z.B. direkt von deiner Homepage downloaden und lokal ausführen.

Delphi-Quellcode:

batchname := Pfad_Lokal+'Update.bat';

FileSetAttr(Pfad_Lokal+'TTS_Starter.exe', 0);
batchfile := TStringList.Create;
with batchfile do
begin
  try
    Add('@Echo off');
    Add(':Label1');
    Add('del "'+Pfad_Lokal+File1+'"');  //Löscht die alte Datei
    Add('copy "' + Pfad_Netz + File1 + '" "' + Pfad_Lokal + File1 + '"');  //Kopiert die Neue
    Add('if not Exist "' + Pfad_Lokal + File1 + '" goto Label1');  //Prüft, ob sie vorhanden ist
    Add(Pfad_Lokal + File1);  //Startet sie
    Add('del ' + batchname);  //und löscht die BAT
    SaveToFile(batchname);
    ChDir(ExtractFilePath(Application.ExeName));  
    WinExec(PChar(batchname), SW_HIDE);  //BAT starten
  finally
    batchfile.Free;
  end;
  Halt; //Programm beenden
end;

Was muss in Pfad_Netz stehen, damit das funktioniert? Ich habe es gerade in der Konsole versucht:

Code:

C:\Dokumente und Einstellungen\mp>copy "http://www.michael-puff.de/Developer/Delphi/Programme/ADSReader.zip" d:\adsreader.zip
[url]http://www.michael-puff.de/Developer/Delphi/Programme/ADSReader.zip[/url]
Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung
ist falsch.
        0 Datei(en) kopiert.