FileExists funktioniert nicht bei Android?

[Uwe Raabe]

Zitat von skoschke:

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 von Uwe Raabe:

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

[skoschke]

Hallo,

nun habe ich es mit nur

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 von skoschke:

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.

[KodeZwerg]

Zitat von 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!

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!