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.