Danke erstmal für die schnelle antwort.
Hmm, also muss ich die irgendwie vorher rüberprüfen ob ne neue vorliegt, aber die größe der datei ändert sich auf dem server ja nicht ist ja entweder ne 1 oder ne 0, oder wird dort der inhalt, bzw, änderungsdatum überprüft?
Also laden tue ich die mit dieser function:
Delphi-Quellcode:
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),
nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer,
SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
Also diese hab ich nicht selbst geschrieben, da das niocht die hauptaufgabe von meinem Program ist, und ich mir die arbeit ersparen wollte, war vielleicht mein fehler;
Edit:
Also, am liebsten würde ich die file garnicht erst local speichern, so wie ich das bei
xml mache;
Also wenn du dafür auch einen vorschlag hättest, immer gerne;