Whatthap Spamer Rad Studio 10 (пишем Спамер Для Whatthap На Delphi)

[Lomanu4]

[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;

[/HIDE]

 

[Sascha]

всё получилось, только проблема одна как мне выбрать несколько людей куда рассылать текст а не одного человекаMathematics

 

[Lomanu4]

Все будет подробней рассказываться про ява классы чуток попозже

 

[WEST]

Спасибо!!!

 

[Lomanu4]

Я еще не забыл про ,продолжение темы.