WMS erreur 400 : the SSL certificate error

Bonjour,

Dans le cadre d'un développement en VB6, j'ai créé un module permettant de lire et d'afficher du WMS à partir de serveur avec et sans identification dans le Header.

Cela fonctionne sur des serveurs gratuits ainsi que sur Geofoncier avec identification, cependant sur le serveur IGN de Géoportail il semble y avoir un problème de connexion.

J'ai cette erreur lors du GetCapabilities: http://hpics.li/5a92345

En levant le "s" du "https" je peu récupéré le fichier XML du GetCapabilities.
Mais lors du GetMap l'erreur reviens avec et sans le "s", les paramètres semblent Ok et clé/login/mdp fonctionnent sous Qgis.

Voici le code des deux requêtes qui est le même,
Est-ce que quelqu'un pourrait m'aider svp je cherche depuis 2 semaines sans résultats, merci pour toutes aides:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

''''''''''''''''''''''''Requete récupération du fichier xml''''''''''''''''''''''''''''''''''' Dim strBody As String Dim strReponse As String Dim bytReponse() As Byte Dim WinHttpReq As WinHttpRequest Set WinHttpReq = New WinHttpRequest WinHttpReq.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_Ignore_All WinHttpReq.setTimeouts 0, 60000, 60000, 60000 WinHttpReq.Open "GET", url_WMS & "?" & adresse, False If (AJOUT_COUCHES_WMS.login_wms <> "" And AJOUT_COUCHES_WMS.mdp_wms <> "") Then ''seulement si il y a des identifiant/mdp WinHttpReq.setRequestHeader "Authorization", "Basic " & Encode_Base64(AJOUT_COUCHES_WMS.login_wms & ":" & AJOUT_COUCHES_WMS.mdp_wms) End If WinHttpReq.send If (WinHttpReq.Status = 200) Then bytReponse = WinHttpReq.responseBody 'conversion de l'UTF-8 strReponse = ConvertUtf8BytesToString(bytReponse) If (strReponse = "") Then MsgBox "Aucun résultat" GoTo ERREUR End If Else bytReponse = WinHttpReq.responseBody strReponse = ConvertUtf8BytesToString(bytReponse) MsgBox strReponse GoTo ERREUR End If ' destruction de l'objet Set WinHttpReq = Nothing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

---

Depuis l'ouverture de services en https, la configuration du certificat et de l'url à toujours posé des problèmes à l'IGN et à son hébergeur.

Dans les contournements, il possible de ne pas vérifier le certificat.
Une autre possibilité est d'ajouter le certificat dans le magasin de certificats. En Windows, cela se passe avec certmgr.msc mais je ne sais pas faire.

En utilisant un objet XMLHTTP (msxml6.dll) plutôt que WinHttpRequest (winhttp.dll), les requêtes GetMap fonctionnent.

Bonjour,

Merci à vous pour vos réponses, en effet l'objet XMLHTTP semble parfaitement fonctionner et le problème de certification est réglé!!
Merci!

Voici le code corrigé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

''''''''''''''''''''''''Requete récupération du fichier xml''''''''''''''''''''''''''''''''''' Dim strBody As String Dim strReponse As String Dim bytReponse() As Byte Dim objXMLHTTP As MSXML2.XMLHTTP Set objXMLHTTP = New XMLHTTP ' 'On envoi une requete a un service distant objXMLHTTP.Open "GET", url_WMS & "?" & adresse, False Clipboard.CLEAR Clipboard.SetText url_WMS & "?" & adresse ' 'Méthode Basic Authentification dans le Header If (AJOUT_COUCHES_WMS.login_wms <> "" And AJOUT_COUCHES_WMS.mdp_wms <> "") Then ''seulement si il y a des identifiant/mdp objXMLHTTP.setRequestHeader "Authorization", "Basic " & Encode_Base64(AJOUT_COUCHES_WMS.login_wms & ":" & AJOUT_COUCHES_WMS.mdp_wms) End If objXMLHTTP.send 'Si la requete a bien fonctionner If (objXMLHTTP.Status = 200) Then bytReponse = objXMLHTTP.responseBody ''....etc

---