[VB6] Comment gérer un Timeout sur l'api HttpSendRequest

Version imprimable

[VB6] Gestion Asynchrone des api wininet

Bonjour,

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

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.

++

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:

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:

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.

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

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
'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

12/06/2006, 14h29
jmfmarques

Citation:

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

je dirais

Citation:

Do While iRetVal = 0 And timer <= (Start + PauseTime)
15/06/2006, 10h15
marsup54

[VB6] Gestion Asynchrone des api wininet

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