Delphi-Quellcode:
procedure TDataModule2.DataModuleCreate(Sender: TObject);
var f:textfile;
number:string;
begin
assignfile(f,'place.txt');
reset(f);
readln(f,number);
closefile(f);
assignfile(f,'place.txt');
rewrite(f);
writeln(f,number);
writeln(f,'downloading');
closefile(f);
if number='1' then
UrlDownloadtofile(nil,'http://wetter.t-online.de/mapcache/radar_anim.gif','radar1.gif',0,nil) else
UrlDownloadtofile(nil,'http://wetter.t-online.de/mapcache/radar_anim.gif','radar2.gif',0,nil);
if number='1' then number:='2' else number:='1';
assignfile(f,'place.txt');
rewrite(f);
writeln(f,number);
writeln(f,'downloaded');
closefile(f);
end;
das is der jetzige quellcode
den wolte ich eigentlich direkt mit in die form packen nur die hängt dann immer solnage wie der download ist, gibt es da auch noch eine andere möglichkeit?
Zitat:
Zitat:
einzelbilder nach datum speichern kann
meine ich so, das der diese gif animation herunterlädt, auf festplatte speichert wie oben im source. dann sich diese animation nimmt und ihre einzelbilder speichert. diese animation ist ein wetter radar von deutschland und wird alle 15 min. aktualisiert. jetzt soll das prog diese bilder eben imemr speichern also sollen am ende dateien heraus kommen, die zum beispiel : 01.01.05 14:15.gif
mfg mr.unbekannt