WebBrowser sur une form Panoramic !

J'ai fait une petite DLL permettant de placer un objet WebBrowser sur une form Panoramic !

Le fichier WebBrowser.DLL et son programme de démonstration Test WebBrowser.bas sont inclus dans la distribution des DLL divers, et la documentation est mises à jour.

Ces fonctions sont aussi incluses dans KGF.dll et dans la documentation correspondante.

Je lance la boite à téléchargement tout de suite.

Bonjour Klaus !

Dans test WebBrowser.bas
- il manque ligne 24 l'extension de la dll

Dans Dlldivers.zip:
- il manque le fichier rtl60.bpl et vcl60.bpl...
voir ici :
http://www.zonums.com/library/blpfile.html

J'ai des trucs bizarres

quand j'ecris :

Code:

width 0,800:height 0,600

dim height%,width%,top%,left%,res%,res1%,hnd%

height% =400
width%=600
top% =10
left%=10
hnd%=Handle(0)


dll_on "WebBrowser.dll"
res% = dll_call1("WBCreate",hnd%)
dll_off

dll_on "WebBrowser.dll"
res1% = dll_call4("WBLocate",left%,top%,width%,height%)
dll_off

end

j'ai le curseur qui s'affole
impossible de fermer la fenêtre par la croix
( je passe par le gestionnaire de taches)

et une succession d'erreur
au niveau interne et vb6

@ Nardo26

Nos post se croisent

Tu places toutes les librairies dans le dossier source ou chez windows ?

Hello !

Enleve le dll_off entre les 2 appels à la dll...

Dans le répertoire source...
et avant de lancer le prog, tu le resauvegardes dans le meme repertoire
(ça force le répertoire par défaut)

je fais un essai

J'ai fait un seu dll_on...dll_off
J'ai bien enregistrer 4 fois pour prendre en compte
les deux librairies mais là j'ai le curseur qui tourne en rond comme s'il attendait une instruction de fin

à moins que toutes les librairies de ton lien soit nécessaires?

Essaye ceci :

Code:

width 0,800:height 0,600

label unload
on_close 0,unload


dim height%,width%,top%,left%,res%,res1%,hnd%,k%
dim url$,hurl%

height% =400
width%=600
top% =10
left%=10
hnd%=Handle(0)


dll_on "WebBrowser.dll"
res% = dll_call1("WBCreate",hnd%)
res1% = dll_call4("WBLocate",left%,top%,width%,height%)

' l'objet est crée, il faut maintenant le remplir avec quelque chose... ;)
url$ = "http://google.fr"
hurl% = adr(url$)
k% = dll_call1("WBUrl",hurl%)                : ' adr(url$)

' très important : il faut rendre la main au systeme si on veut que l'objet fonctionne...
END


unload:
  k% = dll_call0("WBDelete")
  dll_off
return

Genial !



ca marche !




Bon ben il me reste plus qu'à décortiquer tout ca pour apprendre
bon j'ai en plus, avant ton post, télécharger le zip complet des librairies
que j'ai dezipper dans le dossier.

au moins, il peut plus dire qu'il en manque une

Suite à vos commentaires, j'ai modifié WebBrowser.dll qui n'a plus besoin de ces deux bibliothèques. C'était un oubli de ma part.

Pour l'utilisation, il est utile de regarder le programme "Test WebBrowser.bas". Il faut faire:
- DLL_ON "WebBrowser.dll" (en plaçant la DLL dans le répertoire où est le fichier source, et/ou dans le répertoire de l'éditeur Panoramic, à moins de spécifier le chemin d'accès complet
- faire WBCreate pour créer l'unique instance de WebBrowser. Il ne peut pas y avoir deux simultanément.
- dès l'instant que WBCreate a été appelé, il ne faut plus faire DLL_OFF avant d'avoir fait WBDelete. En effet, la DLL garde les références au Browser dans sa mémoire interne, et si l'on libère la DLL, le browser part dans le vide...
- on peut utiliser à tout instant, et dans n'importe quel ordre, les autres fonctions:
WBLocate pour positionner et dimensionner le browser
WBUrl pour charger une page web dans le browser, qu'elle soit distante ou locale
WBFunction pour exécuter une des fonctions sur le browser
- pour finir, il faut utliser WBDelete pour supprimer le browser
- maintenant, on peut faire DLL_OFF

Comme d'hab, super Klaus !!


Existe t-il une version plus récente du module utilisé par ta dll ?

Super Klaus !

avec Nardo26, vous pouvez faire un "PanoraWeb"

mais maintenant en application de ta dll tu peut intégrer une aide *.html dans tes prog sachant que le code source d'une page peut être compilé en txt et le fichier recréer par panoramic.

@Klaus :

Je pose cette question car je viens de faire un test en chargeant mon site perso et à première vue, le module utilisé par la dll n'aime pas trop les javascripts, la librairie AJAX et les objets ayant l'attribut 'flottant'.

je suis pourtant en XHTML 1.0 transitional (validé W3C)

Pour m'en assurer, je suis allé sur le site du zéro (qui utilise aussi float et j'ai à peu près le même problème. il s'affiche mais avec les objets les uns en dessous des autres...

Quand à mon site, pratiquement rien ne s'affiche (peut être parce que j'utilise des attributs récents du CSS3 ?... (gradient et autres joyeuseté...)

En fait, j'utilise de composant TWebBrowser de Delphi 6 qui est basé sur le web browser component de Microsoft, basé lui-même sur internet explorer. il n'est certainement pas récent.

J'ai essayé avec mon site - ça marche, sauf que sans le AdBlock plus de Firefox, j'ai les pubs ...

Je continue à regarder si je trouve quelque chose de plus pertinent.

@ Klaus
J'ai voulu recupurer la derniere version de autresdll et le lien : 404

@Klaus :
J'ai trouvé ceci : ce source date un peu (2005) et c'est pour cette raison que sur certains sites, ils disent qu'il est "à prendre avec des pincettes".. pour des raisons de failles de sécurité je suppose...

http://delphi.yiblog.com/2008/11/using-firefox-instead-of-twebbrowser-in-delphi-applications/
http://www.delphifr.com/codes/MOZILLA-FIREFOX-DELPHI_28682.aspx

Et pourtant quand on fait des recherches, il ya pas mal de demande concernant l'utilisation du moteur Gecko... (Regarde sous Google: TMozillaBrowser)

Ou alors avec Chrome :

http://code.google.com/p/delphichromiumembedded/
http://www.progdigy.com/?p=116

Peut être quelque chose à gratter de ce cote : XULRunner

@Ygeronimi: problème de chargement résolu.

@Nardo26: j'étudie tes liens...

Ok, Super !

J'ai analysé tous les liens proposés par Nardo26.

Pour le composant Firefox, je l'avais déjà vu. C'est un Firefox très ancien, et cela ne compile même pas sans erreur bien que la doc dise explicitement que Delphi 6 est possible.

J'ai trouvé également un EmbeddedWB de Bsalsa - même problème.

Le container Chrome, lui, s'installe, mais l'arrêt du programme cause systématiquement un crash, et les liens dans une page ne sont pas suivis.

Je continue à chercher...

le module que tu cherches ...
n'y a t il pas moyen de le "capturer" dans log de programmation plus recent ou plus evolué ?

Klaus, bien intéressant et prometteur tout ça ! j'explore...

Effectivement très intéressant.
Dans ton programme de test, j'ai renommé le caption des touches + et - par Zoom + et Zoom -, c'est plus parlant pour moi (et plus lisible).
Et dans ce cas, en même temps que les modifications de w% et h% je modifie les dimensions de la Form 0, pour bénéficier de l'agrandissement (j'ai mis w0%=w%+60 et h0%=h%+150, et je refais chaque fois dans les s/p plus et moins: w0% = w%+60: h0% = h%+150: width 0,w0% : height 0,h0%).

Je n'ai pas vu le rôle de la touche 'Arrêter' (pas d'effet apparent).

Dommage, on voit réapparaître les pubs pop-up agaçantes que j'avais oubliées avec Firefox...

Ah, je suis content de voir que ma petite contribution intéresse, et tu t'y plonges bien, JL35. Pour ce qui est de la touche Arrêt, elle implémente la fonction de la croix en haut à gauche dans la barre d'outils de Firefox, celle qui porte le "hint" "Arrêter le chargement de la page", donc d'interrompre l'attente d'un site qui paraît sans espoir, ou en cas d'erreur d'aiguillage. Pour ce qui concerne la publicité, eh bien, c'est la mal de Internet Explorer sur lequel ce composant est basé. Je suis à la recherche d'un autre, mais je n'ai encore rien trouvé de viable, et malheureusement pas le composant Firefox qui ne marche pas du tout - trop ancien.