Recupération de code html en une fonction

Soyez le premier à donner votre avis sur cette source.

Vue 6 583 fois - Téléchargée 840 fois

Description

Cette fonction permet de récuperer le code source html d'une page en un appel de fonction... celle si retarde l'éxécution jusqu'à avoir sa réponse, je vous conseille donc de l'utiliser dans tous les cas dans une thread pour ne pas risquer de figer votre appli ! Personnellement, je l'ai élaborée dans le but de récuperer des identifications sur mon site mais il est possible de l'utiliser pour d'autres traitement!

Source / Exemple :


// Voir Zip

Conclusion :


Bon coding :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
46
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
5 février 2012
1
Salut
je viens de voir ton source qui doit correspondre exactement à ce que je cherche. Malheureusement il me génère un socket erreur
(Le nom est valide mais il ne dispose pas des données associées recherchées) si je supprime ProcessMessages je n'ai plus d'erreur mais j'obtiens ton message('Problème d''accès au serveur HTTP'). J'utilise Delphi6. Peux tu me donner une solution? Actuellement j'utilise un WebBrowser qui fait correctement le boulot sauf que je souhaite que mon appli tourne en tâche de fonds et que dans ce cas le WebBrowser ne charge pas les pages HTML.
Merci pour ton aide
Messages postés
78
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
19 novembre 2008

bon travaille cyrille
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Modérateur
Dernière intervention
15 mai 2005

Voila, g eu le tps, g corrigé (depuis g du refaire le meme genre d'opération donc g mieux compris le bug) ...
bon coding
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Modérateur
Dernière intervention
15 mai 2005

la function en elle meme retourne le résultat sous forme de string! essaie un simple pos !
var mastring : string;
mastring := recup_page(...);
if not (pos('machin',mastring) = 0) then ...
g écrit mon commentaire rapidement alors tu risques de voir des erreurs mais t'as suffisament d'indices pour corriger =)
Messages postés
151
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
8 octobre 2013

moi ca marche nickel avec mon site et je te remerci énormément car c'est exactement ce que je recherchais mais j'aurais une petite question, surement très simple mais bon ...
Comment faut il fait ensuite pour mettre le résultat dans une variable et vérifier si dans ce résultat, il y a une chaine de caractères spécifique présente ?

d'avance Merci
et merci pour ce bout de code !!
Afficher les 12 commentaires

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.