ذخیره شماره ارسال کننده پیامک در دیتابیس

[dostmobile 329]

سلام دوستان وقت بخیر

با استفاده از سرویس میام متن پیامک رو میگیرم و میخوام هر پیامکی که فرستادن محتواش سلام بود شماره ارسال کننده  بره تو دیتابیس ذخیره شه

و در دیتابیس یه رکورد  جدید اضافه بشه

این سرویس 

Sub Process_Globals
	Dim mtn As String = "سلام"
Dim si As SmsInterceptor

End Sub
Sub Service_Create
si.Initialize("si")
End Sub

Sub Service_Start (StartingIntent As Intent)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

Sub Service_Destroy

End Sub


Sub si_MessageReceived (From As String, Body As String) As Boolean

    If mtn = "سلام" Then
    ToastMessageShow("دریافت شد",True)
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

ممنون میشم راهنمایی کنید

فقط شماره رو میخوام ذخیره کنه

فیلدهای دیتابیس هم 

Id و Number هستن

[shahab.es 5,429]

سلام دوستم

یه مشکل اول دیدم

بالا mtn ر. مساوری سلام قرار دادید، پایین چک کردید اگه مثدارش سلام بود، فلان کار انجام شه، پس همیشه انجام میشه، چون شما گفتید مقدارش سلام باشه دیگه

کدهای زیر رو بررسی کنید

Sub Globals

Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Activity_Create(FirstTime As Boolean)


sql.Initialize(File.DirInternal,"db.db",True)

End Sub

Sub si_MessageReceived (From As String, Body As String) As Boolean

    If Body = "سلام" Then
    Dim id As Int = sql.ExecQuerySingleResult("SELECT max(id) FROM tbl")
	id = id + 1
	sql.ExecNonQuery("INSERT INTO tbl (id,number) VALUES ('"&id&"','"&From&"')")
	
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

smsinterceptor رو هم فک کنم اینطوری اینیشیالایز میکردیم بهتر میبود...

si.Initialize2("si",999)

تست بزنید در کل

[dostmobile 329]

ممنون اما وقتی پیام میاد با متن مورد نظر میزنه برنامه متوقف شد

این کدهام تو اکتیویتی

Sub Process_Globals
	Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Globals


End Sub

Sub Activity_Create(FirstTime As Boolean)

'sql.Initialize(File.DirInternal,"test.db",True)
If File.Exists(File.DirInternal,"test.db") = False Then 
File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
sql.Initialize(File.DirInternal,"test.db",True)
'cur= sql.ExecQuery ("SELECT * FROM tbl")
StartService(Daryaft)

End Sub

و این هم کدهای سرویس

#Region  Service Attributes 
	#StartAtBoot: true
#End Region

Sub Process_Globals
	Dim mtn As String 
Dim si As SmsInterceptor
Dim sql As SQL
Dim cur As Cursor

End Sub
Sub Service_Create
si.Initialize2("si",999)
End Sub

Sub Service_Start (StartingIntent As Intent)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

Sub Service_Destroy

End Sub





Sub si_MessageReceived (From As String, Body As String) As Boolean

    If Body = "سلام" Then
    Dim id As Int = sql.ExecQuerySingleResult("SELECT max(id) FROM tbl")
	id = id + 1
	sql.ExecNonQuery("INSERT INTO tbl (id,number) VALUES ('"&id&"','"&From&"')")
	ToastMessageShow("پیامک دریافت شد ",False)
	
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

 نمیدونم ایراد از کجاس

ممنون میشم راهنمایی کنید

[shahab.es 5,429]

توی لاگتون چیزی نیست؟؟؟

کداتون درست به نظر میرسه

کدای اولیه تون کار میکرد؟

چون من Sql رو توی یه برنامه مشابه راه اندازی کرده بودم...

مشکلی نداره Sql

....

[dostmobile 329]

همون اول میزد پیامک دریافت شد

که شما گفتین متن رو تغییر بدم

این پروژه اگه ممکنه یه نگاه کنید

http://s6.picofile.com/file/8234548942/daryaft_sms.rar.html

[dostmobile 329]

اساتید اگه یه نگاه بکنید ممنون میشم

نمیدونم مشکلم کجاشه

 

http://s6.picofile.com/file/8234548942/daryaft_sms.rar.html