AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Online Update

Ein Thema von PhilmacFLy · begonnen am 20. Jan 2008 · letzter Beitrag vom 13. Feb 2008
Antwort Antwort
Seite 2 von 2     12   
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#11

Re: Online Update

  Alt 20. Jan 2008, 15:40
also ich kann dir das ganz ja nochmal erklären:

Zuerst downloadest du ja die Textdatei:
Delphi-Quellcode:
uses
  URLMon;

procedure TForm1.Button1Click(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
  Label1.Caption := 'Download gestartet';
  try
    Datei := 'http://www.DieSeite/DieDatei.zip';
    Ziel := 'C:\Windows\Desktop\DieDatei.zip';
    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
    Label1.Caption := 'Download beendet';
  except
    showmessage('Download abgebrochen');
  end;
end;
end;
(entweder so oder über die Indys)
Bei "Datei" die Textdatei auf deinem FTP- Server eintragen, bei "Ziel" das Ziel^^
Ich würde dir empfehlen, die Datei im Ordner deiner Anwendung zu downloaden. Und vergiss nicht ,sie am Schluss wieder zu löschen, den sonst entsteht Datenmüll.
Die Textdatei würde ich wiefolgt aufbauen:
1. Zeile = Die Version würde ich hier so ausgeben(Version 2.0 = 20, weil 20 ne Integer Zahl ist bei der du mit einer Abfrage ja ganz leicht gucken kannst welche größer oder kleiner ist!
2. Zeile = Die Version mit Punkt in der Mitte
3. Zeile = Downloadlink
4. Zeile = Beschreibung oder eventuelle Hinweise

Beispiel (Inhalt der Textdatei):
Delphi-Quellcode:
20
2.0
[url]http://deinFTPServer/UpdateDatei.txt[/url]
Tolles Programm was in dieser Version auch noch funktioniert oder so^^
Dann noch in deinem 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 du da [1] reinschreibst halt die 2. Zeile und immer so weiter.

Wenn du 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 kannst du ja ein Label auf dein Form ziehen in dem z.B.: 31(für Version 3.1) drinnen steht und das vergleichst du dann mit Edit1.text:

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 machst du wieder die Download Procedur mit dem Link aus deiner gedownloadeten Textdatei!

Was ich dir noch empfehlen kann ist ein Vorschau- Fenster wo noch Beschreibung und so drinnen steht.
Außerdem sollte die alte Version deines Programmes dann selbst gelöscht werden nach Nachfrage!

Solltest du noch Fragen haben, frag Sie einfach^^

Hoffe ich konnte dir und vielleicht auch noch ein paar Anderen damit helfen

MFG Lars Wiltfang

2.2
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Benutzerbild von PhilmacFLy
PhilmacFLy

Registriert seit: 20. Jan 2008
Ort: Nürnberg
340 Beiträge
 
FreePascal / Lazarus
 
#12

Re: Online Update

  Alt 20. Jan 2008, 15:49
Danke aber ich denke ich weiss schon wie ichs mache, und zwar werd ich eine ini Datei hochladen und eine ini datei hab ich im programm ornder da stehen die Version nummern drin. Sollten die nicht über ein stimmen frägt das programm ob man das programm updaten will wenn ja dann wird der browser geöffnet und man zum download link gesickt (der steh auch in der hochgeladenen ini.
Philipp N.
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: Online Update

  Alt 20. Jan 2008, 15:51
Was ist nun dein Problem?

Hier noch ein paar Links, da sollte alles nötige erklärt sein:

Tutorial für OnlineUpdate
update eures eigenen Programms: vorgehensweise

Über Hier im Forum suchenShellExecute kannst du natürlich auch Links mit dem Standardbrowser aufrufen.
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#14

Re: Online Update

  Alt 20. Jan 2008, 15:52
obs ne ini oder txt datei ist ist ja egal

obwohl ich ne interne updatefunktion besser finde, als wenn imer auf ne website geleitet wird
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#15

Re: Online Update

  Alt 20. Jan 2008, 15:53
@Matze: Er hatte doch gar kein Problem sondern hat sich nur indirekt auf meine Anleitung bedankt sehr indirekt
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Benutzerbild von PhilmacFLy
PhilmacFLy

Registriert seit: 20. Jan 2008
Ort: Nürnberg
340 Beiträge
 
FreePascal / Lazarus
 
#16

Re: Online Update

  Alt 20. Jan 2008, 15:56
Ok dann machs ich jetzt direkt danke an alle die mir aus meiner blödheit herraus geholfen haben.
Philipp N.
  Mit Zitat antworten Zitat
k4ni

Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
 
Delphi 7 Enterprise
 
#17

Re: Online Update

  Alt 20. Jan 2008, 15:56
Hey, ich mach gerade fast das gleiche. Aber ich halte die version in einer Datenbank fest MySQL, was ich persöhnlich besser finde.
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#18

Re: Online Update

  Alt 20. Jan 2008, 15:57
@Larsi: Hm, stimmt. Naja, die Links sind evtl. für andere hilfreich.

Und ich bitte dich wieder, zukünftig deinen letzten Beitrag zu editieren, wenn du etwas ergänzen möchtest und noch niemand nach dem Beitrag eine Antwort geschrieben hat. Doch das habe ich meines Wissens bereits einige Male zu dir gesagt.

@k4ni: Das eleganteste wäre es natürlich, wenn ein PHP-Skript, das man vom Programm aus aufruft, die Dateiversion der Exe/des Archivs online ermittelt und als String zurückgibt. Dann muss man bei einer neuen Version für die Update-Funktion nichts weiter machen, als die neue Anwendung auf den Server zu laden.
  Mit Zitat antworten Zitat
k4ni

Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
 
Delphi 7 Enterprise
 
#19

Re: Online Update

  Alt 20. Jan 2008, 17:48
Gute idee Diesen weg benützen die meisten GameGuard's. WErd ich mal versuchen. Danke
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#20

Re: Online Update

  Alt 13. Feb 2008, 12:58
He das ist wirklich eine sehr einfache Methode um Updates fürs Programm anzubieten
Find ich gut und einfach

Danke
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz