Hi All,
I'm trying to write a simple multi-threaded windows service application
using ThreadPool and I'm running into the same problem as described by MS
article:
http://support.microsoft.com/default...5637#appliesto .
The sample code down here is from the above article. Would anyone give me
some directions how to overcome the deadlock issue with thread pull. The
exception that I get after all threads in the threadpool have been taken is
THERE WERE NOT ENOUGH FREE THREADS IN THE THREADPOOL OBJECT TO COMPLETE THE
OPERATION.
How can I reserve number of free threads in the threadpool so that the my
System.Net.Http WebRequest and the System.Net.Http WebResponse objects have
free threads to do their jobs. Thanks all in advance
Regards,
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threadin g
Imports System.Net.Sock ets
Module Module1
Sub Main()
'Set number of threads to be created for testing.
Dim testThreads As Integer = 55
Dim i As Integer
For i = 0 To testThreads
ThreadPool.Queu eUserWorkItem(N ew WaitCallback(Ad dressOf PoolFunc))
Next
Console.ReadLin e()
End Sub
Public Sub PoolFunc(ByVal state As Object)
Dim workerThreads, completionPortT hreads As Integer
ThreadPool.GetA vailableThreads (workerThreads, completionPortT hreads)
Console.WriteLi ne("WorkerThrea ds: {0}, CompletionPortT hreads: {1}",
workerThreads, completionPortT hreads)
Thread.Sleep(10 000)
Dim url As String = "http://www.msn.com"
Dim myHttpWebReques t As HttpWebRequest
Dim myHttpWebRespon se As HttpWebResponse = Nothing
' Creates an HttpWebRequest for the specified URL.
myHttpWebReques t = CType(WebReques t.Create(url), HttpWebRequest)
'Sends the HttpWebRequest, and waits for a response.
myHttpWebRespon se = CType(myHttpWeb Request.GetResp onse(),
HttpWebResponse )
myHttpWebRespon se.Close()
End Sub
End Module
