[Delphi] Aktualizator Programu

Dla specjalistów Programowanie
#1

Witam, otóż chcę zrobić aktualizator we własnym programie ale jak kliknę “aktualizuj” wyskakuje błąd tak zwany “Nie wysyłaj” i nie wiem jak sobie z nim poradzić :P, aktualizator robiłem dzięki temu gotowcowi :arrow: http://4programmers.net/Delphi/Gotowce/Update_programu , zmieniłem

wersja = '1.2';

na

wersja = '1.0';

i

cyfra1 := StrToInt(wersja[1]);

   cyfra2 := StrToInt(wersja[3]);

   updtCyfr1 := StrToInt(updtVersion[1]);

   updtCyfr2 := StrToInt(updtVersion[3]);

na

cyfra1 := StrToInt(wersja[1]);

   cyfra2 := StrToInt(wersja[1]);

   updtCyfr1 := StrToInt(updtVersion[1]);

   updtCyfr2 := StrToInt(updtVersion[1]);

, jeśli odtworzę program przez Delphi to pokazuje mi że tu :arrow: updtCyfr1 := StrToInt(updtVersion[1]); jest błąd :frowning: a zapomniałem dodać że na serwer wrzucam plik “version.ini” o zawartości

[update]

version=1.1

url=http://www.stronainternetowa.pl/program.exe

czy mógł by mi ktoś pomóc ? Bardzo był bym wdzięczny :slight_smile: …

Pozdrawiam dawidek 11 :slight_smile:

#2

to:

cyfra1 := StrToInt(wersja[1]);

   cyfra2 := StrToInt(wersja[3]);

   updtCyfr1 := StrToInt(updtVersion[1]);

   updtCyfr2 := StrToInt(updtVersion[3]);

Masz zostawić jak było. problem polega na tym że napis updtVersion jest pusty, a jest pusty dla tego że pewnie nie znajduje pliku o podanej nazwie, prawdopodobnie dal tego że nie zmieniłeś:

HTTPGet1.URL := 'http://www.web-page.pl/version.ini'; //lokalizacja pliku z informacją

na swoją lokalizację. Przy okazji, popraw:

if (cyfra1 < updtCyfr1) or (cyfra2 < updtCyfr2) then

na:

if (cyfra1 < updtCyfr1) or ( (cyfra1 = updtCyfr1) and (cyfra2 < updtCyfr2) ) then

Inaczej wersja 2.0 wyjdzie starsza niż 1.1

#3

13tySmok zmieniłem ale jak chce wejść na swoją stronkę to nie działa …a stronka stoi na lua.pl , sprawdziłem inne stronki ale wszystkie stronki nie działają które stoją na lua.pl :o , BTW a czy przypadkiem program nie powinien wywalać te błędy przecież po to jest OnError?

#4

HttpGet, to niezbyt udany komponent, oczywiście możesz dodatkowo sprawdzić czy długość updtVersion nie jest mniejsza od 3 ale lepiej ściągnij bibliotekę Indy i zastosuj komponent TIdHttp, jest o wiele bardziej przemyślany.

#5

Mam zainstalowane Indy tylko co bym musiał wpisać ? :stuck_out_tongue: Mam na myśli jaki kod ?

#6

Jeżeli chcesz zrobić coś sam to rób sam, jak masz problem to pytaj, zaś jeżeli chcesz aby zrobiono to za ciebie, to zamów realizację.