Hallo
in einem Thread wird eine Datei aus
FTP heruntergeladen
Delphi-Quellcode:
procedure TNotificationThread.NetHTTPRequest1RequestCompleted
(const Sender: TObject; const AResponse: IHTTPResponse);
var
fstream: TFilestream;
fn: string;
x: boolean;
begin
fn := TPath.GetSharedDownloadsPath + TPath.DirectorySeparatorChar + 'Test.txt';
x := fileexists(fn);
fstream := TFilestream.Create(fn, fmCreate or fmOpenWrite); <--- hier knallt es!
AResponse.ContentStream.Position := 0;
fstream.CopyFrom(AResponse.ContentStream, AResponse.ContentStream.Size);
fstream.DisposeOf;
end;
erhalte ich folgende Meldung:
Im Projekt test.apk ist eine
Exception der Klasse EFCreateError mit der Meldung 'Datei "/storage/emulated/0/Download/test.txt" kann nicht erstellt werden. File exists' aufgetreten.
Zur Fehlersuche habe ich x eingebaut, x ist beim Debuggen false und trotzdem soll die Datei in der nächsten Codezeile existieren?
Hat jemand einen Tip?
Ciao
Stefan