Arayan numarayı görmek

[beklentili]

Merhaba Android de uygulama açıkken arayan numarayı öğrenebilir miyiz?

[beklentili]

Java için http://stackoverflow.com/questions/1853 ... in-android bu kodları buldum ama nasıl delphiye çevirebilirim?

[barisatalay]

Eğer broadcast receiver yayını yapılıyor ise alamanız için daha önceden bir örnek paylaşmıştım

http://brsatalay.blogspot.com.tr/2014/1 ... dcast.html

[beklentili]

Hocam verdiğiniz örnek üzerinde baya bir oynadım ama istediğim olmadı. En son çağrı durumuna göre değer döndermek mevzusunu öğrendim. Mesela çağrı yoksa 0 çağrı varsa 1 çağrı cevaplanmışsa 2 şeklinde ama mevcut gelen aramanın numarasını bir türlü görüntüleyemedim.

[barisatalay]

Aşağıdaki linkten göreceğiniz gibi bir broadcast receiver içerisnde TelephonyManager erişilerek yakalayabiliyorsunuz.

http://stackoverflow.com/questions/1315 ... oming-call

[beklentili]

Hocam aşağıdaki komutlar ile telefonun IMEI numarasını alabiliyorum. Ancak bu komutu gelen çağrının numarasını alacak şekilde dönüştüremedim. Ne yaptıysam olmadı. Hata veriyor.

Kod: Tümünü seç

var
obj: JObject;
tm: JTelephonyManager;
identifier: String;
begin
obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
if obj <> nil then
begin
tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
if tm <> nil then
identifier := JStringToString(tm.getDeviceId);
end;
if identifier = '' then
identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,TJSettings_Secure.JavaClass.ANDROID_ID));
ShowMessage('IMEI :' + #13 + identifier);
end;

[barisatalay]

Sırf kafama takıldı diye başladım bi component hazırlıyorum bu olay için bakalım nasıl sonuçlancak duruma göre buraya yazarım

[beklentili]

Hocam hakkınızı nasıl öderim bilmem. Çok teşekkür ediyorum ilginiz için.

[barisatalay]

Selamlar projeyi bitirdim. XE7 üzerinde test ettim sorunsuz
Aşağıdaki linkten .apk dosyasını indirip test edebilirsin.

Mesai bittiği için pazartesiye kadar bilgisayar başında olamayacağım. O sebeble pazartesi projeyi ve içerisinde XE7-XE6-XE5 örnekleri ile kendi bloğumda yayınlarım diye düşünüyorum

http://s3.dosya.tc/server28/4WAw4q/XE7Example.rar.html

[barisatalay]

@beklentili

Componenti ve senin istediğin olayı bir başlık olarak bloğumda paylaştım aşağıdaki linkten inceleyebilirsin. Örnek proje demo klasörü içerisinde

http://brsatalay.blogspot.com.tr/2014/1 ... eiver.html

[beklentili]

Barış hocam çalışmanız için çok teşekkür ediyorum. Ne kadar makbule geçti anlatamam.

[debug]

merhaba

XE6 kullanıyorum.

BroadcastReceiver1Receive prosedürün içinde
--------------------------------------------------------------------------------------
Temp := JStringToString(intent.getStringExtra(StringToJString('incoming_number')));
if Temp.Length > 0 then
begin
Toast('In coming call number: '+Temp,TToastLength.ShortToast);
end
else
Toast('No Number..',TToastLength.ShortToast);
---------------------------------------------------------------
toast yerine yeni bir form(pencere) açtırmayı nasıl yapabiliriz. direkt form oluşturup denedim ama olmadı.
zannedersem buraya toast gibi java referanslı mudahale edebiliyoruz.

asıl yapmak istediğim kısaca gelen/giden arama(çağrı) sonlandırıldığında kullanıcıya belli kriterlere göre bir form gösterebilmek.

teşekkür ederim.

[fesiharslan]

Merhaba;

toast yerine yeni bir form(pencere) açtırmayı nasıl yapabiliriz. direkt form oluşturup denedim ama olmadı.

Form oluşturma ve gösterme kod kısmını paylaşma imkanınız var mı? Hata oluşuyorsa çalışma zamanında mı, derleme anında mı oluyor? Oluşan bir hata varsa, hatayı paylaşın, yardımcı olmaya çalışalım.

[debug]

Merhaba;

toast yerine yeni bir form(pencere) açtırmayı nasıl yapabiliriz. direkt form oluşturup denedim ama olmadı.

Form oluşturma ve gösterme kod kısmını paylaşma imkanınız var mı? Hata oluşuyorsa çalışma zamanında mı, derleme anında mı oluyor? Oluşan bir hata varsa, hatayı paylaşın, yardımcı olmaya çalışalım.

sizin yazdığınız BroadcastReceiver1Receive procedurunun içine yazdım.

Temp := JStringToString(intent.getStringExtra(StringToJString('incoming_number')));
if Temp.Length > 0 then
begin
//Toast('In coming call number: '+Temp,TToastLength.ShortToast);
Frm1 := TFrm1.Create(Application); //self olarakta denedim //StayOnTop olarak ayarlı
Frm1.Show;

end
else
begin
//Toast('No Number..',TToastLength.ShortToast);
Frm1 := TFrm1.Create(Application); //self olarakta denedim //StayOnTop olarak ayarlı
Frm1.Show;
end;

hiçbir hata vermiyor hiç bir işlem yapmıyor

[fesiharslan]

Merhaba;
Muhtemelen if Temp.Length > 0 then satırında beklenen Temp değeri sıfırdan büyük değil. Bundan dolayı form oluşturma kodlarınız çalışmıyordur.
Kodları debug (gülümsemenin nedeni nickinizle kullandığım terimin aynı olması) ederek işlem adımlarının sağlamasını yapın.