Discussion :

[marsup54]

Bonjour,

Le code ci dessous, permet de lire un flux http d'un fichier se trouvant sur un serveur distant.

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
'Create an internet connection
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If CBool(hOpen) Then
    'Ouverture du pointeur HTTP
    hConnect = InternetConnect(hOpen, stUrlDeb, INTERNET_DEFAULT_HTTP_PORT, vbNullString, _
                vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
    If hConnect > 0 Then
        'Préparation de l'ouverture de la page
        hRequest = HttpOpenRequest(hConnect, "GET", stUrlFin, "HTTP/1.0", vbNullString, 0, _
                INTERNET_FLAG_KEEP_CONNECTION, 0)
        If CBool(hRequest) Then
            'sHeader = "Connection: Keep-Alive" & vbCrLf
            'iRetVal = HttpAddRequestHeaders(hRequest, sHeader, Len(sHeader), HTTP_ADDREQ_FLAG_REPLACE Or HTTP_ADDREQ_FLAG_ADD)
            'Debug.Print iRetVal & " " & sHeader;
            iRetVal = HttpSendRequest(hRequest, vbNullString, 0, vbNullString, 0)
.....

Le problème est le suivant :
Quand le serveur est très lent à répondre (pas quand il est down car sinon un code retour envoyé), l'api HttpSendRequest attend une réponse et reste donc bloquée (parfois plusieurs minutes ...).
Du coup, mon application se "gèle" ce qui est très génant !

Y'a-t-il un moyen de gérer un timeout sur cette api ? Ou alors de pouvoir stoper l'exécution de cette api ?

Merci d'avance pour votre aide.

++

[marsup54]

Bon, j'ai trouvé peut-être une méthode, mais ça parait un peu chaud ...

En fait, il faut gérer tout ça en asynchrone ...
On passe le paramètre INTERNET_FLAG_ASYNC en paramètre dans la fonction ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, INTERNET_FLAG_ASYNC)

Ensuite, on procède de la même manière que précédemment, sauf qu'il faut utiliser la fonction HttpSendRequestEx à la place de la fonction HttpSendRequestEx.

Cette fonction est défini comme suit :

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
Public Type INTERNET_BUFFERS
    dwStructSize As Long        ' used for API versioning. Set to sizeof(INTERNET_BUFFERS)
    Next As Long                ' INTERNET_BUFFERS chain of buffers
    lpcszHeader As Long       ' pointer to headers (may be NULL)
    dwHeadersLength As Long     ' length of headers if not NULL
    dwHeadersTotal As Long      ' size of headers if not enough buffer
    lpvBuffer As Long           ' pointer to data buffer (may be NULL)
    dwBufferLength As Long      ' length of data buffer if not NULL
    dwBufferTotal As Long       ' total size of chunk, or content-length if not chunked
    dwOffsetLow As Long         ' used for read-ranges (only used in HttpSendRequest2)
    dwOffsetHigh As Long
End Type
 
Public Declare Function HttpSendRequestEx Lib "wininet.dll" Alias "HttpSendRequestExA" _
    (ByVal hHttpRequest As Long, lpBuffersIn As INTERNET_BUFFERS, ByVal lpBuffersOut As Long, _
    ByVal dwFlags As Long, ByVal dwContext As Long) As Long

J'ai par contre un peu de mal à voir comment appeler cette api, et la gérer ...

Merci d'avance pour votre contribution.

[marsup54]

J'ai trouvé ça, mais je pense qu'il doit y avoir des bugs sur les api wininet !

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
'Test Asynchrone
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, INTERNET_FLAG_ASYNC)
If CBool(hOpen) Then
    'Test Asynchrone avec un serveur virtuel qui attends 15 secondes avant de retourner la chaine souhaitée
    stUrlDeb = "127.0.0.1"
    hConnect = InternetConnect(hOpen, stUrlDeb, 8080, vbNullString, _
                vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
    If hConnect > 0 Then
        'Préparation de l'ouverture de la page
        hRequest = HttpOpenRequest(hConnect, "GET", stUrlFin, "HTTP/1.0", vbNullString, 0, _
                INTERNET_FLAG_KEEP_CONNECTION, 0)
        If CBool(hRequest) Then
            'Test asynchrone
            PauseTime = 5000    ' Définit la durée de temporisation en ms.
            Start = Timer    ' Définit l'heure de début.
            Do While iRetVal = 0 And EnCours < (Start + PauseTime)
                iRetVal = HttpSendRequest(hRequest, vbNullString, 0, vbNullString, 0)
                EnCours = Timer
 
                'InternetReadFile Open_Requete, tampon, Len(tampon), Nbr_Char
                'Lecture de la page dans le buffer
                DoEvents ' Donne le contrôle à d'autres processus.
            Loop
			.....

Ca semble pourtant bien fonctionné en mode debug, mais dès que l'on est en exécution normal, j'ai un message de planbtage de VB6 ...

Une idée ?

Merci d'avance pour votre aide.

++

EDIT :
J'ai trouvé ce lien en DotNet ...
http://www.developer.com/net/csharp/article.php/3436841

[jmfmarques]

Do While iRetVal = 0 And EnCours < (Start + PauseTime)

je dirais

Do While iRetVal = 0 And timer <= (Start + PauseTime)

[marsup54]

Ca ne change rien, Visual basic plante sytématiquement !

J'ai épluché tout le Web pour trouver des infos sur la gestion asynchrone en VB, mais à part le lien suivant (que je n'arrive pas au passage à mettre en oeuvre), il n'y a quasiment rien du tout !

http://support.microsoft.com/default...%3Bfr%3B189850

Je pense que cela a du forcément être utilisé par le passé !

Je continue mes recherches ! D'avance merci pour les personnes qui pourront m'aider dans mes recherches.

++

EDIT :
Pour les pros en C, voici une méthode ...
http://www.codeguru.com/Csharp/.NET/...cle.php/c8665/

EDIT 2 :
Bon apparemment, le mode asynchrone n'est pas conseillé avec les api wininet sous Visual Basic 6 (ça fonctionne sous VB5 par contre ... bizarre) ...
Ca doit fonctionné en mode compilé mais pas en debug