Доброго времени суток!
Есть необходимость создать сервер и подключить к нему клиентов для дуплексного обмена информацией...
Вот мой неудавшийся код, он дописан не до конца, но клиент даже не может запуститься:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
Imports System
Imports System.ServiceModel
Imports System.ServiceModel.Description
<ServiceContract(SessionMode:=SessionMode.Required, CallbackContract:=GetType(IServiceCallback))> _
Public Interface IService
<OperationContract(IsOneWay:=True)> _
Sub GoMessage(ByVal Text As String)
<OperationContract()> _
Function Register(ByVal Name As String) As Boolean
End Interface
<ServiceContract()> _
Public Interface IServiceCallback
<OperationContract(IsOneWay:=True)> _
Sub GoMessage(ByVal Text As String)
End Interface
<ServiceBehavior(InstanceContextMode:=InstanceContextMode.Single, ConcurrencyMode:=ConcurrencyMode.Reentrant)> _
Public Class Service
Implements IService
Public Sub GoMessage(ByVal T As String) Implements IService.GoMessage
Console.WriteLine("Входящее сообщение от клиента:")
Console.WriteLine("{0}: {1}", Now.ToLocalTime(), T)
Console.WriteLine("-----------------------------------------")
End Sub
Public Function Register(ByVal Name As String) As Boolean Implements IService.Register
Clients.Add(Name, OperationContext.Current.GetCallbackChannel(Of IServiceCallback))
End Function
End Class
<CallbackBehavior(UseSynchronizationContext:=False)> _
Public Class ServiceCallback
Implements IServiceCallback
Public Sub GoMessage(ByVal T As String) Implements IServiceCallback.GoMessage
Console.WriteLine("Входящее сообщение от сервера:")
Console.WriteLine("{0}: {1}", Now.ToLocalTime(), T)
Console.WriteLine("-----------------------------------------")
End Sub
End Class
Module Module1
Public Clients As New Hashtable
Public Function ValidName(ByVal Name As String) As Boolean
Return Clients.ContainsKey(Name)
End Function
Sub Main()
Console.WriteLine("Выбирите режим: 1 - сервер, 2 - клиент.")
If Console.ReadLine = "1" Then
StartServer()
Else
StartClient()
End If
End Sub
Private Sub StartServer()
Try
Console.WriteLine("Введите порт сервера.")
Dim Port As String = Console.ReadLine
Console.WriteLine("Запуск сервера...")
Dim SH As New ServiceHost(GetType(Service), New Uri("net.tcp://localhost:" & Port & "/wcf_test"))
SH.AddServiceEndpoint(GetType(IService), New NetTcpBinding(SecurityMode.Message, True), "")
Dim behavior As New ServiceMetadataBehavior()
SH.Description.Behaviors.Add(behavior)
SH.AddServiceEndpoint(GetType(IMetadataExchange), MetadataExchangeBindings.CreateMexTcpBinding(), "net.tcp://localhost:" & Port & "/wcf_test/mex")
SH.Open()
Console.WriteLine("Сервер запущен.")
Console.WriteLine("-----------------------------------------")
Console.ReadLine()
SH.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Sub
Private Sub StartClient()
Try
Dim name As String = ""
Console.WriteLine("Введите порт сервера.")
Dim Port As String = Console.ReadLine
Console.WriteLine("Запуск клиента...")
Dim factory As DuplexChannelFactory(Of IService) = New DuplexChannelFactory(Of IService)(GetType(Service), New NetTcpBinding(SecurityMode.None))
Dim cl As IService = factory.CreateChannel(New EndpointAddress("net.tcp://localhost:" & Port & "/wcf_test"))
cl.Register("ClientName")
Console.WriteLine("Клиент запущен.")
Console.WriteLine("-----------------------------------------")
Console.ReadLine()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Sub
End Module
Говорит что нельзя создать CreateChannel... помогите найти ошибку (или много ошибок ).
Буду очень признателен за помощь!
