Re: Thread et HttpRequete

Posté par domi_nice le 7/10/2008 20:24:32

Voici le process :

Info(telechargement(NetIPAddress(" www.3GWIN.FR "),"index.html"))

3GWIN.FR est l'IP du site à contacter (c'est un exemple , c'est le site d'un excellent logiciel de caisse facturation gestion de téléphonie)

La procédure te renvoie le code HTML complet ...

PROCEDURE telechargement(ip,page)

codehtml,ajoute est chaîne
r est chaîne

SI SocketExiste("telechargement") ALORS SocketFerme("telechargement")

r="GET /"+page+CRLF+"HTTP/1.1"+CRLF
r=r+"User-Agent : Mozilla/4.0 (compatible; MSIE 5.0; Windows 95)"

SI SocketConnecte("telechargement",80,ip) ALORS
SocketChangeModeTransmission("telechargement",SocketSansMarqueurFin)
SI SocketEcrit("telechargement",r) ALORS
ajoute =SocketLit("telechargement",Faux,5000)
TANTQUE ajoute<>""
ajoute =SocketLit("telechargement",Faux,5000)
codehtml=codehtml+ajoute
FIN
END
SINON
RENVOYER ""
END
SI SocketExiste("telechargement") ALORS SocketFerme("telechargement")

RENVOYER codehtml

Si tu as un souci , tu n'hésites pas !!!
( ce code est contient des précautions pour être utilisé dans les threads )