Compartir Archivo o Share File con WhatsApp en Android Delphi X Seattle

17 marzo, 2016 | NochesDeCode | Deja un comentario

Con el siguiente codigo vamos a poder compartir archivos directo a WhatsApp bajo Delphi X Seattle: 1.- Los uses:

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,

{$IFDEF ANDROID}
  FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils,

  Androidapi.JNI.Telephony,
  Androidapi.Helpers,
{$ENDIF ANDROID}

  {$IFDEF Android}
   Androidapi.JNI.Os, Androidapi.JNI.Webkit,
  {$ENDIF}

  FMX.StdCtrls, FMX.Platform.Android, FMX.Objects,

  System.Actions, FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions,
  FMX.Controls.Presentation;

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,

{$IFDEF ANDROID}

FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils,

Androidapi.JNI.Telephony,

Androidapi.Helpers,

{$ENDIF ANDROID}

{$IFDEF Android}

Androidapi.JNI.Os, Androidapi.JNI.Webkit,

{$ENDIF}

FMX.StdCtrls, FMX.Platform.Android, FMX.Objects,

System.Actions, FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions,

FMX.Controls.Presentation;

implementation

{$R *.fmx}

uses
System.iOUtils;

implementation

{$R *.fmx}

uses

System.iOUtils;

2.- Ejemplo de Boton para Compartir / Share:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 an_intent: JIntent;
 file42: String;
 Uri: Jnet_Uri;
 fileuri: JParcelable;

begin

// Si el archivo existe lo eliminamos para no tener errores.
if FileExists(TPath.GetTempPath + PathDelim + 'archivo.mp3') then
begin
TFile.Delete(TPath.GetTempPath + PathDelim + 'archivo.mp3')
end
else
begin
  //nada..
end;

//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.
file42 := TPath.GetTempPath + PathDelim + 'archivo.mp3';

an_intent := TJIntent.Create;
an_intent.setAction (TJIntent.JavaClass.ACTION_SEND);
an_intent.setType (StringToJString('audio/mpeg3')); // Verificar el Tipo de Archivo.
fileuri := JParcelable (TJNet_Uri.JavaClass.fromFile(TJFile.JavaClass.init (StringToJString (file))));
an_intent.putExtra (TJIntent.JavaClass.EXTRA_STREAM, fileuri); //EXTRA_STREAM cambia segun el tipo de archivo.
SharedActivity.startActivity (TJIntent.JavaClass.createChooser(an_intent, StrToJCharSequence ('Share With')));

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

an_intent: JIntent;

file42: String;

Uri: Jnet_Uri;

fileuri: JParcelable;

begin

// Si el archivo existe lo eliminamos para no tener errores.

if FileExists(TPath.GetTempPath + PathDelim + 'archivo.mp3') then

begin

TFile.Delete(TPath.GetTempPath + PathDelim + 'archivo.mp3')

end

else

begin

//nada..

end;

//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.

file42 := TPath.GetTempPath + PathDelim + 'archivo.mp3';

an_intent := TJIntent.Create;

an_intent.setAction (TJIntent.JavaClass.ACTION_SEND);

an_intent.setType (StringToJString('audio/mpeg3')); // Verificar el Tipo de Archivo.

fileuri := JParcelable (TJNet_Uri.JavaClass.fromFile(TJFile.JavaClass.init (StringToJString (file))));

an_intent.putExtra (TJIntent.JavaClass.EXTRA_STREAM, fileuri); //EXTRA_STREAM cambia segun el tipo de archivo.

SharedActivity.startActivity (TJIntent.JavaClass.createChooser(an_intent, StrToJCharSequence ('Share With')));

end;

3.- Bonus: Si queremos que solo se comparta en WhatsApp, debemos fijar el Paquete:

an_intent.setPackage(StringToJString('com.whatsapp'));

1	an_intent.setPackage(StringToJString('com.whatsapp'));

Compartir Archivo o Share en Android Delphi X Seattle

17 marzo, 2016 | NochesDeCode | Deja un comentario

Como muchos de nosotros que utilizamos Delphi para realizar aplicaciones multiplataforma, sabemos bien que crear una aplicación a medida para android puede doler más que programar en el entorno de Android Studio, ya que actualmente hay muchas versiones de Delphi (XE5, XE6, XE7, XE8 y X Seattle) y muy poca información sobre ciertas características, en este… Read More

Personalizar el color del navegador Chrome en Android

7 septiembre, 2015 | NochesDeCode | Deja un comentario

A partir de Android 5.0 (Lollipop) el navegador Chrome se integra más con el sistema operativo combinando las pestañas y aplicaciones en la vista de aplicaciones recientes, para que de un vistazo veamos que aplicaciones y páginas webs tenemos abiertas. Hoy hemos conocido que esta integración con Android 5.0 también permite a las páginas webs… Read More

Plataforma LiveCode de Programación para Android

31 diciembre, 2012 | NochesDeCode | Deja un comentario

Imagina una plataforma en la que puedas programar tanto para Android, iOS, Windows, Linux, iPhone, iPad, Web y para Servidores con una sola plataforma de trabajo. Si ya lo imaginaste, mira si se asemeja a LiveCode. Digamos que eres un desarrollador Web y un cliente que pidió hacer una aplicación “x”, la diseñaste, la trabajaste… Read More

Plataforma App Inventor de Programación para Android

31 diciembre, 2012 | NochesDeCode | Deja un comentario

¿No quieres Java, ni C#, ni C, ni .NET, ni VisualBasic, en resumidas cuentas, ningún programa de desarrollo tradicional? ¿Eres diseñador, contador, chef, médico, estudiante, en fin cualquier persona que tiene una idea de aplicación para Android sin tener necesariamente un background técnico? Perfecto, con App Inventor es para ti. Esta plataforma de desarrollo está… Read More

Plataforma Mono de Programación para Android

31 diciembre, 2012 | NochesDeCode | Deja un comentario

Otro de los lenguajes que Microsoft desarrollo para hacer aplicaciones fue C# y .NET, las cuales son muy usados en diferentes ambientes, por lo que no podría faltar que estos lenguajes tan comunes y opuestos a Java llegaran a Android. Si tu ambiente de programación es Visual Studio lo único que debes instalar es el… Read More

Platarforma Basic4Android de programación para Android

31 diciembre, 2012 | NochesDeCode | Deja un comentario

Basic4Android es una plataforma de programación para aplicaciones Android cuyo lenguaje base de programación es VisualBasic, el eterno rival de Java, ese lenguaje que está orientado a aquellas personas que empezamos en el mundo de la programación de una manera más gráfica y no tan abstracta. No es el mismo lenguaje de Microsoft, pero su… Read More

Uso de IF en EditText en Android

30 diciembre, 2012 | NochesDeCode | Deja un comentario

Llega el caso en el que necesitamos comparar el contenido de una caja de texto o un EditText y para ello la única opción es utilizar un IF por ejemplo:

	TextView TEXT = (TextView) findViewById(R.id.textView2);
	EditText cuadroTexto = (EditText) findViewById(R.id.editText1);
    
	if(cuadroTexto.getText().toString().equals("CONTENIDO")){
	TEXT.setText(" La Caja de Texto Posee un CONTENIDO");
		}else{
           	TEXT.setText(" La Caja de Texto No Posee ningun CONTENIDO");
           	}

TextView TEXT = (TextView) findViewById(R.id.textView2);

EditText cuadroTexto = (EditText) findViewById(R.id.editText1);

if(cuadroTexto.getText().toString().equals("CONTENIDO")){

TEXT.setText(" La Caja de Texto Posee un CONTENIDO");

}else{

TEXT.setText(" La Caja de Texto No Posee ningun CONTENIDO");

}

De esta manera podemos realizar un IF a nuestro EditText, en el caso que este tenga un la palabra “CONTENIDO” este mostrara en un… Read More

Forzar Ocultación de Teclado Virtual en Android

30 diciembre, 2012 | NochesDeCode | Deja un comentario

Teclado Virtual (Android) En ocasiones cuando implementamos una Activity si hay cajas de texto y estas reciben el foco, se nos despliega el teclado virtual, impidiendo mostrar el contenido de la pantalla diseñada, una solución es obligar a esconder el teclado, para ello vamos a utilizar una función y cuando esta este presente nunca se… Read More

Error de SDK “Unable to resolve target ‘android-X’ en Android

26 noviembre, 2012 | NochesDeCode | Deja un comentario

Suele pasar cuando trabajamos con Android que nos encontramos con este error o similares:

Unable to resolve target ';android-1';
Unable to resolve target ';android-2';
Unable to resolve target ';android-3';
Unable to resolve target ';android-4';
Unable to resolve target ';android-5';
Unable to resolve target ';android-6';
Unable to resolve target ';android-7';
Unable to resolve target ';android-8';
Unable to resolve target ';android-9';
Unable to resolve target ';android-10';
Unable to resolve target ';android-11';
Unable to resolve target ';android-12';
Unable to resolve target ';android-13';
Unable to resolve target ';android-14';
Unable to resolve target ';android-15';
Unable to resolve target ';android-16';
Unable to resolve target ';android-17';

Unable to resolve target ';android-1';

Unable to resolve target ';android-2';

Unable to resolve target ';android-3';

Unable to resolve target ';android-4';

Unable to resolve target ';android-5';

Unable to resolve target ';android-6';

Unable to resolve target ';android-7';

Unable to resolve target ';android-8';

Unable to resolve target ';android-9';

Unable to resolve target ';android-10';

Unable to resolve target ';android-11';

Unable to resolve target ';android-12';

Unable to resolve target ';android-13';

Unable to resolve target ';android-14';

Unable to resolve target ';android-15';

Unable to resolve target ';android-16';

Unable to resolve target ';android-17';

Esto simplemente nos indica que no tenemos la versión indicada del SDK de Android para manejar esta aplicación, por ende lo mas recomendado es bajar la SDK correspondiente para no tener problemas de compatibilidad y poder trabajar sin problemas, la… Read More

Android

Compartir Archivo o Share File con WhatsApp en Android Delphi X Seattle

Compartir Archivo o Share en Android Delphi X Seattle

Personalizar el color del navegador Chrome en Android

Plataforma LiveCode de Programación para Android

Plataforma App Inventor de Programación para Android

Plataforma Mono de Programación para Android

Platarforma Basic4Android de programación para Android

Uso de IF en EditText en Android

Forzar Ocultación de Teclado Virtual en Android

Error de SDK “Unable to resolve target ‘android-X’ en Android

Redes Sociales

Online!

Posts Recientes

Comentarios Recientes

Archivos del Sitio

Categorias

Suscríbete por correo electrónico