Testing client server application from single computer

[Joh]

I'd like to test a server application and a client application from
the same computer. Currently if I let the client try to connect to my
IPv4 adress provided by my router in this case 192.168.1.2 or my
"external" IP provided by my ISP the tcplistener in the Server class
wont accept the connection. Can I do this in another way and make it
work?

Server application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CServer
Const portNumber As Integer = 8000
Public tcpListener As New TcpListener(por tNumber)
Public tcpClient As New System.Net.Sock ets.TcpClient()
Public networkStream As NetworkStream
Public Function Connect() As Boolean
' Must listen on correct port- must be same as port client
wants to connect on.
Try
tcpListener.Sta rt()

' Console.WriteLi ne("Waiting for connection...")
Dim tcpClient As TcpClient = tcpListener.Acc eptTcpClient()
Catch e As Exception
Debug.Print("Fa iled to connect. " + e.Message)
Return False
End Try
Return True
End Function
Public Function Write(ByVal Message As String) As Boolean
Try
networkStream = tcpClient.GetSt ream()

Dim responseString As String = "Connected to server."
Dim sendBytes As [Byte]() =
Encoding.ASCII. GetBytes(respon seString)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
Console.WriteLi ne(("Message Sent /: " + responseString) )
'Any communication with the remote client using the
TcpClient can go here.
'Close TcpListener and TcpClient.
tcpClient.Close ()
tcpListener.Sto p()
Console.WriteLi ne("exit")
Console.ReadLin e()
Catch ex As Exception

End Try
End Function

End Class
' Calling Server class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim server As New CServer
server.Connect( )
server.Write("T est")

End Sub
End Class
Client application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CClient

Public tcpClient As System.Net.Sock ets.TcpClient
Public networkStream As NetworkStream

Public Function Connect(ByVal HostName As String) As Boolean
Try
tcpClient = New System.Net.Sock ets.TcpClient
tcpClient.Conne ct(HostName, 8000)
networkStream = tcpClient.GetSt ream()
Catch ex As Exception
Return False
End Try
Return True
End Function
Public Function Read(ByRef ReadData As String) As Boolean
Try
If networkStream.C anRead Then
' Read the NetworkStream into a byte buffer.
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
networkStream.R ead(bytes, 0,
CInt(tcpClient. ReceiveBufferSi ze))
' Output the data received from the host to the
console.
ReadData = Encoding.ASCII. GetString(bytes )
End If
' pause so user can view the console output
Console.ReadLin e()
Catch ex As Exception
Return False
End Try
Return True
End Function
End Class

'Calling client class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim client As New CClient
client.Connect( "192.168.1. 2")
Dim data As String
client.Read(Dat a)
End Sub
End Class

[Mr. Arnold]

"Joh" <me************ @hotmail.comwro te in message
news:11******** **************@ v3g2000hsg.goog legroups.com...

I'd like to test a server application and a client application from
the same computer. Currently if I let the client try to connect to my
IPv4 adress provided by my router in this case 192.168.1.2 or my
"external" IP provided by my ISP the tcplistener in the Server class
wont accept the connection. Can I do this in another way and make it
work?

You put the client on one machine on your LAN. You put the server on another
machine on the LAN. You set rules with the personal FW to open the ports
needed for the listening server machine or drop the PFW.

[Tom Shelton]

On Oct 31, 4:14 pm, Joh <meanmachine... @hotmail.comwro te:

I'd like to test a server application and a client application from
the same computer. Currently if I let the client try to connect to my
IPv4 adress provided by my router in this case 192.168.1.2 or my
"external" IP provided by my ISP the tcplistener in the Server class
wont accept the connection. Can I do this in another way and make it
work?

Server application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CServer
Const portNumber As Integer = 8000
Public tcpListener As New TcpListener(por tNumber)
Public tcpClient As New System.Net.Sock ets.TcpClient()
Public networkStream As NetworkStream
Public Function Connect() As Boolean
' Must listen on correct port- must be same as port client
wants to connect on.
Try
tcpListener.Sta rt()

' Console.WriteLi ne("Waiting for connection...")
Dim tcpClient As TcpClient = tcpListener.Acc eptTcpClient()
Catch e As Exception
Debug.Print("Fa iled to connect. " + e.Message)
Return False
End Try
Return True
End Function
Public Function Write(ByVal Message As String) As Boolean
Try
networkStream = tcpClient.GetSt ream()

Dim responseString As String = "Connected to server."
Dim sendBytes As [Byte]() =
Encoding.ASCII. GetBytes(respon seString)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
Console.WriteLi ne(("Message Sent /: " + responseString) )
'Any communication with the remote client using the
TcpClient can go here.
'Close TcpListener and TcpClient.
tcpClient.Close ()
tcpListener.Sto p()
Console.WriteLi ne("exit")
Console.ReadLin e()
Catch ex As Exception

End Try
End Function

End Class
' Calling Server class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim server As New CServer
server.Connect( )
server.Write("T est")

End Sub
End Class

Client application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CClient

Public tcpClient As System.Net.Sock ets.TcpClient
Public networkStream As NetworkStream

Public Function Connect(ByVal HostName As String) As Boolean
Try
tcpClient = New System.Net.Sock ets.TcpClient
tcpClient.Conne ct(HostName, 8000)
networkStream = tcpClient.GetSt ream()
Catch ex As Exception
Return False
End Try
Return True
End Function
Public Function Read(ByRef ReadData As String) As Boolean
Try
If networkStream.C anRead Then
' Read the NetworkStream into a byte buffer.
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
networkStream.R ead(bytes, 0,
CInt(tcpClient. ReceiveBufferSi ze))
' Output the data received from the host to the
console.
ReadData = Encoding.ASCII. GetString(bytes )
End If
' pause so user can view the console output
Console.ReadLin e()
Catch ex As Exception
Return False
End Try
Return True
End Function
End Class

'Calling client class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim client As New CClient
client.Connect( "192.168.1. 2")
Dim data As String
client.Read(Dat a)
End Sub
End Class

Do you have the firewall on?

--
Tom Shelton

[Joh]

On 1 Nov, 00:15, Tom Shelton <tom_shel...@co mcast.netwrote:

On Oct 31, 4:14 pm, Joh <meanmachine... @hotmail.comwro te:

I'd like to test a server application and a client application from
the same computer. Currently if I let the client try to connect to my
IPv4 adress provided by my router in this case 192.168.1.2 or my
"external" IP provided by my ISP the tcplistener in the Server class
wont accept the connection. Can I do this in another way and make it
work?

Server application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CServer
Const portNumber As Integer = 8000
Public tcpListener As New TcpListener(por tNumber)
Public tcpClient As New System.Net.Sock ets.TcpClient()
Public networkStream As NetworkStream
Public Function Connect() As Boolean
' Must listen on correct port- must be same as port client
wants to connect on.
Try
tcpListener.Sta rt()

' Console.WriteLi ne("Waiting for connection...")
Dim tcpClient As TcpClient = tcpListener.Acc eptTcpClient()
Catch e As Exception
Debug.Print("Fa iled to connect. " + e.Message)
Return False
End Try
Return True
End Function
Public Function Write(ByVal Message As String) As Boolean
Try
networkStream = tcpClient.GetSt ream()

Dim responseString As String = "Connected to server."
Dim sendBytes As [Byte]() =
Encoding.ASCII. GetBytes(respon seString)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)
Console.WriteLi ne(("Message Sent /: " + responseString) )
'Any communication with the remote client using the
TcpClient can go here.
'Close TcpListener and TcpClient.
tcpClient.Close ()
tcpListener.Sto p()
Console.WriteLi ne("exit")
Console.ReadLin e()
Catch ex As Exception

End Try
End Function

End Class
' Calling Server class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim server As New CServer
server.Connect( )
server.Write("T est")

End Sub
End Class

Client application source:

Imports System.Net.Sock ets
Imports System.Text
Public Class CClient

Public tcpClient As System.Net.Sock ets.TcpClient
Public networkStream As NetworkStream

Public Function Connect(ByVal HostName As String) As Boolean
Try
tcpClient = New System.Net.Sock ets.TcpClient
tcpClient.Conne ct(HostName, 8000)
networkStream = tcpClient.GetSt ream()
Catch ex As Exception
Return False
End Try
Return True
End Function
Public Function Read(ByRef ReadData As String) As Boolean
Try
If networkStream.C anRead Then
' Read the NetworkStream into a byte buffer.
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
networkStream.R ead(bytes, 0,
CInt(tcpClient. ReceiveBufferSi ze))
' Output the data received from the host to the
console.
ReadData = Encoding.ASCII. GetString(bytes )
End If
' pause so user can view the console output
Console.ReadLin e()
Catch ex As Exception
Return False
End Try
Return True
End Function
End Class

'Calling client class
Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim client As New CClient
client.Connect( "192.168.1. 2")
Dim data As String
client.Read(Dat a)
End Sub
End Class

Do you have the firewall on?

--
Tom Shelton- Dölj citerad text -

- Visa citerad text -

Hi Tom,
Yes, I have a firewall on my router and Windows firewall. I shut down
the Wíndows firewall but still can't connect.