> 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
>
>
////////////////////////////////////////////////////////////////////////////
>
////////////////////////////////////////////////////////////////////////////
> ////////
>
>

> 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" wrote:

> The web server is as Java web server
>
> https://wsa.sei.pes.qc/sei/servlet/rpcrouter
>
>
>
>
>
> "Ghislain Tanguay" <ghislaintanguay3DELETETHISPART@hotmail.com> a écrit dans
> le message de news:ePlqBpLdEHA.1040@TK2MSFTNGP10.phx.gbl...
> > 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
> >
> >
> ////////////////////////////////////////////////////////////////////////////
> >
> ////////////////////////////////////////////////////////////////////////////
> > ////////
> >
> >
>
>