26 replies to this topic

[wolfran_hack]

Básicamente tenemos un MP3 y queremos compartirlo en otra aplicación:

 

En Java es:

 

delphi

//en android
    //String sharePath = Environment.getExternalStorageDirectory().getPath() + "/Soundboard/Ringtones/custom_ringtone.ogg";
    //Uri uri = Uri.parse(sharePath);
    //Intent share = new Intent(Intent.ACTION_SEND);
    //share.setType("audio/*");
    //share.putExtra(Intent.EXTRA_STREAM, uri);
    //startActivity(Intent.createChooser(share, "Share Sound File"));

En Delphi:

 

delphi

con42 := TPath.GetDocumentsPath + PathDelim + 'archivo.mp3';
 
  Intent := TJIntent.Create;
  //Intent.setData(StrToJURI(con42));
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  Intent.setType(StringToJString('audio/*'));
  Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM,StringToJString(con42));
  MainActivity.startActivity(Intent);

Me deja compartir pero al seleccionar da error: "Fallo a compartir, intentelo nuevamente.."

 

Probe con:

 

delphi

intent.setType("audio/mpeg");

delphi

intent.setType("audio/mpeg3");

y tampoco funciona.

 

Ideas?

 

[egostar]

Hola wolfran_hack bienvenido a DelphiAccess

 

¿Ya verificaste que tengas permisos de acceso a los archivos?

 

Project --> Options --> Uses Permissions

 

Saludos

[wolfran_hack]

si, tanto al sdcard como a la interna, de lectura y escritura.

 

Creo que el error esta en:

php

Uri uri = Uri.parse(sharePath);

que no se como expresarlo en delphi

[enecumene]

delphi

var Uri: String;
 
...
 
Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));

[wolfran_hack]

delphi

Intent := TJIntent.Create;
  Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
  Intent.setData(StrToJURI(con42));
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  Intent.setType(StringToJString('audio/*'));
  Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM,Uri);
  MainActivity.startActivity(Intent);

me da:

php

[DCC Error] Unit1.pas(119): E2010 Incompatible types: 'string' and 'Jnet_Uri'
[DCC Error] Unit1.pas(123): E2250 There is no overloaded version of 'putExtra' that can be called with these arguments

[enecumene]

Es simple mi estimado sólo cambia el tipo en la variable:

delphi

var Uri: TJnet_Uri;

[wolfran_hack]

delphi

var
Intent: JIntent;
con42: String;
Uri: Jnet_Uri;

delphi

Intent := TJIntent.Create;
  con42 := TPath.GetDocumentsPath + PathDelim + 'Neg.mp3';
  Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  Intent.setType(StringToJString('audio/*'));
  //Intent.setData(TJnet_Uri.JavaClass.parse(StringToJString(con42)));
  //Intent.putExtras(TJIntent.JavaClass.EXTRA_STREAM,Uri);
  //Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM,Uri);
  Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, StringToJString(con42));
  MainActivity.startActivity(Intent);

Volvió a dar el Error: Fallo a compartir, intentelo nuevamente..

[wolfran_hack]

De la siguiente manera logre que abra el WhatsApp para seleccionar el destino:

delphi

Intent := TJIntent.Create;
  con42 := TPath.GetDocumentsPath + PathDelim + 'Neg.mp3';
  Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  Intent.setDataAndType(Uri,StringToJString('audio/*'));
  MainActivity.startActivity(Intent);

Pero no lo envia.

[enecumene]

delphi

Intent := TJIntent.Create;
con42 := TPath.GetDocumentsPath + PathDelim + 'NegrodeMierda.mp3';
Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
Intent.setDataAndType(Uri,StringToJString('audio/*'));
Intent.putExtra (TJIntent.JavaClass.EXTRA_AUDIO,StringToJString(con42)); //<<AQUI
MainActivity.startActivity(Intent);
 

Prueba agregando la linea resaltada, pero me asalta una duda, ¿qué es PathDelim?.

[wolfran_hack]

Encontré el error, no hay ningún archivo en data/data/com.programa/files/archivo.mp3 lo raro es que al utilizarlo en el programa funciona el audio pero no esta en dicha carpeta.

[wolfran_hack]

delphi

Intent := TJIntent.Create;
con42 := TPath.GetDocumentsPath + PathDelim + 'NegrodeMierda.mp3';
Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
Intent.setDataAndType(Uri,StringToJString('audio/*'));
Intent.putExtra (TJIntent.JavaClass.EXTRA_AUDIO,StringToJString(con42)); //<<AQUI
MainActivity.startActivity(Intent);
 

Prueba agregando la linea resaltada, pero me asalta una duda, ¿qué es PathDelim?.

 

 

[DCC Error] Unit1.pas(124): E2003 Undeclared identifier: 'EXTRA_AUDIO'

[DCC Error] Unit1.pas(124): E2250 There is no overloaded version of 'putExtra' that can be called with these arguments

[wolfran_hack]

Por lo que googlee, el archivo hay que pasarlo a la sdcard. 

 

http://www.aprendean...px?g=posts&t=54

[enecumene]

Ah caray, me olvido que estamos tratando con Delphi, en este caso sería EXTRA_STREAM, una cosa que se me ha pasado has asignado el Remote Path a assets/internal en el project deployment?

[wolfran_hack]

si los archivos estan como assets/internal

[enecumene]

Bueno, prueba moviendolo a la tarjeta externa, cuando tenga un tiempecito veré si puedo hacerte un ejemplo usando PackageInfo, más específicamente JPackageManager para enviar datos a aplicaciones específica como whatsapp, mientras ve buscando info sobre ella.

[wolfran_hack]

Entonces cambio assets/internal por external y cambio el GetDocumentsPath y tendría que andar?

[enecumene]

Entonces cambio assets/internal por external y cambio el GetDocumentsPath y tendría que andar?

 

Pues debería!!

[wolfran_hack]

No funciono, no me encuentra el archivo.

 

Segun wiki delphi http://docwiki.embar..._an_Android_App:

 

assets\internal (internal) or assets (external) folder 

 

lo defini al archivo como assets

delphi

MediaPlayer1.FileName := TPath.GetSharedDocumentsPath + PathDelim + 'archivo.mp3';
  MediaPlayer1.Play;

Me dice que no encuentra el archivo.

delphi

Intent := TJIntent.Create;
  //TPath.GetDocumentsPath interno
  con42 := 'file://' + TPath.GetSharedDocumentsPath + PathDelim + 'archivo.mp3';
  Uri := TJnet_Uri.JavaClass.parse(StringToJString(con42));
  Intent.setPackage(StringToJString('com.whatsapp'));
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  Intent.setData(Uri);
  Intent.setDataAndType(Uri,StringToJString('audio/mpeg3'));
  Intent.addFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);
  Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM,StringToJString(con42)); //<  MainActivity.startActivity(Intent);

No hace nada..

[wolfran_hack]

Según este link http://aziga.x10.mx/...id=23&Itemid=27tiene el archivo en una carpeta temporal, como hago para moverlo a dicha carpeta?

[enecumene]

Las funciones ShareFile y findmimetype, es todo lo que necesitas, las has probado?.