FileExists funktioniert nicht bei Android?

[skoschke]

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

[KodeZwerg]

Vielleicht liegt es an fehlende Berechtigungen zum schreiben?

[himitsu]

In Delphi/Pascal kann man diese Open/Create-Modi garnicht Kombinieren,
das geht nur mit einem optionalen Share-Mode.

Es steht so aber auch ganz genau in der Hilfe beschrieben.

Zitat:

The open mode must be one of the following values:

Ja, in der WinAPI gibt es ein OpenAlways (Öffnen oder Erstellen wenn noch nicht da), aber nicht in Delphi.


Entweder du prüfst mit FileExists und nimmst dann fmCreate oder fmOpenWrite
oder du nimmst THandleStream mit CreateFile und kannst dort die passende dwCreationDisposition OPEN_ALWAYS verwenden.

[add]
https://quality.embarcadero.com/brow...OPEN_ALWAYS%22



[add]

Delphi-Quellcode:

const 
  OpenMode: array[Boolean] of Word = (fmCreate, fmOpenWrite);
var
  fstream: TFilestream;
  fn: string;
  x: boolean;
begin
  fn := TPath.GetSharedDownloadsPath + TPath.DirectorySeparatorChar + 'Test.txt';
  x := fileexists(fn);
  fstream := TFilestream.Create(fn, OpenMode[x]);

  // oder
  fstream := TFilestream.Create(fn, IfThen(x, fmOpenWrite, fmCreate));

[skoschke]

Danke für den Hinweis!

Zitat:

In Delphi/Pascal kann man diese Open/Create-Modi garnicht Kombinieren,
das geht nur mit einem optionalen Share-Mode.

So steht das seit zig Jahren in meinem Code so drin und hat bisher immer funktioniert...

Ciao
Stefan

[Uwe Raabe]

Zitat:

Zitat von skoschke (Beitrag 1511728)

So steht das seit zig Jahren in meinem Code so drin und hat bisher immer funktioniert...

Daran kann es auch nicht liegen, denn der Code in TFileStream.Create sieht so aus:

Delphi-Quellcode:

  if (Mode and fmCreate = fmCreate) then
  begin
    LShareMode := Mode and $FF;
    if LShareMode = $FF then
      LShareMode := fmShareExclusive; // For compat in case $FFFF passed as Mode
    inherited Create(FileCreate(AFileName, LShareMode, Rights));
    if FHandle = INVALID_HANDLE_VALUE then
      raise EFCreateError.CreateResFmt(@SFCreateErrorEx, [ExpandFileName(AFileName), SysErrorMessage(GetLastError)]);
  end

Mit fmCreate or fmOpenWrite ergibt sich ein Mode = $FF01. Demnach ist die Bedingung erfüllt und LShareMode wird zu $01. FileCreate ignoriert aber die $01 völlig. Das wird erst relevant, wenn fmExclusive ins Spiel kommt.

OT: Bei solchen Codezeilen in TFileStream.Create frage ich mich immer wieder ob der Entwickler eigentlich versteht was er da schreibt:

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
    inherited Create(FileOpen(AFileName, Mode));
{$ELSE !MSWINDOWS}
                                                                              
    inherited Create(FileOpen(AFileName, Mode));
{$ENDIF MSWINDOWS}

[Rollo62]

Zitat:

Zitat von Uwe Raabe (Beitrag 1511730)

OT: Bei solchen Codezeilen in TFileStream.Create frage ich mich immer wieder ob der Entwickler eigentlich versteht was er da schreibt:

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
    inherited Create(FileOpen(AFileName, Mode));
{$ELSE !MSWINDOWS}
                                                                              
    inherited Create(FileOpen(AFileName, Mode));
{$ENDIF MSWINDOWS}

Das soll wohl bedeuten dass der Entwickler sehr stark auf Windows fixiert ist und sicherstellen möchte das auch alle anderen Platformen wie Windows behandelt werden sollen :-D

[skoschke]

Hallo,

nun habe ich es mit nur

Delphi-Quellcode:

fstream := TFilestream.Create(fn, fmCreate);

versucht, bekomme aber weiterhin "kann nicht erstellt werden. File exists' aufgetreten."

Ciao
Stefan

[Rollo62]

Schau mal bei KodeZwerg im 2. Beitrag, kann es nicht doch an Berechtigungen liegen ?
Vielleicht mal checken ob das Verzeichnis erreichbar ist.

[himitsu]

Im Windows könnte man GetLastError fragen, warum es nicht geht.

k.A. wie/ob man das im Android machen kann.


fmCreate sollte immer gehen, egal ob Datei da oder nicht,
außer die Schreibrechte fehlen, es ist für's Sharing blockiert oder der Pfad ist ungültig.

[Uwe Raabe]

Es wäre ja interessant zu wissen, ob die Datei tatsächlich existiert - also nicht nur das Ergebnis von FileExists. Eventuell hilft es dann, diese vorher zu löschen. Zumindest sollte das irgendwelche Zugriffsprobleme offenlegen.

[skoschke]

Zitat:

Schau mal bei KodeZwerg im 2. Beitrag, kann es nicht doch an Berechtigungen liegen ?
Vielleicht mal checken ob das Verzeichnis erreichbar ist.

Volltreffer!
Android 12 zusammen mit meinem aktuellen Delphi 11.2 scheint mir das Schreiben in TPath.GetSharedDownloadsPath zu verbieten!
Dass dann aber die irreführende Meldung "File always exists" kommt ist ja nicht witzig!

Ich muss aber in das allgemeine Downloadverzeichnis schreiben, nur wie stellt man das an, dafür sollte doch das GetSharedDownloadsPath da sein?

Ciao
Stefan

[Rollo62]

Zitat:

Zitat von skoschke (Beitrag 1511747)

Ich muss aber in das allgemeine Downloadverzeichnis schreiben, nur wie stellt man das an, dafür sollte doch das GetSharedDownloadsPath da sein?

Das war mal möglich wird aber von Version zu Version von Android immer stärker reglementiert.
Schau mal hier unter "Scoped storage", das ist wohl das was Android noch erlaubt.
Wenn Du Vollzugriff haben willst wirst Du spezielle Berechtigungen abfragen müssen und Google wird Dir beim Review ordentlich auf die Füsse treten, bzw. genau abfragen was Du damit genau machen willst.

[himitsu]

Das ist halt der Pfad, wo du runtergeladene Dateien lesen kannst.
Selber runterladen und dort speichern ist da nicht inbegriffen ... wobei, ein Webbrowser kann es ja auch, also muß es irgendwie gehn :stupid:

Du kannst dir ja mal die APK vom Chrome runterladen und dort nachsehn, was der für Berechtigungen hat.

[Uwe Raabe]

Gibt es bei Android nicht so einen Download Manager Service?

[KodeZwerg]

Zitat:

Zitat von skoschke (Beitrag 1511747)

Zitat:

Schau mal bei KodeZwerg im 2. Beitrag, kann es nicht doch an Berechtigungen liegen ?
Vielleicht mal checken ob das Verzeichnis erreichbar ist.

Volltreffer!

writing-to-an-external-sd-card-in-delphi-10-3-rio

Delphi-Quellcode:

fWriteStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);

...

if PermissionsService.IsPermissionGranted(fWriteStorage) then
begin
  // access previously granted, write files...
end
else
begin
  PermissionsService.RequestPermissions([fWriteStorage],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        // access granted, write files...
      end
      else
      begin
        // access denied, can't write files...
      end;
    end,
    DisplayRationale);
  end;
end;

Da geht es zwar um eine SD-Karte aber vermutlich ist es das selbe Prinzip, natürlich kann ich mich da auch total irren!

[skoschke]

So, falls jemand die gleichen Probleme bekommt, meine Lösung:

Ich darf nicht direkt unter dem frei zugänglichen Downloads (GetSharedDownloadsPath) Dateien erzeugen, wohl aber Verzeichnisse!
Also habe ich dort ein Unterverzeichnis für die App angelegt, darin darf ich Dateien speichern!
Somit sind dann die heruntergeladenen Dateien auch vom Benutzer erreichbar, das war das Wichtigste, nicht in die App-Sandbox speichern zu müssen...

Ciao
Stefan