ارسال اس ام اس طولانی PDU

[shbhm]

سلام

من با کد زیر فقط میتونم یک پیام ( 70 کاراکتری فارسی و 160 کاراکتر انگلیسی ) و بیش از یک پیام نمیتونم ارسال کنم.

در ضمن من با مودم USB GSM پیام رو ارسال میکنم.



Cursor.Current = Cursors.WaitCursor Try Dim pdu As SmsSubmitPdu Dim alert As Boolean = CheckBox1.Checked Dim unicode As Boolean = CheckBox2.Checked If Not (alert OrElse [unicode]) Then pdu = New SmsSubmitPdu(TextBox2.Text, TextBox1.Text, "") Else Dim dcs As Byte If Not (alert OrElse Not [unicode]) Then dcs = DataCodingScheme.NoClass_16Bit ElseIf Not (Not alert OrElse [unicode]) Then dcs = DataCodingScheme.Class0_7Bit ElseIf (alert AndAlso [unicode]) Then dcs = DataCodingScheme.Class0_16Bit Else dcs = DataCodingScheme.NoClass_7Bit End If pdu = New SmsSubmitPdu(TextBox2.Text, TextBox1.Text, "", dcs) End If pdu.RequestStatusReport = True Dim times As Integer = If(CheckBox3.Checked, Integer.Parse(TextBox3.Text), 1) Dim i As Integer For i = 0 To times - 1 CommSetting.comm.SendMessage(pdu) Me.Output("Message {0} of {1} sent.", New Object() {(i + 1), times}) Me.Output("") Next i Catch ex As Exception MessageBox.Show(ex.Message) End Try Cursor.Current = Cursors.Default

[ravegoat]

با سلام!
عضويت تون رو در SSA تبريك مي گم:party:

بنده چون يكم سرم شلوغه متاسفانه وقت نكردم سورس پيوست شده تون رو نگاه كنم ولي گمان مي كنم مشكل از اين جا باشه:
وقتي طول پيامك از 160 كاركتر در حالت انگليسي (يا 70 كاركتر در حالت يوني كد) بالا تر بره در كدينگ PDU حتما" بايد يه هدر موسوم به UDH به بدنه ي پيامك اضافه بشه و كدينگ براساس اون صورت بگيره كه غالبا" در كدينگ PDU اين نكته فراموش ميشه و برنامه قادر نخواهد بود كه پيامك چندتايي ارسال كنه.

پيشنهاد مي كنم PDU كدتون رو براساس كد هاي پيوست شده چك بفرماييد.

موفق باشيد
آرمين

[shbhm]

پاسخ: ارسال اس ام اس طولانی PDU

با سلام!
عضويت تون رو در SSA تبريك مي گم:party:

بنده چون يكم سرم شلوغه متاسفانه وقت نكردم سورس پيوست شده تون رو نگاه كنم ولي گمان مي كنم مشكل از اين جا باشه:
وقتي طول پيامك از 160 كاركتر در حالت انگليسي (يا 70 كاركتر در حالت يوني كد) بالا تر بره در كدينگ PDU حتما" بايد يه هدر موسوم به UDH به بدنه ي پيامك اضافه بشه و كدينگ براساس اون صورت بگيره كه غالبا" در كدينگ PDU اين نكته فراموش ميشه و برنامه قادر نخواهد بود كه پيامك چندتايي ارسال كنه.

پيشنهاد مي كنم PDU كدتون رو براساس كد هاي پيوست شده چك بفرماييد.

موفق باشيد
آرمين



سلام

ممنون از پاسختون میشه یه مثال با vb.net از فایل پیوست پست اول برام بزنید

با تشکر

[ravegoat]

سلام

ممنون از پاسختون میشه یه مثال با vb.net از فایل پیوست پست اول برام بزنید

با تشکر[/INDENT][/COLOR][/RIGHT]

با سلام مجدد و مجددا" عذر خواهي بابت تاخير...

متاسفانه سورس VB.NET شو ندارم ولي اگر پيدا كردم حتما" در اختيارتون مي ذارم.

موفق باشيد
آرمين

[azad222]

با سلام!
عضويت تون رو در SSA تبريك مي گم:party:

بنده چون يكم سرم شلوغه متاسفانه وقت نكردم سورس پيوست شده تون رو نگاه كنم ولي گمان مي كنم مشكل از اين جا باشه:
وقتي طول پيامك از 160 كاركتر در حالت انگليسي (يا 70 كاركتر در حالت يوني كد) بالا تر بره در كدينگ PDU حتما" بايد يه هدر موسوم به UDH به بدنه ي پيامك اضافه بشه و كدينگ براساس اون صورت بگيره كه غالبا" در كدينگ PDU اين نكته فراموش ميشه و برنامه قادر نخواهد بود كه پيامك چندتايي ارسال كنه.

پيشنهاد مي كنم PDU كدتون رو براساس كد هاي پيوست شده چك بفرماييد.

موفق باشيد
آرمين

سلام
این سورسی که اینجا گذاشتید خراب شده، امکان داره دوباره آپلودش کنید؟

[ravegoat]

سلام
این سورسی که اینجا گذاشتید خراب شده، امکان داره دوباره آپلودش کنید؟
با سلام،

به همون سورس دسترسی ندارم ولی در لینک زیر یه نمونه کدش به زبان سی شارپ قرار گرفته:
GitHub - PavelBansky/SharpSMS: Library to create SMS messages in PDU format. It provides full control over the SMS including the UDH header, it supports WAP Push messages, Service Indication and Service Location. Messages can be signed for authentication with IMSI or user PIN. (Only the registered members can see the link)