V3.15 du 27/07/2014 - nouvelle fonction GetCurrentBrowserURL

Nouvelle version:
KGF.dll V3.15 du 27/07/2014

Nouveauté:
ajout nouvelle fonction GetCurrentBrowserURL

Modules modifiés:
KGF.dll
KGF.chm
KGF.doc
KGF.pdf

La doc et les sources sont à jour.

Cette fonction retourne l'URL et le titre de la page Web active dans le browser actif. Elle est documentée dans les fonctions diverses.

Et voici une démo de cette fonction:

Code:

' test_GetCurrentBrowserURL.bas

label lancer
dim url$, titre$, res%

button 1 : top 1,10 : left 1,10 : caption 1,"Lancer"
  on_click 1,lancer
alpha 2 : top 2,40 : left 2,10 :caption 2,"URL:"
edit 3 : top 3,40 : left 3,50 : width 3,400
alpha 4 : top 4,70 : left 4,10 :caption 4,"Titre:"
edit 5 : top 5,70 : left 5,50 : width 5,400


dll_on "KGF.dll"

end

lancer:
  url$ = string$(255," ")
  titre$ = string$(255," ")
  res% = dll_call2("GetCurrentBrowserURL",adr(url$),adr(titre$))
  if res%=0    : ' erreur
    text 3,"-- erreur --"
    text 5,""
  else        : ' ok
    text 3,trim$(url$)
    text 5,trim$(titre$)
  end_if
 
  return
 

Petit souci :

Voilà le résultat losque je lance sur cette page :
(chrome,w7)

Et, ce que je n' avais pas vu car elle s' est ouvert en arrière plan,
internet explorer s' est ouvert avec la dite page ( http://www_getwindowinfo/ ).

Par contre, cela fonctionne sur IE 11.
et sachant que tu es un adepte de FF je suppose que cela fonctionne avec...

Le souci vient donc de chrome....

Bien, je vais voir ce que je peux faire pour Chrome...

Pour Chrome, c'est fait. J'ai ajouté une nouvelle fonction, symétrique à celle-ci, pour gérer le cas particulier de Chrome. La difficulté était multiple. D'abord, Chrome créer plusieurs processus dont un seul est à prendre en compte, et il faut le trouver ! Ensuite, les éléments de la fenêtre de Chrome n'ont pas de handle Windows, et Chrome ne connaît pas non plus le protocole DDE ni COM. Autant dire que Chrome est un monde fermé, bien isolé de Windows. Il fallait s'y attendre, d'ailleurs...

Mais, j'ai réussi. Compliqué, mais pas impossible. Donc, télécharge la version V3.16 du 30/07/2014. Tu as également le programme de démo qui montre le fonctionnement des deux fonctions.

Bravo Klaus, tu es redoutable.

Téléchargé et testé !

j' ai une fenêtre qui s'ouvre avec la copie de la page internet
comme si toute la page avait été reprise avec des "print"
et la page web est grisé comme si toute la page avait été sélectionnée
avec la souris.

quand je ferme cette fenêtre par la croix ( pas d' autre choix )
le "Edit" de l' adresse contient toute la fenêtre fermée.  

Serait ce des testes qui sont restés en cachette ?...

Oups... C'est corrigé. Désolé.

La fenêtre a disparu mais il reste une petite bricole...  
voilà ce qui apparait dans l' "EDIT" url :

FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic

AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGr

au lieu de :

https://panoramic.1fr1.net/post?t=3710&mode=reply

???????????
[img][/img]

J'ai produit une variante (sans changer de numéro de version). Télécharge KGF.dll à nouveau et réessaye - je serais curieux de connaître le résultat.

Voilà le résultat en testant sur cette page:


En fait, ce qui apparait dans l' Edit est la dernière chose copié dans le presse papier  

la phrase que tu vois est une phrase de commentaire que j' ai copier/coller entre deux sources
que j' ai réuni en une seule application juste avant de tester la fonction de la dll.

Ok. alors, réessaye stp maintenant, avec la variante que je viens de mettre en place...

je charge et je reviens

YES!!!!!!!!!!!!!!! Merci beaucoup de ton aide pour la mise au point !

Cette fonction était la plus difficile à réaliser depuis bien longtemps. Un vrai défi. Mais ça y est !

De rien, Klaus.
Tout le plaisir était pour moi.

Quoi de plus agréable que de faire faire à la machine toutes ces manips... 

Dès que j' ai fini mon application, je vous la livre.
Y aura pas de papier cadeau mais bon... 

J'ai posté une nouvelle variante.

Plus rapide (200 ms de moins pour Chrome).

Si l'on passe une des adresses pour URL ou titre comme zéro, l'information correspondante n'est pas retournée. Exemple:

Code:

res% = dll_call2("GetCurrentChromeURL",adr(url$),0)

ne retourne que l'URL, pas le titre.

Pour GetCurrentBrowserURL, j'ai ajouté la liste des browsers supportés, dans la doc.

En partant de cette fonction, on pourrait imaginer une collection de fonctions destinées à piloter un browser Chrome.

Pour les autres browsers, c'est déjà fait: envoi d'URLs, page précédente/suivante/accueil etc. Mais maintenant, on peut aussi envisager cela pour Chrome. Mais je ne sais pas si cela a vraiment un intérêt. En tout cas, c'est possible maintenant.

Je donne mon avis, je n'ai pas de projet dessus, mais si on veut que la DLL soit "polyvalente" vu que l'on test le navigateur et que les fonctions ne sont pas les mêmes en fonction du navigateur utilisé, mon avis est qu'il faudrait décliner les fonctions également pour Chrome (en plus autant le faire pendant que tu es chaud sur le sujet ).
PS: Tu as déjà implémenté dans KGF un système d'arbre ? Ca me dit quelque chose, mais je ne me souviens plus bien et peut être que je confond avec les stringlist. (Bon je ne fais pas plus long dans le hors sujet, mais je n'ai pas envi d'ouvrir un message non plus pour te poser une question (j'aurais par contre pu t'envoyer un message privé...) ).

@Jicehel:
Pour les "abres", j'ai fait un treeview en Panoramic pur. Voici le lien. Tu touves tout sur mon WebDav, dossier "PTV - PanoramicTreeView".

Pour la gestion plus évoluée de Chrome, je vais avancer dans ce sens, à petite vitesse, sauf demande expresse urgente.

Pour la création de mon site en Panoramic, j'ai régulièrement des problèmes avec chrome, et ce n'est pas le cas avec Firefox et I.E. Peut-être est-ce la raison. En tout cas, si c'est ce problème, j'ai d'autres choses à faire que de me préoccuper de cela.

J'aime beaucoup la "petite vitesse de Klaus" ça correspond un peu à notre mode TGV à nous  

Merci pour le lien vers TreeView. Je vais voir si je peux m'en servir pour les coups jouables et à venir pour le jeu de dames. Je ne me souvenais plus bien de si et quand cela avait été fait.