Solved

Winsock Control - Control array DataArrival event

Posted on 1997-09-17
4
1,187 Views
Last Modified: 2013-11-13
Hi,
  I'm trying to create a simple server application that will accept incoming data from a client application.  I'm trying to do what the examples say to do on pp 174-176 of the VB Components Tool Guide (using the Winsock Control).  I need to be able to accept more than 1 connection request at a time, so I'm trying to create a control array as follows...

Private intMax As Long

Private Sub Form_Load()
    intMax = 0
    tcpServer(0).LocalPort = 2345
    tcpServer(0).Listen
End Sub

Private Sub tcpServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
    If Index = 0 Then
        intMax = intMax + 1
        Load tcpServer(intMax)
        tcpServer(intMax).LocalPort = 0
        tcpServer(intMax).Accept requestID
        Load txtData(intMax)
    End If
End Sub

...so far so good.  I've followed instructions by setting the index property of tcpServer to 0 which supposedly creates the array.  I also did likewise with txtData.  I'm not sure if txtData is supposed to display the incoming data from the client, but I'm assuming it is.  The instructions don't say.
Now I complete the scenario by including the event procedure for the arrival of the data...

Private Sub tcpServer(intMax)_DataArrival(ByVal bytesTotal As Long)
    ' Declare a variable for the incoming data.
    ' Invoke the GetData method and set the Text
    ' property of a TextBox named txtOutput to
    ' the data.
    Dim strData As String
    tcpServer(intMax).GetData strData
    txtData(intMax).Text = strData
End Sub

...and I get a compiler error saying that the underscore in the procedure declaration is an invalid character.  ((inMax)_DataArrival).  If this is invalid then why is it not also invalid in scalar context...

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)   ???

...If I leave out the (intMax), I get an error that states that the Procedure declaration does not match the description of event or procedure having the same name.  How should I handle this?
0
Comment
Question by:zingbust
  • 4
4 Comments
 
LVL 5

Accepted Solution

by:
volking earned 100 total points
ID: 1435288
You've got a syntax error ...
Try ...

Private Sub tcpServer_DataArrival (Index as Integer, ByVal bytesTotal As Long)

Which incident of tcpServer is passed as a parameter Index.
In your example, "Index as integer" is replacing "intMax".

===========> Frederick Volking
0
 
LVL 5

Expert Comment

by:volking
ID: 1435289
I'd rewrite your sub like this ...

Private Sub tcpServer_DataArrival(Index as integer, ByVal bytesTotal As Long)
      ' Declare a variable for the incoming data.
      ' Invoke the GetData method and set the Text
      ' property of a TextBox named txtOutput to
      ' the data.
      Dim strData As String
      tcpServer(index).GetData strData
      txtData(index).Text = strData
End Sub
0
 
LVL 5

Expert Comment

by:volking
ID: 1435290
Or even like this ...

Private Sub tcpServer_DataArrival(Index as integer, ByVal bytesTotal As Long)
      tcpServer(index).GetData txtData(index).Text
End Sub
0
 
LVL 5

Expert Comment

by:volking
ID: 1435291
I might also suggest caution in handling the results in txtData(index).Text the actual string you get returned may be suffixed with garbage which happens to be left in the recieve buffer so I'd improve the above like this to safeguard:

Private Sub tcpServer_DataArrival(Index as integer, ByVal bytesTotal As Long)
      tcpServer(index).GetData txtData(index).Text
      txtData(index).Text = left$(txtData(index).Text, bytesTotal)
End Sub

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Go is an acronym of golang, is a programming language developed Google in 2007. Go is a new language that is mostly in the C family, with significant input from Pascal/Modula/Oberon family. Hence Go arisen as low-level language with fast compilation…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
The viewer will learn how to implement Singleton Design Pattern in Java.
The goal of the video will be to teach the user the concept of local variables and scope. An example of a locally defined variable will be given as well as an explanation of what scope is in C++. The local variable and concept of scope will be relat…

919 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now