Problem mit Freisetzung von FileStream und Frage zum IdHTTP Datei Download

[Athris]

Der Thread wird nur einmal im FormActivate der main.pas gestartet.

Virenscanner könnte natürlich sein, da das Problem bisher nur bei Exe Dateien aufgetreten ist wäre dies sehr wahrscheinlich. Nur kann ich den User wohl nicht dazu nötigen seinen Virenscanner zu deaktivieren

Ein Testprojekt kann ich leider nicht zur Verfügung stellen.

[TiGü]

Zitat von Athris:

Ein Testprojekt kann ich leider nicht zur Verfügung stellen.

Wieso nicht?
Einfach ein neues kleines Projekt mit einen Formular erstellen und da die Unit mit den Thread reinpfrimeln, bissel Komponenten draufgeklatscht (halt so ähnlich wie im richtigen Projekt) und fertig.
Keiner verlangt, dass du dein richtiges Projekt hochlädst.

[baumina]

Mach ne Zip-Datei und lad die runter, die ist zudem auch noch kleiner als so ne exe.

[Union]

Du könntest due Dateien zunächst unter einem anderen, temporären Namen speichern. Nach dem erfolgreichen Download benennst Du sie um. Damit erledigst Du beide Probleme (Virenscanner und unvollständige Downloads). Die meisten Browser machen es ähnlich.

[Athris]

Ich lade ja auch weitere Exe Dateien runter bei denen nichts passiert. Wäre die Variante den Download an einem Stück durchzuführen keine alternative? So hätte der Virenscanner doch kein Zugriff auf die Datei solang der Filestream offen ist, oder?

[Union]

Wie sieht denn der CallStack aus? Tritt der Fehler beim DeleteFile oder bei einem von den TFileStream.Create auf?

[TiGü]

Ich habe einen Verdacht!
Bitte starte deinen Thread nicht im OnActivate, sondern im OnCreate.

Also statt:

Delphi-Quellcode:

procedure TfrmMain.FormActivate(Sender: TObject);
var
  pntUpdateThread: TUpdateThread;
begin
  pntUpdateThread := TUpdateThread.Create(true);
  pntUpdateThread.FreeOnTerminate := True;
  pntUpdateThread.Resume;
end;

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  pntUpdateThread: TUpdateThread;
begin
  pntUpdateThread := TUpdateThread.Create(true);
  pntUpdateThread.FreeOnTerminate := True;
  pntUpdateThread.Start;
end;

Es kann nämlich durchaus sein, dass OnActivate mehrfach aufgerufen wird, das startet deinen Thread neu und ruckzuck gibt es zwei oder mehr Instanzen von deinen Thread, die alle auf das gleiche Dateihandle rummachen wollen.

[frankyboy1974]

hallo,

ich verstehe nicht warum dieser code

Delphi-Quellcode:

fileDatei:=nil;
if not FileExists(strLocalFile) then begin
 fileDatei := TFileStream.Create(strLocalFile, fmCreate);
end else begin
   fileDatei := TFileStream.Create(strLocalFile, fmOpenReadWrite);

innerhalb der Schleife steht (oder wie auch immer du das mittlerweilen geändert hast). Würde es nicht reichen, wenn du einmal überprüfst, ob die Datei bereits vorhanden ist?

mfg

[Athris]

Wenn das Programm das erste mal startet und der das erste mal in die Schleife reinläuft dann existiert die Datei nicht und der Filestream erstellt eine neue leere Dateihülle die im Anschluss mit 50000 Bytes gefüllt wird. Dann ist der erste Teil der Datei abgeschlossen und es geht wieder von vorne los. Nun haben wir ja bereits ein Teilstück der Datei, deswegen wird die vorhandene Datei geöffnet und an das Ende angesetzt. Das Programm lädt nun die nächsten 50000 Bytes. Das ganze geht dann solange bis die Datei komplett auf der Festplatte ist.

Wiegesagt ich würde auch gerne die Datei in einem Rutsch herunterladen. Dann habe ich aber das Problem, dass die wenn der Downloadprozess irgendwie unterbrochen wird, auf der Festplatte diese "halb gedownloadete" Datei liegt. Dieses Fragment hat aber bereits die volle Größe erhalten.
Beispiel:
Heruntergeladen wird eine 10MB Datei.
Filestream erstellt die Hülle mit Größe 0.
IdHTTP holt sich die 10MB Datei aus dem Internet und setzt damit die Größe der Hülle auf 10MB.
Während des Downloads schmiert der Rechner ab. Bisher wurden 6,5 MB heruntergeladen.
Beim nächsten Start prüft das Programm die lokale Dateigröße gegen die Webgröße. Beide sind identisch, da die lokale Dateihülle 10 MB hat, obwohl die Datei noch gr nicht voll heruntergeladen wurde.

[Sir Rufo]

Ich würde einfach mal den FileStream so erzeugen

Delphi-Quellcode:

fileDatei := TFileStream.Create( 
  strLocalFile, 
  fmCreate or fmOpenReadWrite, 
  fmShareExclusive  );

Dann kann dort auch niemand mehr hineinpfuschen ...