Проблема с WebRequest :( или как иначе?

[xfolder]

Ребята нагрнянула проблема, написал программу которая через threads работает с удаленным сервером, но все в пределах локалки.
Программа запускает 20 threads которые посылают на тот сервер разные инструкции в XML формате и получают ответы.

Проблема в том что на 3964(+/- 3) запросе через webRequest он зараза перестает связыватся с сервером! просто выдает ошибку "unable to connect..."

замечу что с другой машины связь работает нормально, вроде бы все ок с тем удаленным сервером.

так же когда программа получает эту ошибку я создал паузу на 5 минут после которой связь востанавливается и программа продолжает работать как ни в чем небывало.

толи это баг в NET толи я чтото упустил.

вопрос в следующем если вы знаете что может влиять на соеденение в данном случае подскажите!

или

если есть примерчик отправления данных на RPC сервер и получения ответа без использования Webrequest пожалуйста скиньте код!

вот как я запрашиваю
>>>>>>>>>>>


Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
GR.Method = "POST"
GR.ContentType = "text/xml"
GR.ContentLength = Query.Length
GR.ConnectionGroupName = Tools.GetGuid
GR.Timeout = Timeout

Dim readStream As New StreamWriter(GR.GetRequestStream())
readStream.Write(Query)
readStream.Close()
readStream = Nothing

Dim sr As StreamReader = New StreamReader(GR.GetResponse().GetResponseStream(), Encoding.GetEncoding(0))
Result = sr.ReadToEnd()
sr.Dispose()
sr = Nothing

[GSerg]

Т.е. dispose ты вызываешь не у всего, а выборочно только у sr.

[xfolder]

Т.е. dispose ты вызываешь не у всего, а выборочно только у sr.

попробовал поставить на readStream но результат тот же самый, на 3995 запросе пропало соедение с сервером.

>>>>>>

Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
GR.Method = "POST"
GR.ContentType = "text/xml"
GR.ContentLength = Query.Length
GR.ConnectionGroupName = WsTools.GetGuid
GR.Timeout = Timeout

Dim readStream As New StreamWriter(GR.GetRequestStream())
readStream.Write(Query)
readStream.Close()
readStream.Dispose()
readStream = Nothing

Dim sr As StreamReader = New StreamReader(GR.GetResponse().GetResponseStream(), Encoding.GetEncoding(0))
Result = sr.ReadToEnd()
sr.Close()
sr.Dispose()
sr = Nothing

[GSerg]

Оставшиеся без Dispose объекты:
GR.GetRequestStream()
GR.GetResponse()
GR.GetResponse().GetResponseStream().

[xfolder]

Оставшиеся без Dispose объекты:
GR.GetRequestStream()
GR.GetResponse()
GR.GetResponse().GetResponseStream().

исправил, только GR.GetResponse не имеет методе dispose

но всеравно теряет соеденение.




вот что получилось
>>>>>>>>>>>>
Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
GR.Method = "POST"
GR.ContentType = "text/xml"
GR.ContentLength = Query.Length
GR.ConnectionGroupName = WsTools.GetGuid
GR.Timeout = Timeout

Dim readStream As New StreamWriter(GR.GetRequestStream())
readStream.Write(Query)
readStream.Close()
readStream.Dispose()
readStream = Nothing
GR.GetRequestStream.Dispose()

Dim sr As StreamReader = New StreamReader(GR.GetResponse().GetResponseStream(), Encoding.GetEncoding(0))
Result = sr.ReadToEnd()
sr.Close()
sr.Dispose()
sr = Nothing
GR.GetResponse().GetResponseStream().Dispose()

[GSerg]

xfolder, ты не понял... Ты теперь повторно получашь новый streamreader и закрываешь его, а должен закрыть предыдущий...

Написано же чёрным по белому в документации...

Внимание! Необходимо вызвать метод Stream.Close, чтобы закрыть поток и освободить подключение для повторного использования. Неудачное закрытие потока приведет к нехватке подключений для приложения.

Код: Выделить всё

Dim foo as stream = GR.GetRequestStream()
Dim readStream As New StreamWriter(foo)
readStream.Write(Query)
readStream.Close()
readStream.Dispose()
readStream = Nothing
foo.Close
foo.Dispose

Привыкай к недетерминированной деструкции, выдываемой за светлое будущее...

[xfolder]

xfolder, ты не понял... Ты теперь повторно получашь новый streamreader и закрываешь его, а должен закрыть предыдущий...

спасибо за помощь, я поправил код как ты показал но проблема не ушла

вот что получилось, если не трудно поправь что нужно
>>>>>>>>>>>>>>>>>>>>>>


Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
GR.Method = "POST"
GR.ContentType = "text/xml"
GR.ContentLength = Query.Length
GR.ConnectionGroupName = WsTools.GetGuid
GR.Timeout = Timeout

Dim foo As Stream = GR.GetRequestStream()
Dim readStream As New StreamWriter(foo)
readStream.Write(Query)
readStream.Close()
readStream.Dispose()
readStream = Nothing
foo.Close()
foo.Dispose()


Dim sr As StreamReader = New StreamReader(GR.GetResponse().GetResponseStream(), Encoding.GetEncoding(0))
Result = sr.ReadToEnd()
sr.Close()
sr.Dispose()
sr = Nothing
GR.GetResponse().GetResponseStream().Dispose()

[GSerg]

xfolder, я не буду править твой код, раз ты сам не захотел распространить показанный и очень простой принцип на все части когда, где его нужно применить, с учётом того, что даже все эти части я тебе перечислил.

[xfolder]

xfolder, я не буду править твой код, раз ты сам не захотел распространить показанный и очень простой принцип на все части когда, где его нужно применить, с учётом того, что даже все эти части я тебе перечислил.

мне кажется что я и так закрыл все что нужно, этот принцип нигде толком не описан, если знаешь где описан поделись ссылкой.
msdn я почитал, только нехватает одного нормально работающего примера. что бы понять что ты имеешь ввиду.

[GSerg]

Если ты сам не можешь соединить http://bbs.vbstreets.ru/viewtopic.php?p=6644640#6644640 и http://bbs.vbstreets.ru/viewtopic.php?p=6644647#6644647, то я не знаю тогда.

[xfolder]

Если ты сам не можешь соединить http://bbs.vbstreets.ru/viewtopic.php?p=6644640#6644640 и http://bbs.vbstreets.ru/viewtopic.php?p=6644647#6644647, то я не знаю тогда.

будь добр обьясни толком, я посмотрел на твой пример, сделал вот так:

Код: Выделить всё

            Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
            GR.Method = "POST"
            GR.ContentType = "text/xml"
            GR.ContentLength = Query.Length
            GR.ConnectionGroupName = WsTools.GetGuid
            GR.Timeout = Timeout

            Dim foo As Stream = GR.GetRequestStream()
            Dim readStream As New StreamWriter(foo)
            readStream.Write(Query)
            readStream.Close()
            readStream.Dispose()
            readStream = Nothing

            foo.Close()
            foo.Dispose()

            Dim RS As Stream = GR.GetResponse().GetResponseStream()
            Dim SR As StreamReader = New StreamReader(RS, Encoding.GetEncoding(0))
            Result = SR.ReadToEnd()
            SR.Close()
            SR.Dispose()
            SR = Nothing

            RS.Close()
            RS.Dispose()


но всеравно проблема повторяется

[GSerg]

Блин, xfolder...
Да закрывай же наконец ВСЕ объекты, а не часть.
GR.GetResponse() - тоже объект с методом close, который надо вызвать. И его тоже давай в отдельную переменную.
Ну неужели трудно MSDN посмотреть на предмет ВСЕХ используемых классов?..

[xfolder]

Блин, xfolder...
Да закрывай же наконец ВСЕ объекты, а не часть.
GR.GetResponse() - тоже объект с методом close, который надо вызвать. И его тоже давай в отдельную переменную.
Ну неужели трудно MSDN посмотреть на предмет ВСЕХ используемых классов?..

ок, как я понял получается вот так, или опять чего упустил?

Код: Выделить всё



            Dim GR As WebRequest = HttpWebRequest.Create(Settings.RisServer & IIf(Settings.RisPort = 0, "", ":" & Settings.RisPort))
            GR.Method = "POST"
            GR.ContentType = "text/xml"
            GR.ContentLength = Query.Length
            GR.ConnectionGroupName = WsTools.GetGuid
            GR.Timeout = Timeout

            Dim foo As Stream = GR.GetRequestStream()
            Dim readStream As New StreamWriter(foo)
            readStream.Write(Query)
            readStream.Close()
            readStream.Dispose()
            readStream = Nothing

            foo.Close()
            foo.Dispose()

            Dim R As WebResponse = GR.GetResponse

            Dim RS As Stream = R.GetResponseStream()
            Dim SR As StreamReader = New StreamReader(RS, Encoding.GetEncoding(0))
            Result = SR.ReadToEnd()
            SR.Close()
            SR.Dispose()
            SR = Nothing

            RS.Close()
            RS.Dispose()

            R.Close()
            R = Nothing

[GSerg]

В этом куске больше не вижу.

[xfolder]

к сожалению проблема осталась, вопрос остается открытым.

[GSerg]

Значит остались другие аналогичные куски в программе.
Если регулярный (через каждую тысячу, скажем) вызов GC.Collect позволяет избежать проблемы, значит это действительно так.

[xfolder]

Значит остались другие аналогичные куски в программе.
Если регулярный (через каждую тысячу, скажем) вызов GC.Collect позволяет избежать проблемы, значит это действительно так.

сделал но проблема не исчезла...

есть ли какой-нибудь монитор ресурсов или что-то что можно использовать чтобы отследить в какой области возникает проблема?

Кроме как HttpWebRequest можно ли подругому делать такого рода запросы?

[xfolder]

проблема решена!

просто нужно было добавить

GR.KeepAlive = False
GR.ServicePoint.MaxIdleTime = 3000

и все заработало

[Fedorfx]

проблема решена!

просто нужно было добавить

GR.KeepAlive = False
GR.ServicePoint.MaxIdleTime = 3000

и все заработало

Что то я не могу найти этих свойстви в инстансах httpwebrequest.
Где они там спрятались ? или не там?