Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Problem mit Freisetzung von FileStream und Frage zum IdHTTP Datei Download (https://www.delphipraxis.net/186463-problem-mit-freisetzung-von-filestream-und-frage-zum-idhttp-datei-download.html)

Athris 4. Sep 2015 14:44

AW: Problem mit Freisetzung von FileStream und Frage zum IdHTTP Datei Download
 
Erst einmal vielen Dank für die Antworten.

Wie bereits vermutet trat die Exception im FileStream Bereich auf. Durchd as Sleep trat der Fehler bei über 5 Versuchen kein einziges mal auf, dementsprechend ist die Theorie dass er da irgendwie zu schnell ist, gar nicht so falsch. Ich habe das Sleep jetzt wieder rausgenommen und pauschal vor dem Repeat das fileDatei := TFileStream.Create(strLocalFile, fmCreate); gesetzt. Das FileExist und den Else Zweig brauche ich ja nicht mehr. Sieht bisher super aus!

Eine allgemeine Frage habe ich aber noch. Ich hatte ja bereits ein paar Beiträge vorher mal die Idee in den Raum gebracht ohne Schleife zu arbeiten und so die Datei in einem Stück runterzuladen. Gibt es da eine Variante vor der FileStream nicht bereits die gesamte ContentLength annimmt?

nahpets 4. Sep 2015 15:03

AW: Problem mit Freisetzung von FileStream und Frage zum IdHTTP Datei Download
 
Du gibst mit
Delphi-Quellcode:
IdDateiDownload.Request.Range := IntToStr(fileDatei.Position) + '-'+ IntToStr(intRangeEnd);
an, von wo bis wo geladen werden soll.
Ist intRangeEnd nun z. B. 10.000.000, so wird innerhalb des Gets dieser Wert als Size des übergebenen Stream gesetzt und damit wird die Datei so groß, auch wenn noch kein Byte geladen wurde. Wenn Du die Datei ohne diesen Wert erstellst (Request.Range also wegläßt), sollte die Datei mit dem Download des Inhaltes wachsen. Bei einem Abbruch müsste sie dann die Größe haben, die den geladenen Bytes entspricht.
Vermutlich könntest Du dann bei einem unvollständigen Download mit dem bereits genutzten
Delphi-Quellcode:
IdDateiDownload.Request.Range := IntToStr(fileDatei.Position) + '-';
für das "Dateiende" an der "Abbruchkante" wieder ansetzen. Zumindest dürfte das einen Versuch wert sein.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz