Problem mit Freisetzung von FileStream und Frage zum IdHTTP Datei Download

[Athris]

Hab den Thread Start ins FormCreate verschoben und gleichzeitig den FileStream um das fmShareExclusive erweitert. Fehler taucht weiterhin auf.

Beim DeleteFile dürfte die Meldung nicht auftreten, da dieses nur ein einziges mal aufgerufen wird. Die Meldung kommt aber während des Downloads, also während den Durchlauf im Repeat Bereich. Ich denke eher dass es am FileStream also konrekt hier dran liegt:

Delphi-Quellcode:

        if not FileExists(strLocalFile) then begin
          fileDatei := TFileStream.Create(strLocalFile, fmCreate, fmShareExclusive );
        end
        else begin
          fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite, fmShareExclusive );
          flgexit := fileDatei.Size >= intLength;
          if not flgexit then
            fileDatei.Seek(Max(0, fileDatei.Size-4096), soFromBeginning);
        end;