26 replies to this topic

[wolfran_hack]

Ahora si!!!

delphi

var
an_intent: JIntent;
con42: String;
Uri: Jnet_Uri;
fileuri: JParcelable;
 
begin
 
//Copiamos el archivo a Temp.
TFile.Copy(TPath.GetDocumentsPath + PathDelim + 'archivo.mp3', TPath.GetTempPath + PathDelim + 'archivo.mp3');
 
  //el archivo temporal.
  con42 := TPath.GetTempPath + PathDelim + 'archivo.mp3';
 
    an_intent := TJIntent.Create;
    an_intent.setAction (TJIntent.JavaClass.ACTION_SEND);
    an_intent.setType (StringToJString('audio/mpeg3'));
    fileuri := JParcelable (TJNet_Uri.JavaClass.fromFile
      (TJFile.JavaClass.init (StringToJString (con42))));
    an_intent.putExtra (TJIntent.JavaClass.EXTRA_STREAM, fileuri);
    SharedActivity.startActivity (TJIntent.JavaClass.createChooser
      (an_intent, StrToJCharSequence ('Share With')));

[wolfran_hack]

un unico problemita, una vez que toco el boton de play o el de share si quiero hacerlo una vez mas me dice: "The Specified file already exists." y no me deja compartirlo?

[wolfran_hack]

Ahora cambie el Code:

delphi

var
Intent,an_intent: JIntent;
con42: String;
Uri: Jnet_Uri;
fileuri: JParcelable;
begin
//si existe: lo eliminamos
if FileExists(TPath.GetTempPath + PathDelim + 'archivo.mp3') then
TFile.Delete(TPath.GetTempPath + PathDelim + 'archivo.mp3')
else
//Copia el Archivo a Directorio Temp.
TFile.Copy(TPath.GetDocumentsPath + PathDelim + 'archivo.mp3', TPath.GetTempPath + PathDelim + 'archivo.mp3');
 
//Tomamos el Archivo de Temp.
con42 := TPath.GetTempPath + PathDelim + 'archivo.mp3';
 
an_intent := TJIntent.Create;
an_intent.setAction (TJIntent.JavaClass.ACTION_SEND);
an_intent.setType (StringToJString('audio/mpeg3'));
fileuri := JParcelable (TJNet_Uri.JavaClass.fromFile(TJFile.JavaClass.init (StringToJString (con42))));
an_intent.putExtra (TJIntent.JavaClass.EXTRA_STREAM, fileuri);
SharedActivity.startActivity (TJIntent.JavaClass.createChooser(an_intent, StrToJCharSequence ('Share With')));

y ahora no se cuelga, pero al segundo intento de envió da el error y luego al tercero si lo deja envíar.

[enecumene]

Debes primero copiar el archivo y luego borrarlo, lo estás haciendo al revés.

[wolfran_hack]

Lo que hice fue:

delphi

//Copia el Archivo a Directorio Temp. Si no se copia no se puede enviar.
TFile.Copy(TPath.GetDocumentsPath + PathDelim + 'archivo.mp3', TPath.GetTempPath + PathDelim + 'archivo.mp3');
 
//Tomamos el Archivo de Temp.
con42 := TPath.GetTempPath + PathDelim + 'archivo.mp3';

y listo!

[Agustin Ortu]

Fantastico, en algun momento estoy seguro de que esto me servira

[julian877]

esta muy buena la info estoy en proceso de crear una app para descargar musica  mp3 music download  y me ha ayudado mucho