Meilleure méthode pour envoi de données par POST

Version imprimable

06/03/2013, 07h12
Pouknouki

Meilleure méthode pour envoi de données par POST
Bonjour,

Dans mon programme j'ai besoin d'envoyer des données liées à l'utilisation sur un serveur, ce que je fais par requête POST sur un script PHP. Cependant il arrive que cette action soit un peu longue du coup pendant ce temps, le programme ne répond pas vraiment, il n'enregistre plus les données et de plus après il arrive que les données enregistrées soit fausses (pas d'enregistrement, enregistrement en double...). Tout cela m'embête et j'ai eu l'idée de mettre la procédure d'envoi dans un BackgroundWorker histoire que ça n'influence pas le programme principal. Deux questions : est ce que c'est la bonne méthode ET est ce que c'est normal que le programme continue à laguer un petit peu ?

Encore une question : j'aimerais modifier l'icône de notification quand j'envoie les données, de manière à que l'utilisateur sache quand les données sont envoyées, et quand c'est terminé, cependant :
- Si je demande au BackgroudWorker de modifier l'icône (et le curseur de la souris aussi), une exception est levée car je tente de faire une opération inter-threads
- Si je le fais dans le programme, l'icône est définie, mais comme le BackgroundWorker fait une tâche en parallèle, et que mon code ressemble à :
  ChangerIcone(IconeEnvoi)
  BackgroundWorker.RunWorkerASync
  ChangerIcone(IconeNormale)
  Bah l'icône est redéfinir tout de suite en normale
Alors quelle est selon vous la solution à mon problème ?

Merci d'avance

Thomas
06/03/2013, 19h13
meziantou

Le background worker doit correspondre à ton besoin.

Pour ton problème d'icone il faut gérer l'évènement RunWorkerCompleted du background worker pour remettre l'icone par défaut. De plus tu as aussi l'évènement ProgressChanged qui permet de notifier l'utilisateur de l'avancement.
06/03/2013, 19h24
Pouknouki

Et as tu des idées pour le comptage en double, les lags... ? On m'a parlé des délégués, est ce que ça peut m'aider ?
06/03/2013, 19h45
meziantou

Pas d'idée sans plus d'info sur ton programme. Je ne vois pas en quoi les délégués pourraient aider.

D'accord. En fait le programme est un compteur de clics, de touches et de scrolls qui fonctionne grâce à ces deux hooks :
http://pastebin.com/FHn18WFs
http://pastebin.com/yeqtX5pi
Après, je propose aux gens de mettre leur statistiques sur mon site pour avoir encore plus de statistiques inutiles (et donc indispensables, voir ici). Tout cela fonctionne, il n'y a que la partie Interaction Programme <-> Serveur qui fonctionne mal et qui cause des problèmes au programme.
J'utilise ce code pour envoyer les requêtes POST :

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
  Public Function HttpPost(ByVal URI As String, ByVal Parameters As String) As String
        System.Net.ServicePointManager.Expect100Continue = False
        Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create(URI), HttpWebRequest)
        'req.Proxy = new WebProxy("127.0.0.1:8080");
        req.ContentType = "application/x-www-form-urlencoded"
        req.Method = "POST"
        req.Headers.Add("Cookie: PHPSESSID=72ee54199f05f4123f50f6cb7e0f0bfb")
        Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(Parameters)
        req.ContentLength = bytes.Length
        Dim os As System.IO.Stream = req.GetRequestStream()
        os.Write(bytes, 0, bytes.Length)
        os.Close()
        Dim resp As HttpWebResponse = Nothing
        Try
            resp = DirectCast(req.GetResponse(), HttpWebResponse)
        Catch ew As Exception
            Dim coucou As String = ew.Message
        End Try
        If resp Is Nothing Then
            Return Nothing
        End If
        Dim sr As New System.IO.StreamReader(resp.GetResponseStream())
        'MessageBox.Show("STATUSCODE = " + resp.StatusCode.ToString());
        Return sr.ReadToEnd().Trim()
    End Function

Que j'appelle avec cette fonction qui envoie les données

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
   Sub EnvoyerDonnees()
        If Username = "" Then
            MsgBox("Avant d'envoyer les données sur Internet, veuillez vous identifier dans la configuration")
            Exit Sub
        End If
        If ConnexionInternet = False Then
            MsgBox("Vous n'êtes pas connecté à Internet. Pour réexécuter le test de connexion, rendez-vous dans les paramètres")
            Exit Sub
        End If
        Dim param = "&username=" & Username & "&clicsgauches=" & NbrClicsGauches & "&clicsdroits=" & NbrClicsDroits & "&clicsmilieu=" & NbrClicsMilieu & "&scrollshaut=" & NbrScrollsHaut & "&scrollsbas=" & NbrScrollsBas & "&touches=" & NbrTouches & "&temps=" & Temps
        Dim ResultatHttpPost = HttpPost(AdresseServeur & "upload.php", param)
        If ResultatHttpPost = "0" Then
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "TAE", AES_Encrypt(0, CryptKey))
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "CDAE", AES_Encrypt(0, CryptKey))
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "SHAE", AES_Encrypt(0, CryptKey))
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "SBAE", AES_Encrypt(0, CryptKey))
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "CMAE", AES_Encrypt(0, CryptKey))
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Citrik Digital Inc.\CitriClics", "CGAE", AES_Encrypt(0, CryptKey))
            NbrTouchesAE = 0
            NbrClicsAE = 0
            NbrClicsDroitsAE = 0
            NbrClicsGauchesAE = 0
            NbrClicsMilieuAE = 0
            NbrScrollsAE = 0
            NbrScrollsHautAE = 0
            NbrScrollsBasAE = 0
            SauverDonnees()
            Parametres.FaireLoad()
        Else
            MsgBox("Désolé, mais une erreur fatale est survenue (erreur : " & vbCrLf & ResultatHttpPost, vbCritical, "Erreur")
        End If
        Afficher()
    End Sub

Si tu veux plus de détails, demande moi.