System.Net.Sockets and the Winsock 6?

M

MicroMan

Newcomer
Joined
Dec 20, 2003
Messages
3
I'm having a tough time getting System.Net.Sockets to work with a server that's based around Winsock 6.0. For many reasons I can't write a new server because the server handles a number of client formats.

I'm writing a new client that should be able to connect to the Winsock-based server. However, I can't get them to talk to each other. The server hears and understands what System.Net.Sockets is saying, but when it tries to respond System.Net.Sockets just acknowledges the connection.

Whatever I do (tcpClient, Socket) the socket-class just reports that it is a mere connection but no data availible.

Has anyone been into this before? Any links, pointers to articles or tutorials?

----

This is the routine that listens for connections. Sending data from the .Net application to the Winsock 6 based server works well, but sending data from the Winsock 6 server to the .Net application doesn't.

The VB.Net app senses the connection attempt, but never senses the data behind it. Anyone?

Code: 
Private Sub PollTimer_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles PollTimer.Elapsed 
    Static started As Boolean 
    Dim ns As NetworkStream 
    Dim data() As Byte, dte As Byte 

    If Not (tcpListen Is Nothing) Then 

      ''SOCKET W/O Networkstream 
      'If tcpListen.Pending = True Then 
      ' Console.WriteLine("Pending...") 
      ' Client = tcpListen.AcceptSocket 
      ' Console.Write(Client.Available) 
      ' ReDim Preserve data(data.GetUpperBound(0) + Client.Available) 
      ' Client.Receive(data, Client.Available, SocketFlags.None) 
      ' Console.Write(data.GetUpperBound(0)) 
      'End If 
      'Client.Close() 

      'TcpClient() 
      'If tcpListen.Pending = True Then 
      ' Client = tcpListen.AcceptTcpClient 
      ' ns = Client.GetStream 
      ' If ns.DataAvailable = True Then 
      ' While ns.DataAvailable 
      ' ReDim Preserve data(data.GetUpperBound(0) + 1) 
      ' data(data.GetUpperBound(0)) = ns.ReadByte 
      ' Application.DoEvents() 
      ' Console.WriteLine(data.GetUpperBound(0)) 
      ' End While 
      ' End If 
      'End If 

    Else 
      tcpListen.Start() 
      started = True 
    End If 
  End Sub
 
Back
Top