Aweb's http parser - parseur http

Télécharger le projet
Commenter

Description

Aweb's HTTP parser est un parseur HTTP, c'est à dire qu'il peut trouver plusieurs informations dans une requète HTTP telles que le nom de page, le protocole utilisé, la méthode d'envoi dde formulaire utilisée, les données envoyées par formulaire etc...

Ce code a été concu pour être utilisé dans tout projet intégrant un serveur HTTP, mais vous pouvez l'utiliser comme vous voulez.

Le module a été concu pour pouvoir être utilisé seul dans un autre projet.

Pardonnez le peu de commentaires, c'est pas mon fort ;)

Source / Exemple : 


'Voici le contenu du module, où est réellement le parseur HTTP

'Détail des fonctions :
'- Testparse est utilisé seulement sur le projet de test pour afficher les infos dans les textboxs (supprimmé ici car inutile)
'- Les autres servent à obtenir les différentes infos. Leur nom est assez explicite ;)

Public Function HTTPmethod(ByVal Request As String) As String
Dim RequestLines() As String
Dim TempArray() As String
RequestLines = Split(Request, vbCrLf)
TempArray = Split(RequestLines(0), " ")
HTTPmethod = TempArray(0)
End Function

Public Function HTTPprotocol(ByVal Request As String) As String
Dim RequestLines() As String
Dim TempArray() As String
RequestLines = Split(Request, vbCrLf)
TempArray = Split(RequestLines(0), " ")
HTTPprotocol = TempArray(UBound(TempArray))
End Function

Public Function HTTPpage(ByVal Request As String) As String
Dim RequestLines() As String
Dim TempArray() As String
RequestLines = Split(Request, vbCrLf)
TempArray = Split(RequestLines(0), " ")
TempArray = Split(TempArray(UBound(TempArray) - 1), "?")
HTTPpage = TempArray(0)
End Function

Public Function HTTPget(ByVal Request As String) As String
Dim RequestLines() As String
Dim TempArray() As String
RequestLines = Split(Request, vbCrLf)
TempArray = Split(RequestLines(0), " ")
TempArray = Split(TempArray(UBound(TempArray) - 1), "?")
If UBound(TempArray) > 0 Then
    HTTPget = TempArray(1)
Else
    HTTPget = ""
End If
End Function

Public Function HTTPpost(ByVal Request As String) As String
Dim RequestLines() As String
RequestLines = Split(Request, vbCrLf)
'You should verify method first because the one I use is not sure
'So we verify...
If LCase(HTTPmethod(Request)) = "post" Then
    HTTPpost = RequestLines(UBound(RequestLines))
Else
    HTTPpost = ""
End If
End Function

'(c) 2006 Aweb. Merci de laisser ce copyright ;)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Ahweb)