2.42 du 7 Juin 2013: ajout fonction GetHtmlFromURL

Invité

Non Klaus, cela ne me convient pas.
J'ai fait un programme qui met en grid les données reçu en copiant toute la page. Par copie, il y a tous les retours chariot, et les données qui sont dans un tableau, horizontalement, sont séparées par une tabulation, ce qui permet de faire le tri. Avec la fonction, tout ce qui est en tableau, dans la même ligne, est mis bout à bout, sans espace séparateur.Donc inutilisable.

Lorsque j'ai posé la question, j'ignorai alors que ce qui était séparé par une tabulation, était en réalité dans un tableau ou autre.

J'ai essayé de faire une copie avec les fonctions souris et touches de la dll mais je n'y suis pas arrivé. Je sais qu'en Autoit je peux le faire, mais normalement avec tes fonctions ont doit y arriver. Je voulais automatisé un processus. Bon tant pis! Je vais laissé tombé cette partie. Ca ne m'intéresse pas de rajouter Autoit la dedans.

Invité

Je suis en train de voir, pour reprendre les informations du code html, en ne retenant que ce qui se trouve entre ">" et "<", et d'ajouter une tabulation à chaque "<". apparemment cela semble marcher. Ça prend un peu de temps pour analyser une page. Reste à voir si je n'ai rien oublié.

C'est vrai que si tu passes le code fonction 1 au lieu de 2, tu as ceci:

Spoiler:

Et chaque morceau de texte est bien séparé par les balises HTML.

Invité

Oui.
Je vais revoir cela ce soir. C'est un peu plus complexe.
Il faut que pour chaque <TABLE...> je prenne chaque ligne <TR...</TR>
je vais mettre le contenu texte dans un dlist pour chaque <TD...> </TD>, et au </TR> je rassemble la ligne

Ce sont les contenus de ces tables qui m'intéresse.
En procédant ainsi, je devrais avoir une représentation de copie exploitable.

Actuellement je n'ai que des sauts de lignes. Le problème est que si un élément n'était pas mis, je me retrouve avec un décalage.
Je crois qu'au lieu d'un dlist, je vais prendre un grid, ainsi tout sera en place.

Bon, on est plus dans le post de la DLL, puisque cela devient du codage basic.
Bonne journée.

Invité

Bonjour,
Je n'ai pas pu intervenir avant, mais lors des essais de copie avec:
res% = DLL_call1("ClipboardCopy",hnd%)

je me suis posé la question de quel handle il s'agissait. Celui de la forme ou du conteneur, ou celui du browser. Comme avec l'un ou l'autre cela ne fonctionnait, et après avoir revu l'aide kgf.chm sur la copie depuis cette dll, j'ai ouvert l'outils d'AutoIt Info, pour connaitre le handle . Il n'y avait aucune correspondance.

Alors c'est quoi WB%, le n° du handle du browser?. Je ne le retrouve pas. Evidemment, je me suis servi des conversions hex/dec..

N'y a-t-il pas un problème de ce côté là? Ou est-ce moi qui part en poussière. scratch

La valeur retournée par la fonction WB_Create retourne, n'est pas un handle. en tout cas, pas un handle dans le sens habituel du terme. Et ce n'est donc pas étonnant que tu ne puisses pas l'utiliser dans le contexte que tu indiques.

En fait, la valeur retournée par WB_Create est un "objet" Delphi. Cet objet a également un handle, et je vais ajouter le code 8 à la fonction WB_Function pour retourner ce handle. Juste un peu de patience...

Ca y est - c'est fait ! Recharge la nouvelle version V3.09. Tu as un nouveau code fonction 8 pour la fonction WB_function. Cette fonctioon retourne alors le handle du browser dont la valeur WB% est passé en paramètre.

Invité

Merci Klaus pour ces explications. J'y verrai plus clair.

Je ferais un essai ce soir, là je suis de passage.

Invité

Bien, je viens de télécharger.

Je viens de faire un essai, mais j'ai pas vu vraiment qu'avec le handle du browser, cela fonctionnait.

C'est juste un contrôle, mais ce n'est plus ma recherche. Je vais décoder un fichier html pour le mettre en tableau et récupérer les infos que j'ai besoin.

Remarque:

Je ne télécharge pas souvent kgf, mais je dois dire que lorsqu'on doit le faire, j'ai beaucoup de mal à savoir ce que je dois télécharger.

Peut-être que je suis le seul à le penser, et que ma logique n'est pas au point. C'est justement cette incompréhension de départ, qui fait que je renonce souvent.

~~Pour ma part il y aurait juste un dossier~~

Je suis en train de faire le trouble-fête. Ignores tout!

Regarde ce petit code:

Code:: dim url$, res%, WB%, hnd%

url$ = "http://www.klaus49.5gbfree.com/klauspanoramic/index.html"

width 0,800
height 0,400

dll_on "KGF.dll"

WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,10,10,400,300)
res% = dll_call2("WB_Url",WB%,adr(url$))
hnd% = dll_call2("WB_Function",WB%,8)

' message str$(WB%)+" "+str$(hnd%)

res% = DLL_call3("CopyObject",hnd%,200,150)

picture 1 : top 1,10 : left 1,420 : width 1,300 : height 1,200
2d_target_is 1
clipboard_paste 1

Le programme copie une fraction de l'image du WB% dans le picture 1, via son handle retourné par la fonction WB_function code 8. Ceci montre que le handle retourné est le bon et que ça fonctionne.

Pour télécharger, il y a deux possibilites:

1. dans mon WebDav:
KGF.dll ==> dans dossier DLLs\
KGF.chm, KGF.doc, KGF.pdf ==> dans dossier DLLs\Documentation CHM\
KGF_SUB.bas, KGF_OBJ.bas ==> dans dossier DLLs\LGF_SUB
KGF_wizard.* ==> dans dossier KGF_wizard\

2. sur mon site, page "Externes"
NB: le problème temporaire de liens sur cette page est corrigé !
sur cette page, il y a des liens pour chacun de ces modules.

Dans tous les cas, chaque fois que je publie une nouvelle version, je donne la liste des modules modifiés. Mais si tu les charges tous, tu as forvcément tout ce qu'il faut...

Invité

J'ai essayé d'aller sur ton site, mais je n'y arrive pas. Je suis encore bloqué par ce message de comodo que j'ai mis l'autre fois.

Je ne comprend pas. J'ai fait toutes les recherches que j'ai pu, et je ne trouve pas de trace de celui-ci sur mon ordinateur. Il y a un lien qui est de: contacter US, et le lien ne fonctionne pas. La traduction ne marche pas pour cette page, donc ton site m'est interdit.

Pour la copie, tu me montres la copie html telle qu'on la voit dans l'original.

Moi j'essaye de faire une copie pour avoir le texte, comme on peut avoir en faisant [CTRL a] et [CTRL c]. On copie de cette façon le contenu, et on a le texte de la page avec des tabulations comme séparateurs. J'ai utilisé:

Code:: res% = DLL_call1("CopyToClipboard",copi%)

copi% étant le handle par la fonction 8.

La copie d'une page html est intéressante, car même si le site est en php, et qu'on essaye d'enregistrer la page, la plupart des contenus n'y est pas, alors que la copie manuelle récupère tout le texte. Si le source de la page n'est pas visible, le copier/coller, récupère le texte.

Je vais faire ça, et je te poste le code.

Désolé, ça ne semble pas marcher. Même si l'on saisit ctrl/A - ctrl/C dans la fenêtre du WebBrowser, ça ne surligne rien, ça ne met rien dans le presse-papier. Seul le surlignage à la souris marche, mais même là, ctrl/C ne met rien dans le presse-papier.

Je vais chercher un peu plus loin...

Invité

Merci Klaus.

J'avais commencé le décodage d'une page html depuis:
res% = DLL_call3("GetHtmlFromURL",adr(url$),handle(17),1)
J'ai vérifié en rapport à ce que j'ai dit plus haut, concernant la récupération depuis un site php. Et bien c'est ce que je pensais, des infos de la page, ne sont pas dans la récupération, alors qu'un copier/coller, les récupère.

On pourrait le faire manuellement, mais la logique informatique, dit qu'il faut se passer de la main de l'homme.

Comme je suis peu de chose, je fais en sorte que l'ordinateur me dépasse. Razz

Télécharge la nouvelle version V3/10 du 26/06/2014 - elle règle le problème. Regarde ce code qui utilise cette nouvelle version:

Code:: dim url$, res%, WB%, hnd%, car$

url$ = "http://panoramic.1fr1.net"

width 0,800
height 0,800

dll_on "KGF.dll"

WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,10,10,400,300)
res% = dll_call2("WB_Url",WB%,adr(url$))
hnd% = dll_call2("WB_Function",WB%,8)

memo 2 : top 2,320 : left 2,10 : width 2,400 : height 2,300
bar_both 2

' car$ = "a"
' res% = dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,1,0)
' res% = DLL_call1("ClipboardCopy",hnd%)
' res% = DLL_call1("CopyToClipboard",hnd%)

res% = dll_call2("WB_Function",WB%,9) : ' équivalent de ctrl/A
res% = dll_call2("WB_Function",WB%,10) : ' équivalent de ctrl/C
clipboard_paste 2

end

Je pense que àa règle ton problème dans la mesure du possible.

» 2.43 du 29 Juin 2013: ajout fonction IsFTPOnline
» 1.96 du 27 Février 2013: ajout ReadBlockFromBinaryFile
» 2.46 du 13/10/2013: ajout function SendSingleCharAsVKCode
» 1.94 du 26 Février 2013: ajout ReplaceStringInBinaryFile
» 2.41 du 3 Juin 2013: corr. bug dans RichEditGetInformation