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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Partager