Winsock Help

[EnYcE]

Hi, I was working on a chat program with multiple connections where every client connects to one server which is always running. But, I could not get the messages sent from the server to the client since they are different programs.

I've attached my client code and my server code if someone wants to help. (The 2 codes are not long btw.)

Thanks,
EnYcE

[Sir Loin]

Option Explicit
Dim Index As Integer
Dim intConnection As Integer
 
Private Sub Form_Load()
Winsock(0).LocalPort = 10127
Winsock(0).Listen
End Sub
 
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
intConnection = intConnection + 1
Load Winsock(intConnection)
Winsock(intConnection).Accept RequestID
End Sub
 
Private Sub Winsock_DataArrival(intConnection As Integer, ByVal bytesTotal As Long)
Dim strData As String
Winsock(intConnection).GetData strData
End Sub

But, I could not get the messages sent from the server to the client since they are different programs.

You don't have any code to send messages to the client.

-Sir Loin

[Pino]

Ok, this part of you code, I'm not sure if it would work.

Private Sub Winsock_DataArrival(intConnection As Integer, ByVal bytesTotal As Long)
Dim strData As String
Winsock(intConnection).GetData strData
End Sub

Change to

Private Sub Winsock_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strData As String
Winsock(index).GetData strData
'display your data????
msgbox strData
End Sub

To send data to all connected clients,

For i = 0 to winsock.ubound - 1
    if winsock(i).state = sckConnected then
            winsock(i).senddata("YOUR DATA HERE")
    end if
   doevents
Next I

Hope that helps!

[EnYcE]

Where do I put this under? :

For i = 0 to winsock.ubound - 1
if winsock(i).state = sckConnected then
winsock(i).senddata("YOUR DATA HERE")
end if
doevents
Next I

Thanks,
EnYce

[Pino]

where ever you want to sendata

[EnYcE]

What do you mean? Since server and client are 2 different programs and I want to send the messages to the client then how will I put that under server? There's no way of saying send data to a msgbox in a different program.....unless you know how?

Thanks,
EnYcE

[Pino]

Do you understadn waht winsock is :lol?

Have a look at the basic guide in my sig, then we can move on

[EnYcE]

o_O...... Ya i do.....i can do 2-way chat as your tut explained. Now I just dont get this ubound and lbound stuff that I read in places.....

[Pino]

Right ok,

Basicly your client application will not change whatsoever!

Heres how we will set up your chat application,

Server listens with Winsock(0), when clients connects it loads a new winsock and connects to the client Winsock(x).

Now then the client sends chat data to the server just liek in your 2 way chat, and the server acts as a big trampoline (haha) and all it does is rebounds the text to all of the connected clients.

so....

In your servers dataarrival event,

Private Sub Winsock_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strData As String
Winsock(index).GetData strData
 
For i = 0 to winsock.ubound - 1
    if winsock(i).state = sckConnected then
            winsock(i).senddata strData
    end if
   doevents
Next I
 
end sub

Make any more sence? I have a project I wrote a while ago i'lls ee if I can find it for you

[Pino]

Just to add,

UBound is absicly the number of winsock you have in your control array (The number of clients that have connected)

LBound is the bottom value in the winsock array

Pino

[EnYcE]

Ok thanks, this does make more sense. I'll wait for that project you made.

[EnYcE]

Ok 2 problems......

1. I can see my friend's msgs but he cant see mine.........
2. The msgs come up twice. For example, i type "HELLO" and it comes up twice...

ANy idea what's wrong?

[Pino]

Ok i can only find the server, but it should help you out

1. I can see my friend's msgs but he cant see mine.........

Are you both using a client program?

2. The msgs come up twice. For example, i type "HELLO" and it comes up

this is because in your client application you are sending the text to the window as well as sending it to the server,

Post me your application

[Pino]

ok well i've got to go now if you want post your project and i'll fix it up good for you. and post it back tommorow

[EnYcE]

yes we are both using the clients. Here are the attachments. And Thank for everything. I Included Server and Client. Should be no prob opening it.

Thanks,
EnYcE

[Pino]

Ok think i've sorted it for you

Let me know if you have any problems

[EnYcE]

OmG THANKS! It works! But 1 question...

1. You put that I should change the listbox thing. How can I put it so when someone connects it shows the nickname in the listbox? I really can't figure that out.

Thanks for everything!,
EnYcE

[Pino]

Ok, well the way I do things like this is when a client connects to the server you send a command like,

"!,NickNameHere"

Then when the server recieves data it checks to see if the left most character is a ! if it is, we have a new user and the server send sit to the clients

It gets a bit complex but look at the server example i posted (look at my data arrival event)

Pino