Bin mal ein bisserl naiv, weil ich's nicht so recht verstehe.
Auf die Datei zugegriffen wird doch eigentlich (hauptsächlich) hier:
Delphi-Quellcode:
IdDateiDownload.Get(strUrl, fileDatei);
finally
fileDatei.Free;
Get schreibt und bei Free wird zugemacht. Passiert das eventuell zu schnell? Mach doch bitte mal (probehalber) hinter das
IdDateiDownload.Get(strUrl, fileDatei);
noch ein
Sleep(1000)
. Außer, dass es langsamer wird, ändert sich dann was?
(Frei nach dem Motto: Beim Debuggen passiert es nicht, weil Du da zwangsläufig langsamer bist?)
Zugegebenermaßen ist mein Gedankengang etwas schräg, denn es würde ja bedeuten, dass das id.Get noch nicht mit dem Schreiben fertig ist, während die Datei bereits geschlossen wurde, was in dem Fall aber nicht funktionieren kann.
Alternative Fehlermöglichkeit:
Die Datei wird im free geschlossen. Das Betriebssystem hat also ein bisserl was zu tuen.
In der Schleife geht es aber am Anfang schon munter weiter, die Datei ist da und soll zum Schreiben geöffnet werden, aber das Betriebssystem hat sie noch "zwischen".
Daher bitte mal hier ändern:
Delphi-Quellcode:
if not FileExists(strLocalFile) then begin
fileDatei := TFileStream.Create(strLocalFile, fmCreate);
end
else begin
fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite);
flgexit := fileDatei.Size >= intLength;
if not flgexit then
fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
end;
in
Delphi-Quellcode:
if not FileExists(strLocalFile)
then begin
fileDatei := TFileStream.Create(strLocalFile, fmCreate);
end
else begin
try
fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite);
except
on e :
Exception do begin
ShowMessage(Format('
Upps, hier tritt der Fehler auf: %s',[e.
Message]);
end;
end;
flgexit := fileDatei.Size >= intLength;
if not flgexit
then
fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
end;
Kommt diese Fehlermeldung, dann bau (erstmal) um das TFileStream.Create eine Schleife, in der Du, mit kurzer Pause, 3 (oder so ähnlich) Versuche machst, die Datei zu öffnen. Sowas in der Art:
Delphi-Quellcode:
if not FileExists(strLocalFile)
then begin
fileDatei := TFileStream.Create(strLocalFile, fmCreate);
end
else begin
for i := 1
to 3
do begin
try
fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite);
break;
except
on e :
Exception do begin
if i = 3
then Raise else Sleep(1000);
end;
end;
end;
flgexit := fileDatei.Size >= intLength;
if not flgexit
then
fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
end;
Im Zweifelsfalle baue bitte in die Routine mehr Try-Except-Blöcke ein, um die exakte Fehlerstelle zu finden. So ist das doch eher wie mit der
@frankyboy1974, der Code dürfte innerhalb der Schleife sein, weil das fmCreate nur beim ersten Mal erforderlich ist und dann immer fmOpenReadWrite. Man muss aber irgendwo die Entscheidung treffen und das erscheint mir eine sinnvolle Stelle zu sein.
Alternativ könnte man natürlich auch vor der Schleife prüfen, ob die Datei vorhanden ist, wenn nein, erstellt man eine leere Datei und schließt sie.
In dem Fall kann man dann innerhalb der Schleife davon ausgehen, dass sie immer da ist und spart sich
innerhalb der Schleife des "ewige"
if not FileExists(strLocalFile) then begin
. Also ungefähr so:
Delphi-Quellcode:
fileDatei:=nil;
if not FileExists(strLocalFile) then begin
fileDatei := TFileStream.Create(strLocalFile, fmCreate);
fileDatei.Free;
end;
fileDatei:=nil;
repeat
fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite);
flgexit := fileDatei.Size >= intLength;
if not flgexit then
fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
end;