TFilestream - Datei in Benutzung

[simmi]

Hallo,

ich habe bereits hier im Forum gesucht, jedoch keine passende Hilfe gefunden. Ich öffene eine Datei, bearbeite sie, speichere die Datei und geben die Variablen frei. Beim 2. Aufruf der Procedur kommt die Fehlermeldung "Datei wird von einem anderen Nutzer bearbeitet", ist aber völliger blödsinn. Datei wird heruntergeladen und nur von meinem Programm genutzt. Wie gesagt, beim ersten Aufruf funktioniert es immer richtig.

Habe ich irgendwo etwas vergessen????

Delphi-Quellcode:

procedure TForm1.b5Click(Sender: TObject);
type
PBuffer = ^TBuffer;
TBuffer = array [0..1000000] of byte; //Dateigröße variabel zwischen 30 KB und 950 KB

var
   dtx, dty    : TFileStream;
   Buffer      : PBuffer;
   ii          : int64;
   
begin
.
.
new(Buffer);
dtx:=TFileStream.Create(OpenDialog1.Filename, fmOpenRead);
dtx.Read(buffer^[0],dtx.Size);

ii:=0;
repeat
  //Byteweise verarbeitung der Daten
until ii>dtx.Size;

ii:=dtx.Size;

dty := TFileStream.Create(pfad+'\test.txt', fmCreate);
dty.Write(buffer^[0],ii);

dty.Free;
dtx.Free;
dispose(buffer);
.
.
.
deletefile(opendialog1.FileName);
deletefile(pfad+'\test.txt');
.
.
end;

[p80286]

Zunächst einmal arbeitest Du mit zwei Dateien.
Am Ende der Verarbeitung werden beide gelöscht.
Bei welcher Datei tritt der Fehler auf?
Warum willst du auf gelöschte Dateien wieder zugreifen?

Gruß
K-H

[simmi]

ich gebe den Speicher frei und lösche dannach die Dateien (Datenschutz). Beim nächsten Durchlauf wird eine neue heruntergeladene Datei verarbeitet. Diese hat auch einen neuen Dateinamen.

Trotzem hat Deine Frage geholfen weil ich den Fehler nun selbst entdeckt habe. Ich habe die Textdatei im weiteren Ablauf noch einmal geöffnet (als textfile) und das closefile vergessen. Dadurch wurde im 2. Durchlauf der Fehler ausgelöst.

Danke.

[SirThornberry]

Zitat von simmi:

und lösche dannach die Dateien (Datenschutz)

Wäre es nicht sinnvoller die Daten dann entweder gar nicht auf die Festplatte zu schreiben oder nur in verschlüsselter Form?

[simmi]

Natürlich wäre es besser und ich weiß auch das die Datei aus einer MYSQL Tabelle stammen, aber leider bekomme ich die Daten nur aus dem Webportal als download zur Verfügung gestellt. Alles andere wäre ja auch zu einfach...

[himitsu]

Indy bietet es auch an, daß man eine Datei in einen Stream downladet und nicht in eine Datei.

[simmi]

Auch das wäre noch eine gute Möglichkeit, man lässt mich aber einfach nicht an Ursprungsdaten ran, weder mit einem direkten Datenbankzugriff noch mit indy...