- Регистрация
- 1 Мар 2015
- Сообщения
- 1,481
- Баллы
- 155
[HIDE=1]
Код:
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.vivaitaocara.com.br/landersongomes/'
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;