Code:
procedure update;
begin
if DownloadFile(MyURL, GetMyDir + 'text.txt') then
begin
if FileExists(GetMyDir + 'text.txt')then read_file;
end
else
ShowMessage('An error occurred.')
end;
procedure update;
begin
if DownloadFile(MyURL, GetMyDir + 'text.txt') then
begin
if FileExists(GetMyDir + 'text.txt')then read_file;
end
else
ShowMessage('An error occurred.')
end;
Server mi cesto trokira nesto, i onda kada se pozove ova funkcija iz mog programa, program totalno zablokira, jer ne moze da preuzme fajl kada server pocne da zeza... i tek posle 20-ak sekundi prikaze ShowMessage('An error occurred.'). -Prikazuje odmah ovu poruku ako je server totalno off...
Kako da uradim neki tajmer recimo da ako nema odgovora za 4 sekunde, da prikaze poruku ShowMessage('An error occurred.')
Ako moze neki primer koda bio bih puno zahvalan!
Poz.
[Ovu poruku je menjao Dementia dana 01.12.2009. u 13:21 GMT+1]