Discussion :

[ArHacKnIdE]

Bonjour,

Voilà j'ai récupéré le code suivant sur internet , il permet de recupérer le contenu HTML d'une page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub cmdStart_Click()
Dim sURL As String
    Dim sHTML As String
 
    If lstURLs.ListIndex = -1 Then
        MsgBox "SVP choisissez une URL !"
        Exit Sub
    End If
 
    sURL = lstURLs.Text
 
    With inetTest
        .AccessType = icUseDefault
        .Protocol = icHTTP
        lblStatus.Caption = "Capture en cours..."
        sHTML = .OpenURL(sURL, icString)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
 
    lblStatus.Caption = "Page chargée !"
    rtfText.Text = sHTML
 
 
End Sub
 
Private Sub Form_Load()
lstURLs.AddItem "http://www.yahoo.fr"
 
 
End Sub

lstURLs = ListBox contenant les URL
rtfText = Richtextbox accueillant le HTML
inetTest = Un contrôle Inet

Alors tout cela marche parfaitement, mais j'ai un problème qui n'est pas un bug, mais plutôt un evenement aleatoire...

C'est a dire que le resultat HTML a toujours une longueur différente dans le RichTextBox et l'HTML n'y se retrouve pas entier...

Je m'explique par exemple, je prends comme URL www.developpez.com, cela va me faire une partie du HTML mais coupée environ au bout de 100 lignes, mais si je prends par exemple yahoo, ça ne va pas aller non plus à la fin mais le RichTextBox se "bloque" aux environs des 30 lignes...

Alors je pensais que le RichTextBox a une limite de caractères, mais qui me parait étonnemment faible, mais le fait que des fois il y ai 100 et des fois 30 lignes peut peut être contredire la version de la capacitée trop courte du Richtextbox...

Une fois l'opération terminé et l'HTML (pas entier) dans le RichTextBox je peux encore rajouter plein de lignes manuellement pourtant... alors l'erreur provient peut être du code ?

Merci pour tout eclaircissement

PS : Pour une même page le résultat HTML a des fois une longueur différente dans le RichTextBox...

[ucfoutu]

Bonjour,

Je pense à la présence d'un caractère Null ( chr(0) ) contenu dans la variable sHTML (texte importé) à la position à laquelle commence le "tronquage".

[OhMonBato]

Je suis assez étonné car ici avec le code suivant, ça fonctionne très bien. Le Do....Loop me semble inutile car sauf erreur de ma part la méthode OpenURL est synchrone, le code est donc "en pause" jusqu'à lecture complète de la page web.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
RichTextBox1 = Inet1.OpenURL("www.developpez.com", icString)
End Sub

Il faut être patient en fonction de ta vitesse de connexion car il peut s'écouler quelques secondes avant que le code HTML s'affiche.

[ArHacKnIdE]

Merci d'avoir répondu aussi vite...

Oui j'ai pensé à des histoires de vitesses, débits...

Mais quand je vois cela : lblStatus.Caption = "Page chargée !"

C'est que ça a bel et bien fini, non ?! Et pourtant toujours des resultats de longueur aleatoire...

EDIT : Alors j'ai testé avec ta méthode OhMonBato mais exactement le même problème...

Voilà comment se fini le RichTextBox avec developpez.com comme exemple :

<table width="100%" cellspacing="0" cellpadding="0">
<tr><td>
<table w

J'ai l'adsl Max 8 Mo, c'est pas une page html qui devrait m'arreter ^^

ReEDIT :

la méthode OpenURL est synchrone, le code est donc "en pause" jusqu'à lecture complète de la page web.

Mon problème a quand même pas mal à voir avec ça on dirait

Merci de votre aide

[OhMonBato]

Là où je suis j'ai un internet très boiteux, TRES loin de ton ADSL et ça marche parfaitement.

tu as vraiment copier coller mon code sur un bouton de commande ? Ou as tu ajouté un petit détail ? Peux tu réessayer avec un nouveua projet, histoire d'etre sûr que tu n'as pas mis une propriété quelquepart uqi créerait ton problème.

[ArHacKnIdE]

Non non j'ai pris exactement ton code (j'ai aussi fais un new projet) et avec l'adressse de www.developpez.com, mais ça s'arrete toujours au milieu... enfin j'ai qu'un morceau qui part du debut et s'arrête comme ça...

Tu es sûr toi que avec ton code et le www.developpez.com, tu vas jusqu'a la fin de l'HTML ?!

Je vais réessayer quand même sait-on jamais avec l'informatique

EDIT : Toujours pas, voilà ce que j'ai de dvp.com (des fois un peu plus) :

<html>
<head>
<title>Accueil - Club d'entraide des d&eacute;veloppeurs francophones</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<meta name="generator" content="developpez-com" />
<meta name="description" content="Club des developpeurs : Forum, Cours et tutoriels en programmation : Delphi, C, C++, Java, VB, DotNET, C#, PHP,ASP, UML, XML" />
<meta name="keywords" content="programmation,tutoriels,tutoriel, cours, forum,delphi,langage C,C++, Java,VB,DotNET, C#, Pascal,PHP, ASP, UML, XML" />
<meta name="MS.LOCALE" content="fr-FR" />
<link rel="stylesheet" type="text/css" href="http://www.developpez.com/mainstyle.css" />
<link rel="stylesheet" type="text/css" media="print" href="http://www.developpez.com/template/printer.css" />
<link rel="alternate" type="application/rss+xml" title="RSS 2.0 Developpez.com : Club des développeurs" href="./rss.php" />
<link rel="alternate" type="application/rss+xml" title="Atom 1.0 Developpez.com : Club des développeurs" href="./atom.php" />
</head>
<body> <table width="100%" cellspacing="5">
<tr>
<td align="center">
<table width="100%" cellspacing="0" cellpadding="0">
<tr><td>
<table w

Par contre si je fais par exemple avec www.yahoo.com j'ai à tous les coups la totalitée de la page HTML (Finalement presque tout après comparaison )

Mais j'ai l'impression que le Javascript ne vient pas avec déjà...

ReEDIT : Après test sur plusieurs sites c'est un peu toujours le même problème, donc c'est pas la faute a dvp.com déjà

Merci