Buongiorno, riapro una mia discussione di un po di tempo fa sui web services per la ricetat dematerializzata delal regione lazio.(http://www.visual-basic.it/Forum/tabid/151/aft/43404/Default.aspx#.WUEJj5Dyhpg)
Da un po ricevo l'errore in oggetto: impossibile accedere a un flusso chiuso
Dim b As New BasicHttpBinding()
With b
.TransferMode = TransferMode.Streamed
.MessageEncoding = WSMessageEncoding.Mtom
.Security.Mode = BasicHttpSecurityMode.Transport
.SendTimeout = New TimeSpan(0, 1, 30)
End With
Dim ea As EndpointAddress
Try
ea = New EndpointAddress(endpointAddressX)
Catch ex As Exception
MessageBox.Show("Errore 2: "& ex.Message & ""& ex.ToString)
Me.Close()
End Try
Dim client As WsVisualizzaErogato.visualizzaErogatoPTClient = New WsVisualizzaErogato.visualizzaErogatoPTClient(b, ea)
client.Endpoint.Behaviors.Add(New ClasseBasicAut.BasicAuthenticationBehavior(username:=utente.Text, password:=password.Text))
' Permette di annullare/Bypassare l'errore di certificato non conforme
System.Net.ServicePointManager.ServerCertificateValidationCallback = Function(sende, certificate, chain, sslPolicyErrors) True
Dim Req As New WsVisualizzaErogato.visualizzaErogatoRequest
Dim Resp As New WsVisualizzaErogato.visualizzaErogatoResponse
Dim Richi As New WsVisualizzaErogato.VisualizzaErogatoRichiesta
Dim ric As WsVisualizzaErogato.VisualizzaErogatoRicevuta
Try
ric = client.visualizzaErogato(er)
Catch ex As ServiceModel.EndpointNotFoundException
Dim msg As New StringBuilder
msg.AppendLine("Controllare la connessione internet")
msg.AppendLine("")
msg.AppendLine("Errore: "& ex.Message)
If Not ex.InnerException Is Nothing Then
msg.AppendLine("Eccezione: "& ex.ToString())
'Me.Close() questo
End If
MessageBox.Show(msg.ToString, "Messaggio di errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
' ERRORE GENERICO
MessageBox.Show("Errore 3: "& ReadException(ex) & ""& ex.ToString)
Me.Close()
End Try
questo la parte di codice dove da l errore.
La cosa strana e' che prima con gli endpoint di prova funzionava tutto. ora con gli endpoint da quest errore.
questo l'endpoint di prova: https://sismed-collaudo.test.laitspa.it/erode-ws/service/VisualizzaErogatoService
questo qeullo definitivo: https://prescrizione.poslazio.it/erode-ws/service/VisualizzaErogatoService
Quelli della regione Lazio non rispondono..spero che qualcuno qui mi possa aiutare.
Grazie