в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:37Z

1 версия

Новая страница

==TCP Server Demo==

<source lang="vbnet">
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading
Public Class MainClass
Shared Stream As NetworkStream
Public Shared Sub Main()
Dim Listener As New TcpListener(11000)
Listener.Start()
Console.WriteLine("TCP Server Waiting for a connection...")
Try
Dim Client As TcpClient = Listener.AcceptTcpClient()
Console.WriteLine("Connection accepted.")
Console.WriteLine(New String("-", 40))
Console.WriteLine()
Stream = Client.GetStream()
Dim ReceiveThread As New Thread(AddressOf ReceiveData)
ReceiveThread.IsBackground = True
ReceiveThread.Start()
Dim w As New BinaryWriter(Stream)
Dim Text As String
Do
Text = Console.ReadLine()
If Text <> "QUIT" Then w.Write(Text)
Loop Until Text.ToUpper() = "QUIT"
ReceiveThread.Abort()
Client.Close()
Listener.Stop()
Catch Err As Exception
Console.WriteLine(Err.ToString())
End Try
End Sub
Shared Private Sub ReceiveData()
Dim r As New BinaryReader(Stream)
Do
If Stream.DataAvailable Then
Console.WriteLine("RECEIVED: " + r.ReadString())
End If
Loop
End Sub
End Class

</source>

==TCP Server socket==

<source lang="vbnet">
Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Public Class MainClass
Shared Dim connection As Socket
Shared Dim readThread As Thread

Shared Dim socketStream As NetworkStream

Shared Private writer As BinaryWriter
Shared Private reader As BinaryReader
Public Shared Sub Main()

readThread = New Thread(AddressOf RunServer)
readThread.Start()

Try
writer.Write("SERVER>>> " ) " send data
Console.WriteLine("SERVER>>> " )

connection.Close()

Catch exception As SocketException
Console.WriteLine("Error writing object")
End Try
End Sub
Shared Public Sub RunServer()
Dim listener As TcpListener
Dim counter As Integer = 1
Try
listener = New TcpListener(5000)
listener.Start()
While True
Console.WriteLine("Waiting for connection" )
connection = listener.AcceptSocket()
socketStream = New NetworkStream(connection)
writer = New BinaryWriter(socketStream)
reader = New BinaryReader(socketStream)
Console.WriteLine("Connection " & counter &" received.")
writer.Write("SERVER>>> Connection successful")
Dim theReply As String = ""
Try
Do
theReply = reader.ReadString()
Console.WriteLine(theReply)
Loop While (theReply <> "CLIENT>>> TERMINATE" _
AndAlso connection.Connected)
Catch inputOutputException As IOException
Console.WriteLine("Client application closing")
Finally
Console.WriteLine("User terminated connection")
writer.Close()
reader.Close()
socketStream.Close()
connection.Close()
counter += 1
End Try
End While
Catch inputOutputException As IOException
Console.WriteLine("Server application closing")
End Try
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Network Remote/TCP Server - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия