The underlying connection as closed: Could not establish secure channel for SSL/TLS

Discussion in 'ASP .Net Web Services' started by Ghislain Tanguay, Jul 28, 2004.

  1. Ok, I try to communicate with a web service who receive xml message under a
    https using SSL.

    I have a directory with 240 XML files on my desktop. I loop into it to send
    each file one by one.

    Abritrary, after 10, 15, 56, 79.... files, (sometimes I can pass all of
    them??? ) I receive this error :

    The underlying connection as closed: Could not establish secure channel for
    SSL/TLS

    I tried to connectiong to the webservice once for all the files, then i
    tried to open a connection for
    every file, same result.

    Anyone have an idea of what's going on? Is it my code or the webservice?

    Tks

    Here is my code.

    //////////////////////////////////// MessagerieService class generate by
    WSDL ////////////////////////////////////////////////

    Public Sub New(ByVal _Url As String, ByVal _UserName As String, ByVal
    _PassWord As String)
    MyBase.New()
    Me.Url = _Url
    Me.Credentials = New NetworkCredential(_UserName, _PassWord)
    strNomUtil = _UserName
    strMotPs = _PassWord
    End Sub


    <System.Web.Services.Protocols.SoapRpcMethodAttribute("",
    RequestNamespace:="urn:Messagerie", ResponseNamespace:="urn:Messagerie")> _
    Public Function SendindMessage(ByVal nomFile As String, _
    ByVal msg As String) _
    As
    <System.Xml.Serialization.SoapElementAttribute("result")> String

    Dim results() As Object = Me.Invoke("SendindMessage", New Object()
    {nomFile, msg})
    Return CType(results(0), String)

    End Function

    ////////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////


    This is my class who encapsulate the proxy class

    ////////////////////////////////////////////////////// ServiceWeb Class
    //////////////////////////////////////////////////////////

    Public Sub New(ByVal _Url As String, _
    ByVal _NomUtil As String, _
    ByVal _MotPs As String)

    strUrl = _Url
    strUtil = _NomUtil
    strMotPs = _MotPs
    End Sub


    Public Function SendindMessage(ByVal _nomFile As String, ByVal _msg As
    String) As String

    msg = New MessagerieService(strUrl, strUtil, strMotPs)
    Return msg.SendindMessage(_nomFile, _msg)

    End Function

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ///////


    /////////////////////////////////////////////// My form who call my
    ServiceWeb ////////////////////////////////////////////////////////

    Private Sub SendindMessage(ByVal _Fichier() As String)
    Dim intFile As Integer = _Fichier.Length
    Dim intCtr As Integer
    Dim strTest As String

    For intCtr = 0 To intFile - 1
    Try
    Dim sr As New StreamReader(File.OpenRead(_Fichier(intCtr)))
    Dim msg As New ServiceWeb(txtUrl.Text,
    txtNomUtilisateur.Text, txtMotPasse.Text)
    txtIdMessage.Text = msg.SendindMessage(txtNomDeFile.Text,
    sr.ReadToEnd)
    Catch ex As Exception
    MessageBox.Show(ex.Message)
    End Try
    Next
    MessageBox.Show("Success")
    End Sub

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////
    Ghislain Tanguay, Jul 28, 2004
    #1
    1. Advertising

  2. What is the webserver which is hosting the webservice ?

    feroze
    ======================
    This posting is provided as-is. It offers no warranties and confers no
    rights.


    "Ghislain Tanguay" <> wrote in
    message news:...
    > Ok, I try to communicate with a web service who receive xml message under

    a
    > https using SSL.
    >
    > I have a directory with 240 XML files on my desktop. I loop into it to

    send
    > each file one by one.
    >
    > Abritrary, after 10, 15, 56, 79.... files, (sometimes I can pass all of
    > them??? ) I receive this error :
    >
    > The underlying connection as closed: Could not establish secure channel

    for
    > SSL/TLS
    >
    > I tried to connectiong to the webservice once for all the files, then i
    > tried to open a connection for
    > every file, same result.
    >
    > Anyone have an idea of what's going on? Is it my code or the webservice?
    >
    > Tks
    >
    > Here is my code.
    >
    > //////////////////////////////////// MessagerieService class generate by
    > WSDL ////////////////////////////////////////////////
    >
    > Public Sub New(ByVal _Url As String, ByVal _UserName As String, ByVal
    > _PassWord As String)
    > MyBase.New()
    > Me.Url = _Url
    > Me.Credentials = New NetworkCredential(_UserName, _PassWord)
    > strNomUtil = _UserName
    > strMotPs = _PassWord
    > End Sub
    >
    >
    > <System.Web.Services.Protocols.SoapRpcMethodAttribute("",
    > RequestNamespace:="urn:Messagerie", ResponseNamespace:="urn:Messagerie")>

    _
    > Public Function SendindMessage(ByVal nomFile As String, _
    > ByVal msg As String) _
    > As
    > <System.Xml.Serialization.SoapElementAttribute("result")> String
    >
    > Dim results() As Object = Me.Invoke("SendindMessage", New Object()
    > {nomFile, msg})
    > Return CType(results(0), String)
    >
    > End Function
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    > ///////////////////////////////////////////////////////////////////////
    >
    >
    > This is my class who encapsulate the proxy class
    >
    > ////////////////////////////////////////////////////// ServiceWeb Class
    > //////////////////////////////////////////////////////////
    >
    > Public Sub New(ByVal _Url As String, _
    > ByVal _NomUtil As String, _
    > ByVal _MotPs As String)
    >
    > strUrl = _Url
    > strUtil = _NomUtil
    > strMotPs = _MotPs
    > End Sub
    >
    >
    > Public Function SendindMessage(ByVal _nomFile As String, ByVal _msg As
    > String) As String
    >
    > msg = New MessagerieService(strUrl, strUtil, strMotPs)
    > Return msg.SendindMessage(_nomFile, _msg)
    >
    > End Function
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    >

    ////////////////////////////////////////////////////////////////////////////
    > ///////
    >
    >
    > /////////////////////////////////////////////// My form who call my
    > ServiceWeb ////////////////////////////////////////////////////////
    >
    > Private Sub SendindMessage(ByVal _Fichier() As String)
    > Dim intFile As Integer = _Fichier.Length
    > Dim intCtr As Integer
    > Dim strTest As String
    >
    > For intCtr = 0 To intFile - 1
    > Try
    > Dim sr As New

    StreamReader(File.OpenRead(_Fichier(intCtr)))
    > Dim msg As New ServiceWeb(txtUrl.Text,
    > txtNomUtilisateur.Text, txtMotPasse.Text)
    > txtIdMessage.Text = msg.SendindMessage(txtNomDeFile.Text,
    > sr.ReadToEnd)
    > Catch ex As Exception
    > MessageBox.Show(ex.Message)
    > End Try
    > Next
    > MessageBox.Show("Success")
    > End Sub
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    >

    ////////////////////////////////////////////////////////////////////////////
    > ////////
    >
    >
    Feroze [msft], Jul 28, 2004
    #2
    1. Advertising

  3. The web server is as Java web server

    https://wsa.sei.pes.qc/sei/servlet/rpcrouter





    "Ghislain Tanguay" <> a écrit dans
    le message de news:...
    > Ok, I try to communicate with a web service who receive xml message under

    a
    > https using SSL.
    >
    > I have a directory with 240 XML files on my desktop. I loop into it to

    send
    > each file one by one.
    >
    > Abritrary, after 10, 15, 56, 79.... files, (sometimes I can pass all of
    > them??? ) I receive this error :
    >
    > The underlying connection as closed: Could not establish secure channel

    for
    > SSL/TLS
    >
    > I tried to connectiong to the webservice once for all the files, then i
    > tried to open a connection for
    > every file, same result.
    >
    > Anyone have an idea of what's going on? Is it my code or the webservice?
    >
    > Tks
    >
    > Here is my code.
    >
    > //////////////////////////////////// MessagerieService class generate by
    > WSDL ////////////////////////////////////////////////
    >
    > Public Sub New(ByVal _Url As String, ByVal _UserName As String, ByVal
    > _PassWord As String)
    > MyBase.New()
    > Me.Url = _Url
    > Me.Credentials = New NetworkCredential(_UserName, _PassWord)
    > strNomUtil = _UserName
    > strMotPs = _PassWord
    > End Sub
    >
    >
    > <System.Web.Services.Protocols.SoapRpcMethodAttribute("",
    > RequestNamespace:="urn:Messagerie", ResponseNamespace:="urn:Messagerie")>

    _
    > Public Function SendindMessage(ByVal nomFile As String, _
    > ByVal msg As String) _
    > As
    > <System.Xml.Serialization.SoapElementAttribute("result")> String
    >
    > Dim results() As Object = Me.Invoke("SendindMessage", New Object()
    > {nomFile, msg})
    > Return CType(results(0), String)
    >
    > End Function
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    > ///////////////////////////////////////////////////////////////////////
    >
    >
    > This is my class who encapsulate the proxy class
    >
    > ////////////////////////////////////////////////////// ServiceWeb Class
    > //////////////////////////////////////////////////////////
    >
    > Public Sub New(ByVal _Url As String, _
    > ByVal _NomUtil As String, _
    > ByVal _MotPs As String)
    >
    > strUrl = _Url
    > strUtil = _NomUtil
    > strMotPs = _MotPs
    > End Sub
    >
    >
    > Public Function SendindMessage(ByVal _nomFile As String, ByVal _msg As
    > String) As String
    >
    > msg = New MessagerieService(strUrl, strUtil, strMotPs)
    > Return msg.SendindMessage(_nomFile, _msg)
    >
    > End Function
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    >

    ////////////////////////////////////////////////////////////////////////////
    > ///////
    >
    >
    > /////////////////////////////////////////////// My form who call my
    > ServiceWeb ////////////////////////////////////////////////////////
    >
    > Private Sub SendindMessage(ByVal _Fichier() As String)
    > Dim intFile As Integer = _Fichier.Length
    > Dim intCtr As Integer
    > Dim strTest As String
    >
    > For intCtr = 0 To intFile - 1
    > Try
    > Dim sr As New

    StreamReader(File.OpenRead(_Fichier(intCtr)))
    > Dim msg As New ServiceWeb(txtUrl.Text,
    > txtNomUtilisateur.Text, txtMotPasse.Text)
    > txtIdMessage.Text = msg.SendindMessage(txtNomDeFile.Text,
    > sr.ReadToEnd)
    > Catch ex As Exception
    > MessageBox.Show(ex.Message)
    > End Try
    > Next
    > MessageBox.Show("Success")
    > End Sub
    >
    >

    ////////////////////////////////////////////////////////////////////////////
    >

    ////////////////////////////////////////////////////////////////////////////
    > ////////
    >
    >
    Ghislain Tanguay, Jul 29, 2004
    #3
  4. Ghislain Tanguay

    suresh g Guest

    Re: The underlying connection as closed: Could not establish secur

    I have the same problem. Any suggestions are welcome.

    Thanks
    Suresh

    "Ghislain Tanguay" wrote:

    > The web server is as Java web server
    >
    > https://wsa.sei.pes.qc/sei/servlet/rpcrouter
    >
    >
    >
    >
    >
    > "Ghislain Tanguay" <> a écrit dans
    > le message de news:...
    > > Ok, I try to communicate with a web service who receive xml message under

    > a
    > > https using SSL.
    > >
    > > I have a directory with 240 XML files on my desktop. I loop into it to

    > send
    > > each file one by one.
    > >
    > > Abritrary, after 10, 15, 56, 79.... files, (sometimes I can pass all of
    > > them??? ) I receive this error :
    > >
    > > The underlying connection as closed: Could not establish secure channel

    > for
    > > SSL/TLS
    > >
    > > I tried to connectiong to the webservice once for all the files, then i
    > > tried to open a connection for
    > > every file, same result.
    > >
    > > Anyone have an idea of what's going on? Is it my code or the webservice?
    > >
    > > Tks
    > >
    > > Here is my code.
    > >
    > > //////////////////////////////////// MessagerieService class generate by
    > > WSDL ////////////////////////////////////////////////
    > >
    > > Public Sub New(ByVal _Url As String, ByVal _UserName As String, ByVal
    > > _PassWord As String)
    > > MyBase.New()
    > > Me.Url = _Url
    > > Me.Credentials = New NetworkCredential(_UserName, _PassWord)
    > > strNomUtil = _UserName
    > > strMotPs = _PassWord
    > > End Sub
    > >
    > >
    > > <System.Web.Services.Protocols.SoapRpcMethodAttribute("",
    > > RequestNamespace:="urn:Messagerie", ResponseNamespace:="urn:Messagerie")>

    > _
    > > Public Function SendindMessage(ByVal nomFile As String, _
    > > ByVal msg As String) _
    > > As
    > > <System.Xml.Serialization.SoapElementAttribute("result")> String
    > >
    > > Dim results() As Object = Me.Invoke("SendindMessage", New Object()
    > > {nomFile, msg})
    > > Return CType(results(0), String)
    > >
    > > End Function
    > >
    > >

    > ////////////////////////////////////////////////////////////////////////////
    > > ///////////////////////////////////////////////////////////////////////
    > >
    > >
    > > This is my class who encapsulate the proxy class
    > >
    > > ////////////////////////////////////////////////////// ServiceWeb Class
    > > //////////////////////////////////////////////////////////
    > >
    > > Public Sub New(ByVal _Url As String, _
    > > ByVal _NomUtil As String, _
    > > ByVal _MotPs As String)
    > >
    > > strUrl = _Url
    > > strUtil = _NomUtil
    > > strMotPs = _MotPs
    > > End Sub
    > >
    > >
    > > Public Function SendindMessage(ByVal _nomFile As String, ByVal _msg As
    > > String) As String
    > >
    > > msg = New MessagerieService(strUrl, strUtil, strMotPs)
    > > Return msg.SendindMessage(_nomFile, _msg)
    > >
    > > End Function
    > >
    > >

    > ////////////////////////////////////////////////////////////////////////////
    > >

    > ////////////////////////////////////////////////////////////////////////////
    > > ///////
    > >
    > >
    > > /////////////////////////////////////////////// My form who call my
    > > ServiceWeb ////////////////////////////////////////////////////////
    > >
    > > Private Sub SendindMessage(ByVal _Fichier() As String)
    > > Dim intFile As Integer = _Fichier.Length
    > > Dim intCtr As Integer
    > > Dim strTest As String
    > >
    > > For intCtr = 0 To intFile - 1
    > > Try
    > > Dim sr As New

    > StreamReader(File.OpenRead(_Fichier(intCtr)))
    > > Dim msg As New ServiceWeb(txtUrl.Text,
    > > txtNomUtilisateur.Text, txtMotPasse.Text)
    > > txtIdMessage.Text = msg.SendindMessage(txtNomDeFile.Text,
    > > sr.ReadToEnd)
    > > Catch ex As Exception
    > > MessageBox.Show(ex.Message)
    > > End Try
    > > Next
    > > MessageBox.Show("Success")
    > > End Sub
    > >
    > >

    > ////////////////////////////////////////////////////////////////////////////
    > >

    > ////////////////////////////////////////////////////////////////////////////
    > > ////////
    > >
    > >

    >
    >
    >
    suresh g, Sep 3, 2004
    #4
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.

Share This Page