TFileStream -> Datei bereits in Benutzung

**Serpentine**

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var FS:Tfilestream;

    URL:String;

    blockliste: Array of AnsiString;

begin

URL:= 'http://.../server_'+listbox3.items.strings[ListBox3.ItemIndex];

FS:=Tfilestream.Create('SpammerList.dat',fmOpenWrite,fmShareDenyNone);

IdHTTP1.Get(URL,FS);

FreeAndNil(FS);

IdHTTP1.Free;

end;

Wenn ich diese Prozedur 1 mal ausführe dann funktioniert sie, aber wenn ich sie dann nochmal ausführe mit einem anderen Listboxeintrag dann kommt der Fehler dass die Datei von einem anderen Prozess benutzt wird, was nicht seien kann.

TFileStream -> Datei bereits in Benutzung

TFileStream -> Datei bereits in Benutzung

Forumregeln