saeed_sho
چهارشنبه 21 تیر 1391, 16:46 عصر
سلام
من دارم با وب سرویس پیامک میفرستم اما نمیخوام وب سرویس رو همه جا استفاده کنم بخاطر همین یه کلاس نوشتم و کدهای ارسال و دریافت رو توی کلاس نوشتم تا هر جا لازم شد دیگه کد تکراری ننویسم
حالا مشکل اینه که این کدهای دریافت اس ام اس هست که در کلاسی که گفتم نوشتم این متد وب سرویس یه آرایه از نوع receiveResult برمیگردونه منم مقدار برگشتی متدم رو همین گذاشتم تا اینجا مشکلی نیست اینم کدش
Public Function ViewReceiveMessages(ByVal userName As String, ByVal password As String, ByVal number As String, ByVal id As String) As Candoosms.ReceiveResult()
Try
Dim receiveResult() As Candoosms.ReceiveResult
'اگر پارامتر آی دی خالی باشد 90 پیام آخر خوانده نشده برگردانده میشود و به وضعیت خوانده شده تغییر مینند
'اگر پارامتر آی دی مقداردهی شده باشد تا سقف 90 پیام بعد از آن برگردانده میشود.
'اگر هم مقدار آی دی 0 باشد اولین پیام برگردانده میشود
receiveResult = ws.ViewReceive(userName, password, number, id)
Return receiveResult
Catch ex As Exception
End Try
End Function
حالا وقتی توی پیجم اونو فرا میخونم تا مقدارشو در گریدویو نشون بدم از خط فراخوانی ایراد میگیره و این ارور رو میده
Protected Sub btnReceive_receive_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReceive_receive.Click
Dim receiveResult() As Candoosms.ReceiveResult
receiveResult = msgProvider.ViewReceiveMessages(txtUserName_receiv e.Text, txtPassword_receive.Text, txtNumber_receive.Text, txtId_receive.Text)
'کنترل میشود که اروری رخ داده یا خیر
If (receiveResult(0).Body Is Nothing AndAlso receiveResult(0).Date Is Nothing AndAlso receiveResult(0).From Is Nothing) Then
lblError_receive.Text = msgProvider.ErroMessage(receiveResult(0).ID.ToStri ng())
grv_Receive.DataSource = Nothing
Else
grv_Receive.DataSource = receiveResult
grv_Receive.DataBind()
End If
End Sub
Value of type '1-dimensional array of Candoosms.ReceiveResult' cannot be converted to '1-dimensional array of Candoosms.ReceiveResult' because 'Candoosms.ReceiveResult' is not derived from 'Candoosms.ReceiveResult'.
میشه یکی بگه این ارور چطوری رفع میشه
تا فردا باید درست بشه
لطفا راهنمایی کنید.
من دارم با وب سرویس پیامک میفرستم اما نمیخوام وب سرویس رو همه جا استفاده کنم بخاطر همین یه کلاس نوشتم و کدهای ارسال و دریافت رو توی کلاس نوشتم تا هر جا لازم شد دیگه کد تکراری ننویسم
حالا مشکل اینه که این کدهای دریافت اس ام اس هست که در کلاسی که گفتم نوشتم این متد وب سرویس یه آرایه از نوع receiveResult برمیگردونه منم مقدار برگشتی متدم رو همین گذاشتم تا اینجا مشکلی نیست اینم کدش
Public Function ViewReceiveMessages(ByVal userName As String, ByVal password As String, ByVal number As String, ByVal id As String) As Candoosms.ReceiveResult()
Try
Dim receiveResult() As Candoosms.ReceiveResult
'اگر پارامتر آی دی خالی باشد 90 پیام آخر خوانده نشده برگردانده میشود و به وضعیت خوانده شده تغییر مینند
'اگر پارامتر آی دی مقداردهی شده باشد تا سقف 90 پیام بعد از آن برگردانده میشود.
'اگر هم مقدار آی دی 0 باشد اولین پیام برگردانده میشود
receiveResult = ws.ViewReceive(userName, password, number, id)
Return receiveResult
Catch ex As Exception
End Try
End Function
حالا وقتی توی پیجم اونو فرا میخونم تا مقدارشو در گریدویو نشون بدم از خط فراخوانی ایراد میگیره و این ارور رو میده
Protected Sub btnReceive_receive_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReceive_receive.Click
Dim receiveResult() As Candoosms.ReceiveResult
receiveResult = msgProvider.ViewReceiveMessages(txtUserName_receiv e.Text, txtPassword_receive.Text, txtNumber_receive.Text, txtId_receive.Text)
'کنترل میشود که اروری رخ داده یا خیر
If (receiveResult(0).Body Is Nothing AndAlso receiveResult(0).Date Is Nothing AndAlso receiveResult(0).From Is Nothing) Then
lblError_receive.Text = msgProvider.ErroMessage(receiveResult(0).ID.ToStri ng())
grv_Receive.DataSource = Nothing
Else
grv_Receive.DataSource = receiveResult
grv_Receive.DataBind()
End If
End Sub
Value of type '1-dimensional array of Candoosms.ReceiveResult' cannot be converted to '1-dimensional array of Candoosms.ReceiveResult' because 'Candoosms.ReceiveResult' is not derived from 'Candoosms.ReceiveResult'.
میشه یکی بگه این ارور چطوری رفع میشه
تا فردا باید درست بشه
لطفا راهنمایی کنید.