Delphi-PRAXiS - Delphi TFilestream

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TFilestream - Datei in Benutzung (https://www.delphipraxis.net/158650-tfilestream-datei-benutzung.html)

TFilestream - Datei in Benutzung

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:glaskugel:.

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;