Enregistrement du composant :

copier la dll fournit dans winnt/system32 par exemple
puis faire Démarrer | Exécuter et taper regsvr32 asphttp.dll

Utilisation du composant avec Asp :

Voici quelques unes des possibilités du composant :

- se connecter à une url et récupérer le fichier source
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")

'-- Définir l'url de connexion
HTTPObj.Url = "http://www.monsite.com/fichier.asp"

'-- Définir la méthode de "postage"
HTTPObj.RequestMethod = "POST"

'-- Se connecter et récupérer la réponse
strResult = HTTPObj.GetURL
%>
 
- poster (POST) des données sur une url donnée

<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")

'-- Définir l'url de connexion
HTTPObj.Url = "http://www.monsite.com/forms/forms.asp"

'-- Définir les valeurs à poster
HTTPObj.PostData = "login=toto&id=23"

'-- Définir la méthode de "postage"
HTTPObj.RequestMethod = "POST"

'-- Se connecter et récupérer la réponse
strResult = HTTPObj.GetURL

%>

- récupérer la liste des url contenu dans un fichier
Grâce à la méthode GetHREFs on récupère la liste des url contenu dans le fichier distant sous forme de tableau.

<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")

'-- Définir l'url de connexion
HTTPObj.Url = "http://www.monsite.com/forms/url.asp"

'-- Définit et change la valeur du timeout
HttpObj.TimeOut = 80
'-- Définir la méthode de connexion
HttpObj.RequestMethod = "GET"'-- Définir le type d'agent
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
'-- Se connecter et récupérer le fichier
strResult = HTTPObj.GetURL
'-- Récupérer toutes les url contenues dans le fichier, et les placer dans un tableau
HREFTab = HttpObj.GetHREFs
'-- Afficher la liste des url trouvées
Dimension = UBound(HREFTab) -1For I = 0 to Dimension
Response.Write HREFTab(I) & "<br>" & VBCrLF
Next%>

Utilisation du composant avec Visual Basic

Ce composant peut être utilisé dans un programme VB de la manière suivante :

1/ Dans projet puis références, ajouter le fichier asphttp.dll dans la liste
2/ Exemple de procédure :

Private Function connect_ur (ur, erreur)
'--- Se connecte sur l'url ur, et renvoi la source du fichier
Dim retour as string

Set HTTPobj = CreateObject("AspHTTP.Conn")
HTTPobj.URL = ur
HTTPobj.FollowRedirects = False
HTTPobj.RequestMethod = "GET"
HTTPobj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
retour = HTTPobj.GetURL
erreur = HTTPobj.Error
Set HTTPobj = Nothing
connect_ur=retour

End Function

Quelques autres possibilités du composant :

- récupérer l'entête (HEAD) seulement d'un fichier situé à une url donnée
- récupérer et enregistrer une image située à une url donnée
- Support des proxy
- Le composant supporte la redirection de page
etc ...

Téléchargement

http://www.serverobjects.com/