[Android] Открытие файла, стандартной программой

[BurcevD]

Добрый день, ситуация такая: есть БД, в которой хранятся различные файлы, с расширением. Требуется открыть файлы в соответствующей программе (т.е. изображения в галлереи, PDF - соответствующей программой и т.д.). файлы качаются нормально, но не выполняются, что может быть?

Помогите плиз, 

procedure ExecuteFile(aFileName: String);
var
  ExtFile   : string;
  {$IFDEF ANDROID}
  mime      : JMimeTypeMap;
  ExtToMime : JString;
  Intent    : JIntent;
  {$ENDIF}
  {$IFDEF IOS}
  URL       : NSURL;
  {$ENDIF}
begin
  ExtFile := LowerCase(Copy(ExtractFileExt(aFileName), 2, Length(aFileName)));
  {$IFDEF ANDROID}
  mime := TJMimeTypeMap.JavaClass.getSingleton();
  ExtToMime := mime.getMimeTypeFromExtension(StringToJString(ExtFile));
  if ExtToMime <> nil then
  begin
    Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
    Intent.setDataAndType(StrToJURI('file:' + aFileName), ExtToMime);
    try
      SharedActivity.startActivity(Intent);
    except
      ShowError('Невозможно отобразить файл');
    end;
  end;
  {$ELSEIF MSWINDOWS}
      ShellExecute(Application.Handle, 'open', PWideChar(aFileName), nil, nil, 0);
  {$ELSE}
  url := TNSURL.Wrap(TNSURL.OCClass.URLWithString(StrToNSStr(aFileName)));

  if SharedApplication.canOpenURL(Url) then
    SharedApplication.openURL(url)
  else
    ShowError('Невозможно отобразить файл');
  {$ENDIF}
end;

[VladimirS]

а что в aFileName?

[BurcevD]

Сделал такую функцию

 

function TempPath : String;
begin
  {$IFDEF IOS}
  Result := TPath.GetLibraryPath+TPath.DirectorySeparatorChar;
  {$ELSE}
  Result := TPath.GetPublicPath+TPath.DirectorySeparatorChar;
  {$ENDIF}
end;

ну и соответственно прибавляю имя файла + расширение, т.е TempPath+<SomeName>+'.'+<Ext>

[Belov.V.]

BurcevD, да вроде как все в вашем примере работает. По крайне мере проверил для 'txt' и  'jpg', сохранив рабочий файл в:

 

    // Path file

    aFileName := TPath.Combine(TPath.GetSharedDownloadsPath, 'sample-temp.jpg');