Tidak ada keraguan bahwa aplikasi instant messaging Whatsapp tersentak besar untuk komunikasi dengan perangkat mobile, dalam posting ini ...
Sebagai acuan kita akan menggunakan FAQ Whatsapp, ada penjelasan tentang bagaimana membuat menggunakan Android di Jawa, pekerjaan kami di sini hanya di "konversi" ke Delphi. Biarkan proyek, pergi ke Delphi XE7. Delphi seperti yang kita selalu memiliki
Di Delphi XE7 memulai sebuah proyek baru Proyek Multi-Perangkat (Seperti yang telah kita lakukan prosedur ini beberapa kali di sini di blog, saya menganggap bahwa kita dapat melewatkan bagian itu). Kami akan memilih target platform Android oleh Project Manager, menikmati dan juga memilih perangkat target (opsi Target) di mana untuk menyebarkan setelah kompilasi akan dilakukan. Lihat gambar di bawah ini:
Membangun layar aplikasi
Mari kita membangun antarmuka yang sederhana, itu hanya akan memiliki komponen dan sifat seperti yang tercantum di bawah ini:
[Edit1
Align -> Top
Text -> "
ReturnKeyType -> Selesai
Image1
MultiResBitmap -> [Sebuah gambar pilihan Anda]
WrapMode -> stretch
Button1
Text -> 'Kirim Whatsapp']
Seperti yang saya sebutkan sesuatu yang sangat sederhana, hanya untuk tujuan pengajaran.
Pemahaman dan encoding
Pada dasarnya kita EDIT1 dalam teks yang akan dikirim ke Whatsapp sehingga ketika kita memilih kontak itu pesan dikirim. Sekarang bahwa kita memiliki konsep yang kita encode.
Ingat bahwa kita harus sekali lagi memanfaatkan Namespaces atau Unit untuk penggunaan fitur Android di Delphi, untuk seperti di bagian implementasi masukkan:
implementation
[{$R *.fmx}
uses
FMX.Helpers.Android, Androidapi.Jni.GraphicsContentViewText,
Androidapi.Jni.Net, Androidapi.Jni.JavaTypes, idUri, Androidapi.Jni,
Androidapi.JNIBridge, Androidapi.Helpers;]
Kemudian, di OnClick dari Button1 masukkan kode di bawah ini:
[procedure TForm1.Button1Click(Sender: TObject);
var
IntentWhats : JIntent;
mensagem : string;
begin
if Edit1.Text.IsEmpty then
mensagem := Whatsapp mengirimkan tes dengan Delphi XE7. '+ # 13 +
' Baca lebih lanjut di 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;]
Memeriksa hasil
Yah hanya mengkompilasi dan tes, periksa gambar di bawah itu bekerja dengan sempurna. Partai tidak mendapatkan keberhasilan lebih lanjut adalah untuk memilih kontak tersebut sebelumnya, tetapi akan terus mencoba dan mengelola untuk mendaki update.
COMMENTS