AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Cross-Platform-Entwicklung Android: Datei öffnen mit Std. Anwendung
Thema durchsuchen
Ansicht
Themen-Optionen

Android: Datei öffnen mit Std. Anwendung

Ein Thema von greenmile · begonnen am 25. Feb 2016 · letzter Beitrag vom 25. Feb 2016
Antwort Antwort
greenmile

Registriert seit: 17. Apr 2003
1.107 Beiträge
 
Delphi 10.3 Rio
 
#1

AW: Android: Datei öffnen mit Std. Anwendung

  Alt 25. Feb 2016, 12:19
Hey super, vielen Dank. Hier der Code für XE8:

Code:
Uses ... Androidapi.JNI.Webkit;

function GetMimeType(FFilename: String; IsLocalFile: Boolean): JString;
{$IFDEF ANDROID}
  var jstr: JString;
  const _Default = 'video/mp4';
begin
  Try
    result := StringToJString(_Default); // Standard
    If IsLocalFile then jstr := TJMimeTypeMap.JavaClass.getFileExtensionFromUrl(StringToJString(cFileUrlPrefix + FFilename))
    Else jstr := TJMimeTypeMap.JavaClass.getFileExtensionFromUrl(StringToJString(FFilename));
    if jstr <> nil then begin
      jstr := TJMimeTypeMap.JavaClass.getSingleton.getMimeTypeFromExtension(jstr);
      if jstr <> nil then result := jstr;
    end;
  Except
    Result := StringToJString(_Default);
  End;
end;
{$ELSE}
begin
  raise Exception.Create('Not supported!');
end;
{$ENDIF}

Function OpenVideo(const URL: string; IsLocalFile: Boolean): Boolean;
{$IFDEF ANDROID}
var
   Intent: JIntent;
begin
  Try
    Intent := TJIntent.Create;
    Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
    Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
    If IsLocalFile then Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString(cFileUrlPrefix + URL)), GetMimeType(URL,IsLocalFile) )
    Else Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString(URL)), GetMimeType(URL,IsLocalFile) );
    SharedActivity.startActivity(TJIntent.JavaClass.createChooser(Intent, StrToJCharSequence('Bitte App auswählen...')));
    Result := true;
  Except
    Result := false;
  End;
end;
{$ELSE}
begin
  raise Exception.Create('Not supported!');
end;
{$ENDIF}

Geändert von greenmile (25. Feb 2016 um 12:24 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz