Add-In Technology Sample - Пример реализации технологии подключаемых модулей (Add-in) в вашем .NET приложении. В данном примере используется технология .NET Reflection: модули реализуются в виде .NET сборки и загружаются в программу динамически.
05.05.2004 - Конкурс для разработчиков! Cпешите регистрироваться для участия!
Московское представительство Microsoft объявляет о выходе русской версии стандартной редакции Visual Basic .NET 2003 и проводит специальный конкурс для разработчиков.
Победителя ждет суперприз - АВТОМОБИЛЬ!
(05.05.2004)
05.05.2004 - Microsoft представляет новое решение для локализации приложений
Microsoft представляет новое решение для локализации приложений, работающих на операционных системах Windows XP и Windows 2003 Server. Это решение, называющееся Microsoft Application Translator (MAT), позволяет приложениям предоставлять локализованные версии «на лету» без изменения исходного кода и с низкими затратами на локализацию.
(05.05.2004)
04.05.2004 - Встреча UNETA в Харькове
21 мая в 18:00 в городе Харькове состоится очередная встреча сообщества Ukraine .Net Alliance.
(04.05.2004)
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
