[Delphi] Pobieranie

[GoodLan]

Witam, napisalem sobie taki program ktory najpierw pobiera plik, a pozniej uruchamia inny program. Jednak nie chce zeby za akzdym razem byl pobierany ten plik, chodzi o to ze jakby nie pobieralo pliku wlaczyl sie ten 2 program, nie moge ustalac wersji tego pliku do sciagniecia ani nic takiego, bo to jest zwykly plik ktorego nie moge edytowac, dlatego chcialem sie dowiedziec czy sa jakeis inne sposoby? np porownianie daty modyfikacji pliku na lokalnym komputerze z data modyfikacji pliku na serwerze? albo porownywanie md5? jesli to mozliwe prosilbym o jakies wskazowki jak to zrobic..

[Nvm]

Wybacz, może jestem ciężko kapujący (no dobra - jestem), ale czytam ten post już 3 raz i nie mogę za Chiny zrozumieć o co chodzi. Dobrze by było go przepisać używając odpowiednich wyrazów, przecinków i kropek. To na pewno ułatwi życie wielu osobom

[GoodLan]

oh, sorry, pisałem na szybko. No więc mam program, który pobiera pewien plik z druzynami do pewnej gry(co tydzien jest nowy plik), po pobraniu uruchamia tę pewną grę i nie chcę, żeby za każdym razem przy włączaniu mojego programu ten plik został sciągany, np tylko wtedy, jeśli nie był sciągany tydzień lub innym jakimś sposobem. Teraz bardziej zrozumiałe?

[Toster]

jak zapiszesz plik na dysku to patrzac na jego date utworzenia mozesz stwierdzic jak stary on jest. Wiec w czym problem, jesli pik jest starszy niz np 2 dni to go sciagasz ponownie...

[DarkAndrew]

jeżeli to hattrick to nie próbuj bez licencji nic nie zrobisz :/ tzn nawet jak zrobisz to sie nie pobawisz bo banana dostaniesz i to szybko

[GoodLan]

Nie, nie to nie Hattrick. No wlasnie problem w tym ze jestem slabym programistą i nie wiem jak takie cosnapisac, z tymi 2 dniami :/

[Toster]

help i szukamy file managment routines. Zacznij od FileSize i wybierz see also albo group itd. pobieranie obecnej daty to Now. DO tego zestaw funkcji takich jak DaysBetween lub inne z time. Poczytaj poprobuj. powodzenia

[KKKas]

DO tego zestaw funkcji takich jak DaysBetween lub inne z time.

... z modułu DateUtils.

[GoodLan]

Ok, znalazlem cos takiego:

 

var
 File_Name: string;
 DateTimeStamp: integer;
 Date_TiYN]U[YNY[[WÓ[YHH    NYN]UFU7FŁfĆTvRfĆUćRfĆTvR&WGW&2Óbą(ŃQMѹѥ(MĄ5('Couldn`t find test.adf')
 else begin
   // C]U[YHX]]W[YHH[Q]UŃ]U[RFFUFU7FĆ&V\"6FŁFFUF7G\"FFUFR(1
ŃQQMŃĄŃ}Q()ęu^ŚXvĘ.jk;^uŹŹmpyzZa^NXNY[^N]J]U]7G'FFFRb33ł#rÓBÓb336vW76vRfĆG}ŃĄ(

 

ta funkcja dziala, w show message widze "-1" nie wiem po co ten myslnik, teraz ostatnia rzecz to porowanie, jesli 3 dni temu byla ostatnia modyfikacja pliku to tylko wtedy bedzie pobierany...

[GoodLan]

Ok, mam cos takiego:

[delphi][/delphi]

 

Dalem ze mniejsze od -3 bo wtedy to oznacza wiecej niz 3 dni, nie wiem po co ten minus sie pokazuje w ogole, ale problem w tym, ze nawet jak sa 2 dnilub 1 to program obiera plik.. a chodzi mi o to zeby wylaczyl sie po prostu i nic nie sciagal

[5corpio]

A nie brakuje w tym kodzie begin po then ?

[GoodLan]

if edit1.text = '-1' then
   begin

Form1.Close;

e[BYY]K^H   NLN[Y[Ó6Ć6SŚVćBV6PbVFCFWBfCGF7G\"Ó2Ą(((!QQAUI0ĄŃŃ//blabla.com/file.exef';

        HTTPGet2.FileName := NK^IN]][NY[YHĆPĆ&V6FŁb33WFFćrb33łŚVćCV(

Teraz niezaleznie ile dni temu byl sciagany plik, nic sie nie dzieje, po prostu uruchamia sie forma i stoi.

[Toster]

polecam poczytac o codding rules i indentacji, twojego kodu czytac sie nie da....

Co do stojacej formy, debuger i analiza linia po lini. klawisze F8 + F9 + F5

[GoodLan]

Ok, juz sie z tym uporalem, wszystko dziala, tylko doszedlem do wniosku ze lepiej byloby zrobic zeby sprawdzalo, date modyfikacji pliku na serwerze i an dysku lokalnym, tylko znowu nie wiem jak sie za to zabrac.

 

EDIT: Ok zalozmy, ze mam ta date modyfikacji na serwerze, tylko jak teraz zrobic, aby sprawdzalo czy data na lokalnym dyskujest STARSZA od daty na serwerze?

[filuu]

if DataNaSerwerze

[GoodLan]

Ahmm, tez o tym myslalem, tylko zastanawiam sie czy zaakcpetuje to z myslnikami

[filuu]

To lepiej nie próbuj, jeszcze sie cos popsuje ...

Nie wiem w czym problem skoro masz już 2 daty ...

[GoodLan]

hmm, wyglada na to, ze dziala, czy to mozliwe?

[filuu]

Nie.

 

@Down

 

Omfg Zartowalem jak wszystko jest git to znaczy, że dziala ;p

Jak masz jakies watpliwosci , to pokaz kod..

[GoodLan]

hmm, dlaczego? skoro probowalem z roznymi datami i dziala bez zarzutu :/ czyzby przez te myslniki jakos te liczby sie odejmowaly?

[filuu]

Pokaż lepiej ten kod ... boje sie co tam napisałes z tymi "odejmowaniami" ....

[KKKas]

Jeśli robisz coś w stylu:

if '2007-03-02' > '2007-02-12'

To dostaniesz prawdopodobnie (nie pamiętam już czy w ogóle jest operator >

[filuu]

Można używac zwyklych ">" ";)

[GoodLan]

Napislame tak jak napisalem

if updtVersion > DateToStr(Date_Time) then...

dziala bez zarzutu i to jest najwazniejsze ;d

[GoodLan]

No i za akzdym problemem pojawia sie kolejny... u mnie to wszystko dziala, u polaka tez ale np dalem niemcom to pisze ze "program wykonal nieprawidlowa operacje" nie mam pojecia czemu akurat u nich.. program laczy sie z serwerem pobiera plik ini i tam ejst data zapisana porownuje ja do daty pliku na dysku, i jesli data na dysku jest starsza pobiera plik... wiec nie rozumiem, dlaczego mi dziala i pewniej osobie a niektorym nie wlacza sie, od razu przy starcie crash