Hello, Not sure what is exactly happening, but if you are using mono 2.6 then I limited service throttling the maximum concurrent sessions (and thus calls) to 1 for stable processing (and you cannot change it through ServiceThrottlingBehavior, as it is hard coded). So you won't get two clients run in parallel.
Atsushi Eno (2010/11/21 8:10), Chakotey STME wrote: > Hello, > > I have a problem with WCF. > > I have a service: > > > <ServiceBehavior(ConcurrencyMode:=ServiceModel.ConcurrencyMode.Multiple, > InstanceContextMode:=InstanceContextMode.Single)> _ > Public Class HelloService > Implements IHelloService > > > Private Shared thisInstance As HelloService > Protected Sub New() > Console.WriteLine("Service erzeugt!") > > > End Sub > > 'singleton > Public Shared Function GetSingleton() As HelloService > If (thisInstance Is Nothing) Then > thisInstance = New HelloService > End If > Return thisInstance > End Function > > Public Function Greet(ByVal name As String) As IList(Of Objekt) > Implements IHelloService.Greet > > Console.WriteLine("greet aufgerufen! "& DateTime.Now.Ticks) > > Dim myObjekt As Objekt = New Objekt > Dim myObjekt2 As Objekt = New Objekt > > > Console.WriteLine("Service macht etwas lang dauerndes") > > Dim i As UInteger = 0 > For i = 0 To UInteger.MaxValue / 2 > > Next > > Console.WriteLine("dauert lange fertig") > > Dim list As List(Of Objekt) = New List(Of Objekt) > list.Add(myObjekt) > list.Add(myObjekt2) > > > > Return list > > > End Function > > > > Public Function Greet2(ByVal name As String) As > System.Collections.Generic.IList(Of Contracts.Objekt) Implements > Contracts.IHelloService.Greet2 > Console.WriteLine("greet2 aufgerufen! "& DateTime.Now.Ticks) > > Dim myObjekt As Objekt = New Objekt > Dim myObjekt2 As Objekt = New Objekt > > > Console.WriteLine("Service2 macht etwas lang dauerndes") > > Dim i As UInteger = 0 > For i = 0 To UInteger.MaxValue / 2 > > Next > > Console.WriteLine("dauert lange fertig") > > Dim list As List(Of Objekt) = New List(Of Objekt) > list.Add(myObjekt) > list.Add(myObjekt2) > > Return list > End Function > End Class > > And I have a Client: > > > Imports System.ServiceModel > Imports Contracts > > Module Module1 > > Sub Main() > Dim binding = New BasicHttpBinding() > Dim address = New EndpointAddress("http://192.168.100.110:8080") > Dim client = New HelloClient(binding, address) > > Dim myObjekt = client.Greet("name") > End Sub > End Module > > If I execute the client I get a answer from the host and all is perfect. > > But I want that more than one client can connect to the service and > use the methods from the singleton service. > > If I execute two clients - one client has to wait until the other > client has his return value. > > I don't know why, because I used the attribute > > > ConcurrencyMode:=ServiceModel.ConcurrencyMode.Multiple > > I use a basicHttpBinding and the service is hosted via a > windows-service with mono-service2. > > So can you help me? > > I use vb.net 3.5 > > Thanks, > _______________________________________________ > Mono-devel-list mailing list > Mono-devel-list@lists.ximian.com > http://lists.ximian.com/mailman/listinfo/mono-devel-list > > > _______________________________________________ Mono-devel-list mailing list Mono-devel-list@lists.ximian.com http://lists.ximian.com/mailman/listinfo/mono-devel-list