سوال در مورد تماس ها

[SoRoUsH 300]

سلام دوستان ! خسته نباشید! دوتا سوال داشتم:

1 - چطور میتونم مثلا وقتی کسی به گوشی کاربر زنگ زد ، مثلا یه کاری انجام بشه...میدونم با سرویس ماژول...اما چطوری؟

2 - میخوام موقعی که یکی زنگ زد به کاربر یه پنجره باز بشه و دوتا دکمه باشه کاربر بتونه تماس رو قبول/رد کنه! باید از پنجره شناور استفاده کنم یا اکتیویتی؟!

<<<<<<<<<<ممنونم!>>>>>>>>>>

[SoRoUsH 300]

حالا برای جواب دادن به تماس روی باتن جواب دادن ، کتابخانه AnswerCall رو تیک بزن و کد زیر:

	Dim b As AnswerCall
b.Initialize("b")
If b.isRinging=True Then
b.AnswerPhone 'جواب بده
End If

اینارو توی سرویس بذارم؟ پس اکتیویتی به چ دردی میخوره؟! لایوت رو کجا لود کنم؟! و...

[پژمان نیکروان 6,055]

حالا برای جواب دادن به تماس روی باتن جواب دادن ، کتابخانه AnswerCall رو تیک بزن و کد زیر:

	Dim b As AnswerCall
b.Initialize("b")
If b.isRinging=True Then
b.AnswerPhone 'جواب بده
End If

اینارو توی سرویس بذارم؟ پس اکتیویتی به چ دردی میخوره؟! لایوت رو کجا لود کنم؟! و...

من گفتم تو سرویس بذاری؟

گفتم داخل رویداد باتن جواب دادنت بذار.

هرجا که میخوای به تماس جواب داده بشه همونجا دیگه.

[SoRoUsH 300]

سلام من از این روش استفاده کردم اما یه مشکل...الان من وقتی از یه جا زنگ میزنم به گوشی که این برنامه روش نصبه ، صفحه رد/جواب تماس خود گوشی باز میشه  بعدش تازه وقتی که رد کردم تماسو یا اینکه حرف زدم تموم شد و از اون صفحه خارح شد ، اکتیویتی من باز میشه:|چیکار باید کنم؟!

[پژمان نیکروان 6,055]

سلام عجب سوالی...

 

سوال دوم رو جواب میدم چون فرقی با سوال1 نداره.

 

یه سرویس بساز و کتابخانه phone رو تیک بزن.

تعریف دو متغیر:

Dim tamas As PhoneEvents
Dim pi As PhoneId

فعال سازی تو رویداد سرویس کریت:

tamas.InitializeWithPhoneState("tamas",pi)

ایجاد رویداد زیر:

Sub tamas_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
If State="RINGING" Then 'گوشی درحال زنگ خوردنه
	اکتیویتی که توش دکمه ی تماس و رد هست استارت بشه
End If
End Sub

که واست مشخص کردم اینجا باید اکتیویتی مورد نظر رو اجرا کنی.

 

حالا برای جواب دادن به تماس روی باتن جواب دادن ، کتابخانه AnswerCall رو تیک بزن و کد زیر:

	Dim b As AnswerCall
b.Initialize("b")
If b.isRinging=True Then
b.AnswerPhone 'جواب بده
End If

البته اگه اذیت کرد ، متغیرش رو توی پراسز گلوبال تعریف کن و Initialize رو توی سرویس کریت انجام بده.

 

و برای قطع کردن تماس:

   Dim r As Reflector
   r.Target = r.GetContext
   Dim TelephonyManager, TelephonyInterface As Object
   TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
   r.Target = TelephonyManager
   TelephonyInterface = r.RunMethod("getITelephony")
   r.Target = TelephonyInterface
   r.RunMethod("endCall")

کتابخانه رفلکشین یادت نره.

 

و همچنین این دسترسی رو به مانیفیست اضافه کن:

AddPermission(android.permission.CALL_PHONE)