Aide à l'utilisation de WinHttpRequest [Résolu]

[Orion34080]

bonjour
Je dois récupérer un fichier par une requete HTTP

on m'a dit d'utiliser WinHttpRequest
Pour ce faire, j'ai référencé comme indiqué "Microsoft winhttp services 5.1" .

J'ai bcp de mal à comprendre comment fonctionne et comment on paramètre cet objet.

Qqun saurait-il me donner un exemple pas trop compliqué :-)

D'avance merci
Michel

[keita]

bonjour
essai cette piste:
Sur le click d'un bouton

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim whrReq As WinHttp.WinHttpRequest
Set whrReq = New WinHttp.WinHttpRequest
With whrReq
       .Open "POST", strUrl, False  ' http://www.mon_site.................
       .send
              If .StatusText = "OK" Then
               msgbox .StatusText
 
	      Else
		  msgbox "Un problème est survenu;le serveur ne repond peut être pas.",vbexclamation,"mon_apli"
	     End if	
End with
Set whrReq = Nothing

TRES IMPORTANT:
pour l'utilisation de WinHttp,
- s'assurer que ton windows (xp pro ou +) est à jour
- utiliser un bon logiciel antivirus ou antispywares
@+

[Orion34080]

Merci pour ta réponse qui m'éclaire (en partie)

puis-je abuser ?

L'URL du fichier "index.txt" que je dois "lire" est de ce style :
strurl = "http://domino.XXX.XXX.fr:55228/Desk/index.txt"

(et quand je colle cette URL dans mon navigateur le contenu du fichier s'affiche bien ---> j'en conclue donc que le serveur est joignable)

j'ai donc écrit ceci sur le modèle que tu m'as fourni (dans ACCESS 2002 SP3):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Scan()
Dim strurl As String
Dim whrReq As WinHttp.WinHttpRequest
 
strurl = "http://domino.XXX.XXX.fr:55228/Desk/index.txt"
 
Set whrReq = New WinHttp.WinHttpRequest
With whrReq
.Open "POST", strurl, False '
.Send
If .StatusText = "OK" Then
MsgBox .StatusText
Else
MsgBox "Un problème est survenu;le serveur ne repond peut être pas.", vbExclamation, "mon_apli"
End If
End With
Set whrReq = Nothing
End Function

Et j'ai systématiquement à l'execution : "Un probleme est survenu, le serveur ne répond peut être pas". OR le serveur semble joignable (avec le navigateur internet)

D'autre part, je ne comprends pas comment je peux récupérer (si j'arrive à ne plus avoir l'erreur ci-dessus) le contenu du fichier texte demandé

J'ai toutefois essayé avec un "GET" à la Place du "POST" et là j'obtiens un StatusText "Ok" ... mais comment récupérer le contenu de ce fichier texte ?

Merci de ton aide
Michel

[LedZeppII]

Bonsoir,

Le contenu devrait se trouver dans le membre ResponseText de l'objet WinHttpRequest.

A+

[keita]

bonjour

Le contenu devrait se trouver dans le membre ResponseText de l'objet WinHttpRequest.

c'est bien cela LedZeppII; j'ai pensé qu'il avait besoin juste d'une piste.
Et comme nous n'avons pas droit à son url, j'ai mis un fichier txt sur sur un site que je suis en train de créer dont le lien est dans le code çi dessous:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function EssaiWinHTTP()
    Dim whrReq As WinHttp.WinHttpRequest, strUrl As String
    Set whrReq = New WinHttp.WinHttpRequest
    strUrl = "http://domino.XXX.XXX.fr:55228/Desk/index.txt"
    With whrReq
        .Open "GET", strUrl, False
        .send
            If .Status = 200 Then
                Me.txtMessage = whrReq.ResponseText
                Else
                    MsgBox whrReq.Status
            End If      
    End With
    Set whrReq = Nothing
End Function

1/ Tu crées un form, une zone de texte (txtmessage dans mon code) et un bouton.
2/ s'il y a lieu de s'identifier sur ton site, c'est dans ton url que tu la mettras (Login et password).

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
Private Function AutentificationAvecWinHTTP()
    Dim whrReq As WinHttp.WinHttpRequest, strUrl As String
    Set whrReq = New WinHttp.WinHttpRequest
    Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
    Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
 
    strUrl = "http://domino.XXX.XXX.fr:55228/Desk/index.txt"
    ' Assemble une requête HTTP.
    whrReq.Open "GET", strUrl, False
    whrReq.SetCredentials Me.txtLogin, Me.txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    ' whrReq.SetCredentials Me.txtLogin, Me.txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
    whrReq.Send
    msgbox whrReq.Status & "  " & whrReq.StatusText
    ' Teste le statut du code retourné par le serveur.
    Select Case whrReq.Status
        Case 200    ' Document retrouvé; la requete a aboutit
            Me.txtMessage = whrReq.ResponseText
        Case 401    ' Le serveur demande une authentication
            MsgBox "Erreur d'authentification (serveur)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
            Exit Function
        Case 407  ' Demande d'identification par le proxy
            MsgBox "Erreur d'authentification (proxy)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
            Exit Function
    End Select
End Function

3/ C'est le retour donné par msgbox whrReq.Status & " " & whrReq.StatusText qui nous permettra de choisir entre les 2 constantes:
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
ou
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1

Une fois le code retour connu, tu pourras effacer la ligne du msgnox

j 'espère que ça va marcher.
@+

[Orion34080]

Merci, grace à vos expli m'en suis sorti avec :

StrURL = "http://XXX.XXX.XXX.fr:XXXX/Desk/" & Nom_Fichier

Set whrReq = New WinHttp.WinHttpRequest
With whrReq
.Open "GET", StrURL, False ' http://www.mon_site.................
.Send

If .StatusText = "OK" Then
Texte = .ResponseText
Else
etc.

Super vos contributions !
Michel