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;