Delphi XE 5 de uzun mesaj atma kodunu yazıyorum
********************Uses*******************************************
Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, Androidapi.JNI.Telephony
//Ben bu usesları java için kullanıyorum hangisi sadece bunun için bilmiyorum; Başka java kodlarıda var projemde o yuzden hepsini yazdım
Çalışması için proje menüsündeki options seçeneğinde uses permision bölümünden Send SMS <True> olmalı (Zaten biliyorsunuzdur ya ben yazdım gene
****************** Kod *********************************************
Procedure LongSMS(Phone,Message:String);
var
smsManager: JSmsManager;
smsTo: JString;
Parts:JArrayList;
begin
smsManager:= TJSmsManager.JavaClass.getDefault;
smsTo:= StringToJString(Phone);
parts:= smsManager.divideMessage(StringToJString(Message));
smsManager.sendMultipartTextMessage(smsTo, nil,Parts, nil, nil);
End;
***************************************************************
İnşallah Birinin İşine yarar
