Datum souboru v Delphi
Zdravím.
Před stažením souboru s HTTP servru ziskam datum a čas naposledy uprveneho souboru ve formatu fri, 30 Mar 2012 03:18:56
Když vytahnu datum toho souboru po stažení tak ho mam ve formatu 30.3.2012 2012 03:18:56
Jak převest ten formatu fri, 30 Mar 2012 03:18:56 abych je moh porovnat.
Netuším, akým spôsobom získavaš údaje o poslednej modifikácii súboru, ale IMHO porovnávať 2 reťazce je nezmysel...
Porovnávať môžeš hodnoty TDateTime.
var
Datum1, Datum2: TDateTime;
if Datum1 <> Datum2 then ...
Se souboru na disku to mam TDateTime
var
datumCas: TDateTime;
begin
datumCas := FileDateToDateTime(FileAge('.\text.txt'))
S HTTP servru to mam přes GET jako string 'fri, 30 Mar 2012 03:18:56'
Tudiš to potřebují převest do TDateTime.
"Trošku" som pátral po riešení, ale nedopátral som sa...
Jediné rýchle riešenie je použiť Synapse TCP/IP library, v podstate Ti stačia 2 unity:
synautil.pas + synafpc.pas
Jediné čo je nutné definovať v stringu - časovú zónu CEST - inak môže byť rozdiel ako u mňa 2 hodiny...
Děkují mooooc za pomoc.