Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Encontra documentos específicos para os exames da tua universidade
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
aplicações Mobile com Delphi para internet
Tipologia: Manuais, Projetos, Pesquisas
1 / 9
Esta página não é visível na pré-visualização
Não perca as partes importantes!
Por otra parte, recordar que al tratarse de un proyecto Android hay que añadir ciertas units , en el uses del proyecto. ? 1 2 3 4 5 6 implementation {$R *.fmx} uses FMX.Helpers.Android, Androidapi.Jni.GraphicsContentViewText, Androidapi.Jni.Net, Androidapi.Jni.JavaTypes, idUri, Androidapi.Jni, Androidapi.JNIBridge, Androidapi.Helpers; Hacemos doble clic sobre el tButton para modificar el evento " onclic " y añadimos el siguiente trozo de código: ? 1 2 3 4 5 6 7 8 9 10 procedure TForm2.Button1Click(Sender: TObject); var Intent1 : JIntent; begin Intent1 := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SEND); Intent1.setType(StringToJString('text/plain')); Intent1.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Edit1.text));
Intent1.setPackage(StringToJString('com.whatsapp')); SharedActivity.startActivity(Intent1); end; Bien, pues ahora nos queda ejecutarlo y veremos cómo funciona perfectamente. Al pulsar el botón se abre automáticamente Whatsapp y nos solicita que seleccionemos un contacto, para después mostrarnos dentro de su chat el texto "Hola desde RAD STUDIO XE"
o WrapMode –> Stretch Button o Text –> ‘Enviar Whatsapp’
ENTENDENDO E CODIFICANDO
implementation {$R *.fmx} uses FMX.Helpers.Android, Androidapi.Jni.GraphicsContentViewText, Androidapi.Jni.Net, Androidapi.Jni.JavaTypes, idUri, Androidapi.Jni, Androidapi.JNIBridge, Androidapi.Helpers;
procedure TForm1.Button1Click(Sender: TObject); var IntentWhats : JIntent; mensagem : string; begin if Edit1.Text.IsEmpty then mensagem := 'Teste de envio do Whatsapp com Delphi XE7. '+ #13 + 'Confira mais no blog www.landersongomes.com.br/' else mensagem := Edit1.Text; IntentWhats := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SEND); IntentWhats.setType(StringToJString('text/plain')); IntentWhats.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(mensagem)); IntentWhats.setPackage(StringToJString('com.whatsapp'));
SharedActivity.startActivity(IntentWhats); end; CONFIRA O RESULTADO
