HTTPWebRequest Error (0x80090300) after a while

[Kevin Landymore]

I have a vb.net service running under a Domain account. I'm trying to call a
web service on our Mainframe (IBM CICS via SSL and Client Certificates) and
after a while (1 or 2 days.. thousands of transactions) I'm getting the
following errors:
First, 2 of these:
SoapDriver GotRequestStrea m System.Net.WebE xception: The underlying
connection was closed: Could not establish secure channel for SSL/TLS. --->
System.Componen tModel.Win32Exc eption: Unknown error (0x80090300)
at System.Net.SSPI Wrapper.Acquire CredentialsHand le(SSPIInterfac e
SecModule, String package, CredentialUse intent, SChannelCred scc)
at System.Net.Secu reChannel.Acqui reCredentials(B oolean
beforeServerCon nection)
at System.Net.Secu reChannel.NextM essage(Byte[] incoming)
at System.Net.TlsS tream.Handshake (ProtocolToken message)
--- End of inner exception stack trace ---
at System.Net.Http WebRequest.Chec kFinalStatus()
at System.Net.Http WebRequest.EndG etRequestStream (IAsyncResult
asyncResult)
at MyApp.SoapDrive r.GotRequestStr eam(IAsyncResul t IR)
then, consistently I get this message at EndGetRequestSt ream for every
request:
SoapDriver GotRequestStrea m System.Net.WebE xception: The underlying
connection was closed: Could not establish secure channel for SSL/TLS. --->
System.Componen tModel.Win32Exc eption: Unknown error (0x80090300)
--- End of inner exception stack trace ---
at System.Net.Http WebRequest.Chec kFinalStatus()
at System.Net.Http WebRequest.EndG etRequestStream (IAsyncResult
asyncResult)
at CTI_Server.Soap Driver.GotReque stStream(IAsync Result IR)

If I stop and restart the service, it works fine. I've heard of overloading
ICertificatePol icy but this seems like a cop-out and also unnecessary
because It works for so many transactions beforehand. Before each call from
any class, I set the object = new SoapDriver to make sure everything is
clean. I can see the connections opening on CICS but they close almost
instantaneously and we cannot find any errors on CICS. Thanks ahead of
time!! Below is all the pertinant code in the class. Transaction is
initiated by calling SendSoap sub. I've been told to use HTTP1.0 and no
keepalives. I'm to the point now I think there must be some kind of bug or
leak in the framework....

- Kevin Landymore

#Region "Imports"
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Data
Imports Microsoft.Web.S ervices
Imports System.Runtime. InteropServices
#End Region
Public Class SoapDriver
#Region "Events"
Public Event SoapResponse(By Val env As SoapEnvelope)
#End Region
#Region "Structures "
Structure strucWebReqAndI D
Public WebRequest As HttpWebRequest
Public RequestStream As Stream
Public RequestEnvelope As SoapEnvelope
Public ContactID As Guid
End Structure
#End Region
#Region "Declares"
Dim Store As New
Microsoft.Web.S ervices.Securit y.X509.X509Cert ificateStore(Se curity.X509.X50 9
CertificateStor e.StoreProvider .System,
Security.X509.X 509CertificateS tore.StoreLocat ion.CurrentUser , Store.MyStore)
Dim SPM As ServicePointMan ager
Dim MySP As ServicePoint
Dim MyURI As New Uri(CICS_URL)
#End Region
#Region "Functions"
Sub New()
Try
SPM.CheckCertif icateRevocation List = False
SPM.DefaultConn ectionLimit = 10
SPM.Expect100Co ntinue = False
SPM.MaxServiceP ointIdleTime = 4950
SPM.UseNagleAlg orithm = True
MySP = SPM.FindService Point(MyURI)
MySP.MaxIdleTim e = 5000
MySP.Connection Limit = 10
Store.Open()
Catch e As Exception
Debug.WriteLine (e.ToString)
End Try
End Sub
Sub SendSOAP(ByVal env As SoapEnvelope, ByVal ContactID As Guid)
Try
Dim CertLookupResul t As Security.X509.X 509CertificateC ollection
CertLookupResul t = Store.FindCerti ficateBySubject String(Certific ate_Name)
If CertLookupResul t.Count = 0 Then
Dim db1SqlCon As New SqlClient.SqlCo nnection
Dim db1SqlCmd As New SqlClient.SqlCo mmand
db1SqlCon.Conne ctionString = DB_Connect_Stri ng
db1SqlCon.Open( )
db1SqlCmd.Conne ction = db1SqlCon
db1SqlCmd.Comma ndType = CommandType.Tex t
db1SqlCmd.Comma ndText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver NO CTI CERTIFICATE!')"
db1SqlCmd.Execu teNonQuery()
db1SqlCmd.Dispo se()
db1SqlCon.Close ()
db1SqlCon.Dispo se()
GC.Collect()
Exit Sub
End If
Dim ReqData As strucWebReqAndI D
Dim HTTPPost As HttpWebRequest
HTTPPost = HttpWebRequest. Create(CICS_URL )
HTTPPost.Method = "POST"
HTTPPost.Conten tType = "text/xml"
HTTPPost.Timeou t = 6000
HTTPPost.Protoc olVersion = HttpVersion.Ver sion10
HTTPPost.KeepAl ive = False
HTTPPost.Client Certificates.Ad d(CertLookupRes ult.Item(0))
ReqData.Request Envelope = env
ReqData.WebRequ est = HTTPPost
ReqData.Contact ID = ContactID
HTTPPost.BeginG etRequestStream (AddressOf GotRequestStrea m, ReqData)
GC.Collect()
Catch e As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver SendSOAP" & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Dispos e()
dbSqlCon.Close( )
dbSqlCon.Dispos e()
End Try
End Sub
Sub GotRequestStrea m(ByVal IR As IAsyncResult)
Try
Dim ReqData As strucWebReqAndI D = IR.AsyncState
Dim ReqStream As Stream = ReqData.WebRequ est.EndGetReque stStream(IR)
ReqData.Request Stream = ReqStream
Dim rEncode As Encoding = System.Text.Enc oding.GetEncodi ng("ISO-8859-1")
Dim ReqWriter As New StreamWriter(Re qStream, rEncode)
ReqWriter.Write (ReqData.Reques tEnvelope.Outer Xml)
ReqWriter.Close ()
ReqData.WebRequ est.BeginGetRes ponse(AddressOf GotResponse, ReqData)
Catch ex As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotRequestStrea m " & ex.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Dispos e()
dbSqlCon.Close( )
dbSqlCon.Dispos e()
End Try
End Sub
Sub GotResponse(ByV al IR As IAsyncResult)
Dim RespString As String
Try
Dim ReqData As strucWebReqAndI D
ReqData = IR.AsyncState
Dim HTTPResp As HttpWebResponse
HTTPResp = ReqData.WebRequ est.EndGetRespo nse(IR)
Dim RespStream As Stream = HTTPResp.GetRes ponseStream
Dim encode As Encoding = System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readStream As New StreamReader(Re spStream, encode)
RespString = readStream.Read ToEnd
HTTPResp.Close( )
Dim Replacer As RegularExpressi ons.Regex
RespString = Replacer.Replac e(RespString, "&", "+")
Dim SoapResp As New SoapEnvelope
SoapResp.LoadXm l(RespString)
RaiseEvent ProfileResponse (ParseSoapProfi leResponse(Soap Resp),
ReqData.Contact ID)
Catch e As WebException
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotRespone WebException " & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbsqlcmd.Dispos e()
dbSqlCon.Close( )
dbsqlcon.Dispos e()
Catch e As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotResponse " & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotResponse String Was " & RespString & "')"
dbSqlCmd.Execut eNonQuery()
dbsqlcmd.Dispos e()
dbSqlCon.Close( )
dbsqlcon.Dispos e()
End Try
End Sub
#End Region
End Class

[Kevin Landymore]

Sorry... I get the exception at the Async EndGetRequestSt ream call. Thanks
again!!

-Kevin Landymore
"Kevin Landymore" <kl************ @sempraNOutilit iesSPAM.com> wrote in
message news:eO******** ******@tk2msftn gp13.phx.gbl...

I have a vb.net service running under a Domain account. I'm trying to call a web service on our Mainframe (IBM CICS via SSL and Client Certificates) and after a while (1 or 2 days.. thousands of transactions) I'm getting the
following errors:
First, 2 of these:
SoapDriver GotRequestStrea m System.Net.WebE xception: The underlying
connection was closed: Could not establish secure channel for SSL/TLS. ---> System.Componen tModel.Win32Exc eption: Unknown error (0x80090300)
at System.Net.SSPI Wrapper.Acquire CredentialsHand le(SSPIInterfac e
SecModule, String package, CredentialUse intent, SChannelCred scc)
at System.Net.Secu reChannel.Acqui reCredentials(B oolean
beforeServerCon nection)
at System.Net.Secu reChannel.NextM essage(Byte[] incoming)
at System.Net.TlsS tream.Handshake (ProtocolToken message)
--- End of inner exception stack trace ---
at System.Net.Http WebRequest.Chec kFinalStatus()
at System.Net.Http WebRequest.EndG etRequestStream (IAsyncResult
asyncResult)
at MyApp.SoapDrive r.GotRequestStr eam(IAsyncResul t IR)
then, consistently I get this message at EndGetRequestSt ream for every
request:
SoapDriver GotRequestStrea m System.Net.WebE xception: The underlying
connection was closed: Could not establish secure channel for SSL/TLS. ---> System.Componen tModel.Win32Exc eption: Unknown error (0x80090300)
--- End of inner exception stack trace ---
at System.Net.Http WebRequest.Chec kFinalStatus()
at System.Net.Http WebRequest.EndG etRequestStream (IAsyncResult
asyncResult)
at CTI_Server.Soap Driver.GotReque stStream(IAsync Result IR)

If I stop and restart the service, it works fine. I've heard of overloading ICertificatePol icy but this seems like a cop-out and also unnecessary
because It works for so many transactions beforehand. Before each call from any class, I set the object = new SoapDriver to make sure everything is
clean. I can see the connections opening on CICS but they close almost
instantaneously and we cannot find any errors on CICS. Thanks ahead of
time!! Below is all the pertinant code in the class. Transaction is
initiated by calling SendSoap sub. I've been told to use HTTP1.0 and no
keepalives. I'm to the point now I think there must be some kind of bug or
leak in the framework....

- Kevin Landymore

#Region "Imports"
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Data
Imports Microsoft.Web.S ervices
Imports System.Runtime. InteropServices
#End Region
Public Class SoapDriver
#Region "Events"
Public Event SoapResponse(By Val env As SoapEnvelope)
#End Region
#Region "Structures "
Structure strucWebReqAndI D
Public WebRequest As HttpWebRequest
Public RequestStream As Stream
Public RequestEnvelope As SoapEnvelope
Public ContactID As Guid
End Structure
#End Region
#Region "Declares"
Dim Store As New
Microsoft.Web.S ervices.Securit y.X509.X509Cert ificateStore(Se curity.X509.X50 9 CertificateStor e.StoreProvider .System,
Security.X509.X 509CertificateS tore.StoreLocat ion.CurrentUser , Store.MyStore) Dim SPM As ServicePointMan ager
Dim MySP As ServicePoint
Dim MyURI As New Uri(CICS_URL)
#End Region
#Region "Functions"
Sub New()
Try
SPM.CheckCertif icateRevocation List = False
SPM.DefaultConn ectionLimit = 10
SPM.Expect100Co ntinue = False
SPM.MaxServiceP ointIdleTime = 4950
SPM.UseNagleAlg orithm = True
MySP = SPM.FindService Point(MyURI)
MySP.MaxIdleTim e = 5000
MySP.Connection Limit = 10
Store.Open()
Catch e As Exception
Debug.WriteLine (e.ToString)
End Try
End Sub
Sub SendSOAP(ByVal env As SoapEnvelope, ByVal ContactID As Guid)
Try
Dim CertLookupResul t As Security.X509.X 509CertificateC ollection
CertLookupResul t = Store.FindCerti ficateBySubject String(Certific ate_Name)
If CertLookupResul t.Count = 0 Then
Dim db1SqlCon As New SqlClient.SqlCo nnection
Dim db1SqlCmd As New SqlClient.SqlCo mmand
db1SqlCon.Conne ctionString = DB_Connect_Stri ng
db1SqlCon.Open( )
db1SqlCmd.Conne ction = db1SqlCon
db1SqlCmd.Comma ndType = CommandType.Tex t
db1SqlCmd.Comma ndText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver NO CTI CERTIFICATE!')"
db1SqlCmd.Execu teNonQuery()
db1SqlCmd.Dispo se()
db1SqlCon.Close ()
db1SqlCon.Dispo se()
GC.Collect()
Exit Sub
End If
Dim ReqData As strucWebReqAndI D
Dim HTTPPost As HttpWebRequest
HTTPPost = HttpWebRequest. Create(CICS_URL )
HTTPPost.Method = "POST"
HTTPPost.Conten tType = "text/xml"
HTTPPost.Timeou t = 6000
HTTPPost.Protoc olVersion = HttpVersion.Ver sion10
HTTPPost.KeepAl ive = False
HTTPPost.Client Certificates.Ad d(CertLookupRes ult.Item(0))
ReqData.Request Envelope = env
ReqData.WebRequ est = HTTPPost
ReqData.Contact ID = ContactID
HTTPPost.BeginG etRequestStream (AddressOf GotRequestStrea m, ReqData)
GC.Collect()
Catch e As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver SendSOAP" & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Dispos e()
dbSqlCon.Close( )
dbSqlCon.Dispos e()
End Try
End Sub
Sub GotRequestStrea m(ByVal IR As IAsyncResult)
Try
Dim ReqData As strucWebReqAndI D = IR.AsyncState
Dim ReqStream As Stream = ReqData.WebRequ est.EndGetReque stStream(IR)
ReqData.Request Stream = ReqStream
Dim rEncode As Encoding = System.Text.Enc oding.GetEncodi ng("ISO-8859-1")
Dim ReqWriter As New StreamWriter(Re qStream, rEncode)
ReqWriter.Write (ReqData.Reques tEnvelope.Outer Xml)
ReqWriter.Close ()
ReqData.WebRequ est.BeginGetRes ponse(AddressOf GotResponse, ReqData)
Catch ex As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotRequestStrea m " & ex.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Dispos e()
dbSqlCon.Close( )
dbSqlCon.Dispos e()
End Try
End Sub
Sub GotResponse(ByV al IR As IAsyncResult)
Dim RespString As String
Try
Dim ReqData As strucWebReqAndI D
ReqData = IR.AsyncState
Dim HTTPResp As HttpWebResponse
HTTPResp = ReqData.WebRequ est.EndGetRespo nse(IR)
Dim RespStream As Stream = HTTPResp.GetRes ponseStream
Dim encode As Encoding = System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readStream As New StreamReader(Re spStream, encode)
RespString = readStream.Read ToEnd
HTTPResp.Close( )
Dim Replacer As RegularExpressi ons.Regex
RespString = Replacer.Replac e(RespString, "&", "+")
Dim SoapResp As New SoapEnvelope
SoapResp.LoadXm l(RespString)
RaiseEvent ProfileResponse (ParseSoapProfi leResponse(Soap Resp),
ReqData.Contact ID)
Catch e As WebException
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotRespone WebException " & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbsqlcmd.Dispos e()
dbSqlCon.Close( )
dbsqlcon.Dispos e()
Catch e As Exception
Dim dbSqlCon As New SqlClient.SqlCo nnection
Dim dbSqlCmd As New SqlClient.SqlCo mmand
dbSqlCon.Connec tionString = DB_Connect_Stri ng
dbSqlCon.Open()
dbSqlCmd.Connec tion = dbSqlCon
dbSqlCmd.Comman dType = CommandType.Tex t
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotResponse " & e.ToString & "')"
dbSqlCmd.Execut eNonQuery()
dbSqlCmd.Comman dText = "Insert Into debug_Error_Log (EventDetail) Values
('SoapDriver GotResponse String Was " & RespString & "')"
dbSqlCmd.Execut eNonQuery()
dbsqlcmd.Dispos e()
dbSqlCon.Close( )
dbsqlcon.Dispos e()
End Try
End Sub
#End Region
End Class