Type Mismatch

I am currently working on an instant messaging program (server/client). It connects, create users, and adds buddies just fine. but it doesnt do the "Status Update" like it sposed to do. It then gives me "Type Mismatch" with this code:

Client Side-

VB Code:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim i As Long
    Winsock1.GetData strIncoming
   
    If strIncoming = ".badlogin" Then
        MsgBox "The screen name or password you entered is not valid. ", vbOKOnly + vbCritical
        If Winsock1.State <> sckClosed Then
            Winsock1.Close
        End If
    ElseIf strIncoming = ".goodlogin" Then
        Call good_login
        
    ElseIf strIncoming = "nogood" Then
        Call nogood1
        
    ElseIf Word(strIncoming, 1) = ".showonline" And Word(strIncoming, 2) <> "0" Then
        Call Show_Online_buddies(strIncoming)
        
    ElseIf Word(strIncoming, 1) = ".statusUpdate" And Word(strIncoming, 2) <> "0" Then
        [COLOR=Red]Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))[/COLOR]
        
    ElseIf Word(strIncoming, 1) = ".msg" Then
        Call get_message(Word(strIncoming, 2), strIncoming)
        
    ElseIf Word(strIncoming, 1) = ".define" Then
        Call get_definition(Word(strIncoming, 2), Word(strIncoming, 3), strIncoming)
        
    ElseIf Word(strIncoming, 1) = ".spell" Then
            Call get_spelling(Word(strIncoming, 2), strIncoming)
 
    End If
End Sub

Server side-

VB Code:

Private Function update_status(status As Integer, user As String, Index As Integer)
 Dim sConnString  As String
 sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb"
 Dim rs As New ADODB.Recordset
 Dim rs2 As New ADODB.Recordset
 Dim conn As New ADODB.Connection
 conn.Open sConnString
 If ServiceSocket(Index).State = sckConnected Then
        rs2.Open "UPDATE online SET ostatus = " + _
                CStr(status) + " WHERE username = '" + _
                CStr(user) + "' AND oindex = " + _
                CStr(Index), conn
 End If
                
        'Gets the ppl that have user as buddies that are currently online
        rs.Open "SELECT buddy, oindex FROM buddies, online WHERE buddies.buddy = '" + _
                    CStr(user) + "' AND buddies.user = online.username", conn
        While rs.EOF = False
        'Im not too sure about this part of the code...it seems it would work, not sure
        'if its the best code though
            For i = 1 To ServiceSocket.UBound
            testing = ServiceSocket(i).Index
                If ServiceSocket(i).Index = rs.Fields("oindex") Then
                    If ServiceSocket(i).State = sckConnected Then
                        ServiceSocket(i).SendData ".statusUpdate 1" & " " & user & " " & status 'send status of user to its buddies if their online
                    End If
                End If
            Next i
        rs.MoveNext
        Wend
 If ServiceSocket(Index).State = sckConnected Then
    ServiceSocket(Index).SendData ".statusUpdate 0"
 End If
 Set rs = Nothing
 Set rs2 = Nothing
 Set conn = Nothing
End Function

any ideas? :(

this is waaay over my head. have u got the code for status_update
because il assume its not this one

Private Function update_status(status As Integer, user As String, Index As Integer)

because ones update _status and ones status_update

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

meh im to new to be much help :(

yeah, status_update is in the code down on the client and is all the same, whereas update_status is all the same on server

sooo can u tell me what the Word() one is?:(

well, the server sends "user 1" where the user is the name and the number is for online or offline, and i think that i get that error due to the number not being a word??? thats all i can guess on, but i still dont know how to fix it, if it is.....

could always try cstr to force a string conversion.. still dont know what Word(str,number) is doing, it looks similar to Left(str, number) which gets me part of a word, im lost :(

What is the value of strIncoming and what does your Word() function do?

meh i gota go :(

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))
and try msgboxing the value of (Word(strIncoming, 2) and Word(strIncoming, 3) so you can see on screen what they are returning i guess
have you tryed calling the status_update with just status_update("1","meh")
and Function status_update does have 2 str inputs right? not a boolean or anything silly like i would do?

in

VB Code:

ElseIf Word(strIncoming, 1) = ".statusUpdate" And Word(strIncoming, 2) <> "0" Then

srtIncoming = data that was recieved from server

ElseIf Word (strIncoming, 1) = checks to see if the first word in "strIncoming" data is ".statusUpdate" or not if it is then it does..

VB Code:

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

(Word(strIncoming, 2) = gets second word in the "strIncoming" data

, Word(strIncoming, 3)) = gets the third word in the "strIncoming" data

Ishamael, even when i do

VB Code:

MsgBox Word(strIncoming, 2), Word(strIncoming, 3)

i still get "Type Mismatch" :( so unless im doing it wrong, still got the error :(

Do the MsgBox thing but don't call the Word() function. This will show you exactly what the value of strIncoming is. It's obviously not valid. eg

VB Code:

MsgBox strIncoming

You can also check the value of any variable during runtime by putting a breakpoint in your code. When execution stops at the breakpoint you can hover your mouse cursor over the variable and its value will be displayed in a tooltip.

ok did that, i get ".statusUpdate 1 Ch4s3t0ph3r 2"

OK. So what data type is the Word() function expecting?

wow - talk about a crazy feeling of deja vu: http://www.vbforums.com/showthread.p...89#post2485589

(although at least the thread existed and i wasn't going mad!)

Quote:

---

Originally Posted by bushmobile

wow - talk about a crazy feeling of deja vu: http://www.vbforums.com/showthread.p...89#post2485589

(although at least the thread existed and i wasn't going mad!)

---

I think I'm going mad, or maybe it's just the going round in circles is making me dizzy... :(

Quote:

---

Originally Posted by pnish

I think I'm going mad, or maybe it's just the going round in circles is making me dizzy... :(

---

Then whatever you do, don't read the preceeding 25 posts in that other thread :sick:

VB Code:

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

Post the code for the function Word (including the declaration and the line(s) that set(s) the return), and the declaration for status_update.

The error is saying that status_update is expecting data that's a different type than Word is returning, so we need to see both what status_update is expecting and what Word is returning.

(BTW, I'd rename that Word function - "word" has a totally different meaning in computer programming.)

Al42, the (likely) solution is in the thread i posted to - it should be:

VB Code:

Call status_update(Word(strIncoming, 2), [B]Val([/B]Word(strIncoming, 3)[B])[/B])

If it's the same code, yes, and status_update should look at the 2nd and (value of the) 4th words.

WHOA, didnt know anyone else was on the same project =\
well the Val(Word....))) works but now, i ran 2 of them login as Ch4s3t0ph3r on one and Admin as another.... When i sign in on the first one (Ch4s3t0ph3r) theres no one on the buddylist, this shud be correct as there is no one online but me, Then i sign on as admin, when the buddylist for admin comes up "Ch4s3t0ph3r" is online, but "Admin" does not show up on Ch4s3t0ph3r's buddylist...

anyone know why? :confused:

i have done Msgbox strIncoming for everything, and i have found out that the this part of the code does not send anything to the clients, does anyone know how to resolve this?

VB Code:

Private Function update_status(status As Integer, user As String, Index As Integer)
 Dim sConnString  As String
 sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb"
 Dim rs As New ADODB.Recordset
 Dim rs2 As New ADODB.Recordset
 Dim conn As New ADODB.Connection
 conn.Open sConnString
 If ServiceSocket(Index).State = sckConnected Then
        rs2.Open "UPDATE online SET ostatus = " + _
                CStr(status) + " WHERE username = '" + _
                CStr(user) + "' AND oindex = " + _
                CStr(Index), conn
 End If
                
        'Gets the ppl that have user as buddies that are currently online
        rs.Open "SELECT buddy, oindex FROM buddies, online WHERE buddies.buddy = '" + _
                    CStr(user) + "' AND buddies.user = online.username", conn
        While rs.EOF = False
        'Im not too sure about this part of the code...it seems it would work, not sure
        'if its the best code though
            For i = 1 To ServiceSocket.UBound
            testing = ServiceSocket(i).Index
                If ServiceSocket(i).Index = rs.Fields("oindex") Then
                    If ServiceSocket(i).State = sckConnected Then
                        ServiceSocket(i).SendData ".statusUpdate 1" & " " & user & " " & status 'send status of user to its buddies if their online
                    End If
                End If
            Next i
        rs.MoveNext
        Wend
 If ServiceSocket(Index).State = sckConnected Then
    ServiceSocket(Index).SendData ".statusUpdate 0"
 End If
 Set rs = Nothing
 Set rs2 = Nothing
 Set conn = Nothing
End Function

You're calling status_update as

VB Code:

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

You're defining it as

VB Code:

Private Function update_status(status As Integer, user As String, Index As Integer)

It's looking for 3 parameters(status, user and Index), an integer, a string and another integer, but you're only giving it 2 (Word(strIncoming, 2) and Word(strIncoming, 3)), 2 strings. Also it's a function but it's not returning anything, so you should change it to a sub.

Do you have any error trapping (or On Error Resume Next statements) anywhere?

Have you set a breakpoint at sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=imdb.mdb" and single-stepped through the "function"?

Quote:

---

Originally Posted by Al42

You're calling status_update as

VB Code:

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

You're defining it as

VB Code:

Private Function update_status(status As Integer, user As String, Index As Integer)

---

this code is Client side

VB Code:

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

and this code is Server side

VB Code:

Private Function update_status(status As Integer, user As String, Index As Integer)

so thats why they are two different things

What is Word and how is it defined?

VB Code:

Public Function Word(ByVal sSource As String, _
                                 n As Long) As String
 
Const SP    As String = " "
Dim pointer As Long   'start parameter of Instr()
Dim pos     As Long   'position of target in InStr()
Dim X       As Long   'word count
Dim lEnd    As Long   'position of trailing word delimiter
 
sSource = CSpace(sSource)
 
'find the nth word
X = 1
pointer = 1
 
Do
   Do While Mid$(sSource, pointer, 1) = SP     'skip consecutive spaces
      pointer = pointer + 1
   Loop
   If X = n Then                               'the target word-number
      lEnd = InStr(pointer, sSource, SP)       'pos of space at end of word
      If lEnd = 0 Then lEnd = Len(sSource) + 1 '   or if its the last word
      Word = Mid$(sSource, pointer, lEnd - pointer)
      Exit Do                                  'word found, done
   End If
  
   pos = InStr(pointer, sSource, SP)           'find next space
   If pos = 0 Then Exit Do                     'word not found
   X = X + 1                                   'increment word counter
  
   pointer = pos + 1                           'start of next word
Loop
  
End Function

Could it be that the string you are passing to Word has less words than n? If so you'd have a problem.

what do u mean?

Quote:

---

Originally Posted by Ch4s3t0ph3r

this code is Client side
and this code is Server side

so thats why they are two different things

---

Which is why I asked you to post the definitions and returns. Have you yet single-stepped the function that's not working correctly?

well i did breakpoint through everything and it all works till this part of the code:

VB Code:

For i = 1 To ServiceSocket.UBound
            testing = ServiceSocket(i).Index
                If ServiceSocket(i).Index = rs.Fields("oindex") Then
                    If ServiceSocket(i).State = sckConnected Then
                        ServiceSocket(i).SendData ".statusUpdate 1" & " " & user & " " & status 'send status of user to its buddies if their online
                    End If
                End If
            Next i
        rs.MoveNext
        Wend
 If ServiceSocket(Index).State = sckConnected Then
    ServiceSocket(Index).SendData ".statusUpdate 0"

then it doesnt do anything

youve checked ServiceSocket.UBound > 0 etc
at worst just chuck msgbox "hey" in somewhere and see if it gets to it, i know nothing about sockets:( when you get done you can teach me!:D

well really i dont know anything about them either lol, i tend to learn alot from these forums, but i still havent figured this code out :(

Quote:

---

Originally Posted by Ch4s3t0ph3r

what do u mean?

---

You are calling Word like this.

Word(strIncoming, 2)

If strIncoming had only one word in it then Word would return "".

well ive checked, and i made sure that, that wasnt the case, but ive noticed when i was doing the breakpoints it does all of the code for Private Function update_status then it does not do anything on the line

VB Code:

For i = 1 To ServiceSocket.UBound

nor the rest of that code.. and i believe that this is the problem, due to that this code sends out if sumone came online or not, which, is the problem im trying to fix

^^^Hope that was clear enough and not too messy :(

".statusUpdate 1 Ch4s3t0ph3r 2"

Call status_update(Word(strIncoming, 2), Word(strIncoming, 3))

Private Function update_status(status As Integer, user As String, Index As Integer)

(I don't understand why you give a procedure of different name from the server application if the problem is in the code of the client... but assuming it really is the same procedure with a different name...)

Call status_update(CInt(Val(Word(strIncoming, 2))), Word(strIncoming, 3), CInt(Val(Word(strIncoming, 4))))


And to make sure things are correct:

VB Code:

Debug.Print "The command line is: " & strIncoming
Debug.Print "The values are: " & CInt(Val(Word(strIncoming, 2))), _
    Word(strIncoming, 3), CInt(Val(Word(strIncoming, 4)))
Call status_update(CInt(Val(Word(strIncoming, 2))), _
    Word(strIncoming, 3), CInt(Val(Word(strIncoming, 4))))

Debugging helps a whole lot.

Also, here is another version for the Word function with proper (perfect) error checking:

VB Code:

Public Function Word(ByVal Source As String, WordNumber As Integer) As String
    Dim strWords() As String
    ' if nothing, give nothing
    If LenB(Source) = 0 Then Exit Function
    ' check for lower range
    If WordNumber < 1 Then Exit Function
    ' remove double space until there are none
    Do While InStr(Source, "  ") > 0
        Source = Replace(Source, "  ", " ")
    Loop
    ' split into array
    strWords = Split(Source, " ")
    ' check upper bound; if goes above, return nothing
    If WordNumber - 1 > UBound(strWords) Then Exit Function
    ' return the requested word
    Word = strWords(WordNumber - 1)
End Function

Hey thanks, and that does work with the client, but i believe that the problem is on the server side, where its not sending whos online to anyone, which is what im really looking to fix b4 anything =\

Ok so we are all clear we have fixed the issue you had with the Word function part at the start and we are onto a loop that doesnt seem to loop?
what is the kind of value your hoping to get from
For i = 1 To ServiceSocket.UBound
Im assuming its just going to loop for the number of values in that array.. just out of curiousity msgboxing ServiceSocket.UBound just before that loop gets you what value?

ok, i msgboxed the servicesocket.UBound and i dont get anything when sumone signs on but when sumone signs off i get "3"

what exactly is ServiceSocket, im assuming a array of integers? where is it created etc
darn i wish i could help more :(

and waaay back in the first post u had this

VB Code:

rs.Open "SELECT buddy, oindex FROM buddies, online WHERE buddies.buddy = '" + _
                    CStr(user) + "' AND buddies.user = online.username", conn
        While rs.EOF = False

you have fixed that up now and removed the commenter? if your joining tables like that
the commented line is likly to be prety nessercry

yeah the

VB Code:

rs.Open "SELECT buddy, oindex FROM buddies, online WHERE buddies.buddy = '" + _
                    CStr(user) + "' AND buddies.user = online.username", conn
        While rs.EOF = False

is only commented here on the forum, not in my code