[Android] angeschlossene "/storage/"s finden

[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?