1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function TMainForm.FieldGetWebData(const URL: String): String;
var HTTP : TIdHTTP;
    Mem : TFileStream;
    S : String;
    FE : Boolean;
begin
    // wenn Datei nicht vorhanden dann laden
    S := ApplicationDirectory+'\Temp\'+ExtractFileNameFromURL(URL);
    HTTP := TIdHTTP.Create(Self);
    FE := FileExists(S);
    HTTP.Get(URL);   // muß hier Get als auch
    HTTP.Head(URL);  // Head aufgerufen werden?
    if(not FE) or ((FE) and (FileAge(S) <> DateTimeToFileDate(HTTP.Response.LastModified)))then
    begin
    Mem := TFileStream.Create(S, fmCreate);
    HTTP.Get(URL, Mem);
    Mem.Free;                                                        
    FileSetDate(S, DateTimeToFileDate(HTTP.Response.LastModified)); // muß ich hier wieder Head aufrufen? ansonsten Speichere ich beim 
    end;                                                            // ersten aufruf von Head das Datum
    HTTP.Free;
    Result := S;
end;