×

Discussion Board

Results 1 to 2 of 2
  1. #1
    Registered User
    Join Date
    Apr 2003
    Posts
    1

    To save a picture message to phone

    Hi

    I am coding to save a picture massage into Nokia 8310 with VB .NET and Windows XP.
    after i was saved it into the phone, the phone show the message be a message.
    ,not be a picture. It should be a picture. I check status of the message it is not be SHORTMESSAGE_TYPE_GSM_GMS .
    How can I set a message to be a picture in my phone with this code?. The picture message user data, I copy from smart messaging FAQ., but change something. I save a message to the phone with a single message.

    Thank.
    Tree w.
    Private submit As NokiaCLMessaging.IGSMSubmit

    smsobj = New NokiaCLMessaging.ShortMsgAdapter()

    Dim entry As NokiaCLMessaging.ShortMessageItem
    entry = New NokiaCLMessaging.ShortMessageItem()

    entry.Type = NokiaCLMessaging.ShortMessageType.SHORTMESSAGE_TYPE_GSM_SUBMIT
    entry.TypeProperties = NokiaCLMessaging.ShortMessageType.SHORTMESSAGE_TYPE_GSM_GMS
    entry.MessageStatus = NokiaCLMessaging.ShortMessageStatus.SHORTMESSAGE_STATUS_NOT_SENT
    submit = entry.TypeProperties

    submit.DestinationAddress = "+689111111"
    submit.ServiceCenterAddress = "+689481155"
    submit.ProtocolID = 0
    submit.DataCodingScheme = 245
    submit.ValidityPeriodRelative = 255

    headerarr(0) = &HB
    headerarr(1) = &H0
    headerarr(2) = &H3
    headerarr(3) = &H1
    headerarr(4) = &H1
    headerarr(5) = &H1
    headerarr(6) = &H5
    headerarr(7) = &H4
    headerarr(8) = &H15
    headerarr(9) = &H8A
    headerarr(10) = &H0
    headerarr(11) = &H0

    dataarr(0) = &HB
    dataarr(1) = &H5
    dataarr(2) = &H4
    dataarr(3) = &H15
    dataarr(4) = &H8A
    dataarr(5) = &H0
    dataarr(6) = &H0
    dataarr(7) = &H30
    dataarr(8) = &H3
    dataarr(9) = &H1
    dataarr(10) = &H1
    dataarr(11) = &H1
    dataarr(12) = &H30
    dataarr(13) = &H0
    dataarr(14) = &H0
    dataarr(15) = &H4
    dataarr(16) = &H54
    dataarr(17) = &H65
    dataarr(18) = &H73
    dataarr(19) = &H74
    dataarr(20) = &H2
    dataarr(21) = &H0
    dataarr(22) = &H5E
    dataarr(23) = &H0
    dataarr(24) = &H48
    dataarr(25) = &HA
    dataarr(26) = &H1
    For i = 27 To 116
    dataarr(i) = &HFF
    Next

    submit.UserDataHeader = headerarr
    submit.UserData = dataarr
    Call smsobj.SaveSMS(SHORTMESSAGE_MEMORY_ME, 2, 2, submit)

  2. #2
    Registered User
    Join Date
    May 2003
    Posts
    10
    You've gotten alot further than I have though I'm writing in VB 6.0

    Which library/ocx is the NokiaCLMessaging from as I can't find this anywhere?

    If you can help me there I can possibly help.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •