|
Probleme avec "InternetOpenUrlA" |
|
---|---|---|
Stagiaire WDF
Inscrit:
23/01/2006 08:45 Post(s): 8
|
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.
Contribution le : 16/02/2006 08:41
|
|
|
Re: Probleme avec "InternetOpenUrlA" |
|
---|---|---|
Animateur WDF
Inscrit:
19/01/2004 13:48 De www.sigmasys.fr
Post(s): 988
|
Bonjour,
Essayez voir avec un nom de fichier html en fin d'url. ex : http://www.monsite.com/index.htm Bon dév., Totof
Contribution le : 16/02/2006 09:20
|
|
_________________
[ Totof(Christophe LOGEL) réalise des développements spécifiques WinDev (Mon annonce wdforge), http://www.sigmasys.fr] |
||
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.