| Вопрос: Как открыть порт для прослушки UDP or TCP | Добавлено: 05.05.04 05:39 |
Автор вопроса:  DVD
|
|
! Как открыть порт для прослушки UDP or TCP на VB.NET без компоненты .OCX. Нарисуйте, пожалуйста, кто-нибудь код. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа: Maxik Вопросов: 58 Ответов: 201 |
Профиль | | #1 | Добавлено: 05.05.04 06:58 |
|
Вчера Павлу выслал пример работы с TCP. Должно скоро появиться на сайте. |
||
|
Номер ответа: 2 Автор ответа:  DVD Вопросов: 2 Ответов: 2 |
Профиль | | #2 | Добавлено: 05.05.04 07:24 |
|
А как долго ждать? и где смотреть? |
||
|
Номер ответа: 3 Автор ответа: MaxikВопросов: 58 Ответов: 201 |
Профиль | | #3 | Добавлено: 05.05.04 08:45 |
|
Как долго не знаю. Смотреть на VBNet.Ru. Там примерно следующее: Dim client As TcpClient = New TcpClient client.Connect(сервер, 13) --твой код client.clpse Поток получаешь из GetStream. А дальше читай его. |
||
|
Номер ответа: 4 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #4 | Добавлено: 05.05.04 15:31 |
|
Немного не то ты написал... Для прослушки порта юзается класс TCPListener. Вот пример из MSDN: Imports System Imports System.IO Imports System.Net Imports System.Net.Sockets Imports System.Text Imports Microsoft.VisualBasic Class MyTcpListener Public Shared Sub Main() Try ' Set the TcpListener on port 13000. Dim port As Int32 = 13000 Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1") Dim server As New TcpListener(localAddr, port) ' Start listening for client requests. server.Start() ' Buffer for reading data Dim bytes(1024) As [Byte] Dim data As [String] = Nothing ' Enter the listening loop. While True Console.Write("Waiting for a connection... ") ' Perform a blocking call to accept requests. ' You could also user server.AcceptSocket() here. Dim client As TcpClient = server.AcceptTcpClient() Console.WriteLine("Connected!") data = Nothing ' Get a stream object for reading and writing Dim stream As NetworkStream = client.GetStream() Dim i As Int32 ' Loop to receive all the data sent by the client. i = stream.Read(bytes, 0, bytes.Length) While (i <> 0) ' Translate data bytes to a ASCII string. data = System.Text.Encoding.ASCII.GetString(bytes, 0, i) Console.WriteLine([String].Format("Received: {0}", data)) ' Process the data sent by the client. data = data.ToUpper() Dim msg As [Byte]() = System.Text.Encoding.ASCII.GetBytes(data) ' Send back a response. stream.Write(msg, 0, msg.Length) Console.WriteLine([String].Format("Sent: {0}", data)) i = stream.Read(bytes, 0, bytes.Length) End While ' Shutdown and end connection client.Close() End While Catch e As SocketException Console.WriteLine("SocketException: {0}", e) End Try Console.WriteLine(ControlChars.Cr + "Hit enter to continue...") Console.Read() End Sub 'Main End Class 'MyTcpListener |
||
|
Номер ответа: 5 Автор ответа: MaxikВопросов: 58 Ответов: 201 |
Профиль | | #5 | Добавлено: 05.05.04 15:53 |
|
Замкнуло... С кем ни бывает... Действительно. Ведь порт слушает сервер, в ожидании клиента, а я наоборот сказал  Проверьте меня, а то опять загну... |
||
|
Номер ответа: 6 Автор ответа:  DVDВопросов: 2 Ответов: 2 |
Профиль | | #6 | Добавлено: 06.05.04 05:22 |
|
спасибо |
||
Страница: 1 |