20/04/2024 		Windev et les Api WindowsNb de visiteurs en ligne : 2
>> Introduction << >> Codes et Forum << >> Download <<

Rubrique : 1 - Windev 5.5       Sujet : Probleme avec "InternetOpenUrlA"
Auteur Message
 rémi Posté le : 16/02/2006 08:29:17

Bonjour tout le monde,


J'essaye eperdument d'établir des connexions avec des sites pour ensuite récupérer le code source des pages et les afficher dans un fichier texte, mais je comprend pas pourquoi mais cela ne marche pas... çà me renvoit systématiquement "null"... comme si la fonction "InternetOpenUrlA" du fichier "wininet.dll" ne fonctionnait pas.

-------------------------------------------------
Voici mon code : (dumoins celui que j'ai trouvé) |
-------------------------------------------------


INTERNET_OPEN_TYPE_PRECONFIG est un entier = 0

INTERNET_FLAG_RELOAD est un entier long = 0x80000000

Connect est un entier long = appeldll32("wininet","InternetOpenA", "Test" ,INTERNET_OPEN_TYPE_PRECONFIG , null , null , 0 )

si connect alors

url est tableau de 3 chaines asciiz de 64
  url[1] = "http://windevapi.free.fr/"
  url[2] = "http://www.windevasso.org"
  url[3] = "http://www.kochonland.com"



resurl est un tableau de 3 entier long
ChResult est un tableau de 3 chaine

ind est un entier
pour ind=1 a 3

message("Vérification de l'url : "+url[ind])

openurl est un entier long = appeldll32("wininet","InternetOpenUrlA",connect , &url[ind] , null , 0 , INTERNET_FLAG_RELOAD , 0)

si openurl alors
resurl[ind]=1

nblus est un entier long
buffer est une chaine asciiz de 2049
// Chrono
HeureDep est un entier long
HeureDep=HeureVersEntier(HeureSys())




file est un entier long = fcree("c:\'temp\'"+url[ind][[8 a 15]]+".html")
tantque appeldll32("wininet","InternetReadFile", openurl , &buffer , 2048, &nblus )
si nblus>0 alors
//fecrit(file,buffer,nblus)
ChResult[ind]=ChResult[ind]+buffer
sinon
sortir
fin
FIN
fferme(file)
// Placez la ligne suivante après le traitement que vous souhaitez chronométrer
Info("Le traitement a duré :"+RC+HeureVersChaine(EntierVersHeure(HeureVersEntier(HeureSys())-heuredep)))

appeldll32("wininet","InternetCloseHandle",openurl)
sinon
resurl[ind] = appeldll32("kernel32","GetLastError")
FIN

fin

appeldll32("wininet","InternetCloseHandle",connect)

ch est une chaine
pour ind=1 a 3
ch+=url[ind]+" "+resurl[ind]+rc
SAISIE1=ChResult[ind]
info(ch)


FIN
//info(ch)

FIN

--------------------------------------------------------------------------------------

Merci pour votre aide, j'en ai besoin!!!

Bonne journée.    

>> Poster un message dans un NOUVEAU sujet.
>> Poster un message dans ce sujet.