[Android] angeschlossene "/storage/"s finden

[Rollo62]

Habs jetzt nicht getestet oder nachsehen können,

aber was gibt denn
http://docwiki.embarcadero.com/Libra...GetDirectories
und
http://docwiki.embarcadero.com/Libra...ctory.GetFiles
zurück ?

Kann sein das die auch das gleiche FindFirst/Next machen.

Rollo

[nikosophi]

Hallo Rollo,

konnte nicht früher testen, da sich vermeintlich wichtigere Dinge vorgedrängt haben...

Erst mal: Danke für Deine Antwort.

Also mit "GetFiles" bekomme ich keinen einen Eintrag zurück:
lList := system.IOUtils.TDirectory.GetFiles ('/storage/');
length(lList) ist 0

Mit "GetDirectories" kommt folgendes:
"/storage/emulated"
"/storage/self"

Beide Verzeichnisse existieren auch. ( DirectoryExists ).

Wenn ich einen USB Stick dranhänge kommt noch ein Eintrag hinzu:
"/storage/C6Ba-F48A"
Das Verzeichnis gibts aber nicht laut "DirectoryExists".

Wenn ich mit anderen Programmen drauf gucke zB "ES Datei Explorer" dann wird der USB Stick als "USB1002" angezeigt.

Kann doch nicht so schwer sein, SD Karten oder USB Sticks anzusprechen, wir sind hier ja nicht bei ios

Hat vielleicht noch jemand eine Idee???

[Rollo62]

Hast du die permissions richtig gestetzt ?
http://docwiki.embarcadero.com/RADSt...es_Permissions
http://www.fmxexpress.com/access-ext...ey-on-android/
Vielleocht muss man auf Nicht-Standard-Direktories mit den Android Intents losgehen:
http://eagle.phys.utk.edu/guidry/android/writeSD.html

Die Verzeichnisse haben aber auch selten volle Zugriffsrechte
http://docwiki.embarcadero.com/RADSt...rget_Platforms


Rollo

[bra]

Wir verwenden folgende Routine, schau mal, ob die bei dir das richtige liefert - würde mich nämlich auch interessieren :

Delphi-Quellcode:

function GetSdCardPath: JFile;
var
  i, nSDK_Level: Integer;
  jfMntPath: JFile;
  jfList: TJavaObjectArray<JFile>;
  sMediaMounted, sPathStorageState: string;
begin
  Result := nil;
  jfMntPath := TJFile.JavaClass.init( StringToJString( '/storage' ) );
  if jfMntPath.isDirectory and jfMntPath.exists then begin
    nSDK_Level := TJBuild_VERSION.JavaClass.SDK_INT;
    if nSDK_Level >= 19 then begin
      sMediaMounted := JStringToString( TJEnvironment.JavaClass.MEDIA_MOUNTED );
      jfList := jfMntPath.listFiles;
      for i := 0 to jfList.Length-1 do begin
        // getStorageState is added in API level 19; deprecated in API level 21, which introduces getExternalStorageState(File). Delphi interface does not supports this method with parameter.
        sPathStorageState := JStringToString( TJEnvironment.JavaClass.getStorageState( jfList.Items[i] ) );
        if SameText( sPathStorageState, sMediaMounted ) then begin
          Result := jfList.Items[i];
          Break;
        end;
      end;
    end;
  end;
end;

[nikosophi]

Prima, Danke!
Werde ich machen und Bescheid geben, wenn ich wieder Zugriff auf die Kunden Devices habe.
( Denke so Ende der Woche ).

[nikosophi]

Wow cool, habe meine Zeitplanung nur um 300% überschritten- ich werde halt immer besser

Aber im Ernst: die "wahre" Lösung scheint es nicht zu geben. Wieviele unterschiedliche Geräte Arten letztendlich geprüft wurden, weiß ich nicht genau, müssen aber über 15 gewesen sein.
Also unterschiedliche Devices oder Android Versionen.

Am liebsten hätte ich die Variante von "bra" verwendet, da jfList immer die korrekte Anzahl an wirklich angeschlossenen Speicherkarten oder Sticks anzeigt. Sogar bei Android 4.
Also USB Stick anstöpseln und zack: ein Eintag mehr.
Allerdings liefert sPathStorageState stets "unknown".

Ich habe letztendlich zwei verschiedene Funktionen verwendet und die Ergebnisse in eine eindeutige Liste geschrieben.

1) FlyFilesUtils.GetExternalStoragePath // von wang80919qq link siehe ersten post
2) system.IOUtils.TDirectory.GetDirectories ('/storage/');

Zur Verbesserung sollte man noch den freien Speicher prüfen, da oft USBDriveA-USBDriveF aufgelistet werden, auch wenn kein oder nur ein Stick angeschlossen ist.

Falls es was besseres gibt, bitte melden!


hier die Funktion:

Code:

function InitCacheCombobox: boolean;
var
  cFunctionname: string;

  cPath, cExtern, cIntern, cMsg, cName, cFileINIExt: string;
  i: longInt;
  sr: TSearchRec;
  lList: System.Types.TStringDynArray;
  LSearchOption: TSearchOption;
begin
  cFunctionname := unit_name + 'InitCacheCombobox';
  result   := FALSE;
  try
    try
      haupt_util.AddDebugInfo ( '*** Laufwerksabfragen: ***' );

{$IFDEF ANDROID}

      cPath :=  FlyFilesUtils.GetExternalStoragePath;
      cMsg := Format('GetExternalStoragePath: %s free Diskspace: %d Byte davon frei: %d Byte', [cPath, FlyFilesUtils.GetTotalSpaceSize(cPath), GetFreeSpaceSize(cPath)]);
      haupt_util.AddDebugInfo (cMsg);
      Add2CacheCombobox (cPath);

////////////////////////////////////////////////////////////////////////////////
      LSearchOption := TSearchOption.soAllDirectories;
      lList := system.IOUtils.TDirectory.GetDirectories ('/storage/');

      for i := 0 to pred(length(lList)) do begin
        cPath := lList[i];
        haupt_util.AddDebugInfo ('GetDirectories(1): '+inttostr(i)+') '+cPath);
        Add2CacheCombobox (cPath);
      end;
////////////////////////////////////////////////////////////////////////////////

{$endif}
    haupt_util.AddDebugInfo ( '*** Laufwerksabfragen Ende ***' );
    except
      on E:Exception do begin
        haupt_util.WriteExceptionLog ( E, cFunctionname );
      end;
    end;
  finally
  end;
end;

[philipp.hofmann]

Ich habe es jetzt sowohl mit
- FlyFilesUtils.GetExternalStoragePath
- als auch mit der Implementierung von Bra und
- system.IOUtils.TDirectory.GetDirectories ('/storage/')
ausprobiert. Auf meinem Samsung Galaxy S4 Tablet bekomme
ich die SD-Card sauber gemountet in /storage/0000-0000 zurück und kann damit arbeiten.
Den USB-Stick sehe ich aber nur als OTG/USB2002 und er ist nicht gemountet.
Irgendwie steht auch in den Einstellungen, dass über den USB-C-Port nur geladen wird und ich kann es nicht auf Dateiübertragung umstellen.

Gibt es irgendeinen Trick den USB-Stick doch zu mounten, damit er auch als /storage/????-???? auftaucht und via Delphi-App nutzbar ist?
So kann ich den USB-Stick nur selbst im ES-Datei-Explorer nutzen, nicht aber in der Delphi-App, oder doch?