مشکل عدم دریافت پیامک چند خطی

[2430023 28]

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

بنده با استفاده از کتابخانه phone کدی نوشتم که پیامک دریافتی رو در لیبل و یا ادیت تکس ظاهر کنه ولی متاسفانه فقط بخش اخرش رو نشون میده

کد رو ضمیمه میکنم لطفا اساتید مشکل رو حل کنن

 

ضمنا کد به شکل ذیل هستش

در سرویس مدل

Sub s_MessageReceived (From As String, Body As String) As Boolean
	Main.massege = Body
End Sub 

در اکتیویتی

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	StartService("test")
	tim.Initialize("tim",1000)
	tim.Enabled = True
End Sub

Sub tim_Tick
	lbl.Text = massege
End Sub

sms test.rar

[مهدی ایزدی 9,203]

شما بیایید توی کدی که دوستان بهتون دادن به جای Label1.Text=text بنویسید Label1.Text=Label1.Text & CRLF& text

[mobah 132]

در در 1395/04/13, 10:31:10، مهدی ایزدی گفته است :

شما بیایید توی کدی که دوستان بهتون دادن به جای Label1.Text=text بنویسید Label1.Text=Label1.Text & CRLF& text

عذر خواهی میکنم امیدوارم هنوز این تایپیک بروز باشه.

نمیدونستم چطوری میشه یک پیام رو کامل ذخیره کرد  خیلی هم جستجو کردم تا این تایپیک رودیدم.

در در 1395/04/13, 02:32:27، 2430023 گفته است :

مشکل اینه که اگه پیامک متنی تک بخشی باشه کامل میاد و ربطی به تعداد خطش هم نداره

ولی اگه پیامک دریافتی خودش چندتا پیامک باشه (به اصطلاع دوتا یا سه تا) اونموقع برنامه میاد و اخرین بخش مسج که مثلا میشه پیامک سوم رو نشون میده و بخش های ابتدایی رو حذف میکنه

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

فرمایشات شما رو انجام دادم ولی فقط قسمت اول SMS   میاد.

 

 

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

 

[2430023 28]

Sub Process_Globals
	Dim massege As String
End Sub

Sub Globals
	Private lblSMS As Label
End Sub

Sub settext(text As String)
	lblSMS.text=lblSMS.text & text
End Sub

این کد مال بخشیه که متن رو نمایش میده

 

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

 

کدی که خود بنده ازش جواب گرفتم

[محمدرضا شاهپیری 5,499]

به این صورت استفاده کن عزیز

اول متد زیر رو به اکتیویتی اضافه کن

Sub settext(text As String)
	Label1.Text=text
End Sub

حالا تو سرویس متدت رو تغییر بده به شکل زیر

Sub s_MessageReceived (From As String, Body As String) As Boolean
	CallSubDelayed2(Main,"settext",Body)
End Sub 

به جای Main هم اسم اکتیوتی رو بنویس دیگه

[mobah 132]

دست و پنجت درد نکنه 

در 3 ساعت قبل، 2430023 گفته است :

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

منم بلافاصله این دستور رو که لطف کرده بودید ارسال کردم.  عالی بود.

 

تشکر واقعا ممنونم

[2430023 28]

به این صورت استفاده کن عزیز

اول متد زیر رو به اکتیویتی اضافه کن

Sub settext(text As String)
	Label1.Text=text
End Sub

حالا تو سرویس متدت رو تغییر بده به شکل زیر

Sub s_MessageReceived (From As String, Body As String) As Boolean
	CallSubDelayed2(Main,"settext",Body)
End Sub 

به جای Main هم اسم اکتیوتی رو بنویس دیگه

دوست عزیز ممنون از روشی که اعلام کردی

اما متاسفانه مشکل حل نشد

یعنی باید یه جور دیگه مطرح میکردم

 

مشکل اینه که اگه پیامک متنی تک بخشی باشه کامل میاد و ربطی به تعداد خطش هم نداره

ولی اگه پیامک دریافتی خودش چندتا پیامک باشه (به اصطلاع دوتا یا سه تا) اونموقع برنامه میاد و اخرین بخش مسج که مثلا میشه پیامک سوم رو نشون میده و بخش های ابتدایی رو حذف میکنه

 

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

[محمدرضا شاهپیری 5,499]

فکر کنم دلیلش اینه که پیامها دونه دونه گرفته میشه و درنهایت با هم ترکیب میشه پس وقتی یه اس ام اس بیشتر از یکی باشه اس ام اس آخری فقط نشون داده میشه

بهتره واسه این کارها از brodcast استفاده بشه 

[2430023 28]

فکر کنم دلیلش اینه که پیامها دونه دونه گرفته میشه و درنهایت با هم ترکیب میشه پس وقتی یه اس ام اس بیشتر از یکی باشه اس ام اس آخری فقط نشون داده میشه

بهتره واسه این کارها از brodcast استفاده بشه 

 

سلام مجدد

دوست عزیز ایا کدی داری واسه این روش

در کل اگه امکان داره کمی بیشتر توضیح بدید ممنون میشم