Aide WebGadget [Reglé]

MetalOS · Message par **MetalOS** » dim. 03/déc./2006 12:58

Salut, voila mon premier projet en PB et un petit navigateur web (le truc de base), et je cherche a recuperer dans ma barre d'adresse (StringGadget) les adresses des pages visiter. Comment faire ?
Merci pour vos réponses.

Backup · Message par **Backup** » dim. 03/déc./2006 13:22

pour faire appel au web gadget t'es bien obligé de lui passer l'adress en parametre non ?

"Resultat = WebGadget(#Gadget, x, y, Largeur, Hauteur, URL$ [, Options])"

ici URL$ !!
rien ne t'empeche dutiliser soit un tableau ou une liste chainée ou bien un fichier pour ecrire, et donc retenir en memoire le lien visité !!

en plus URL$ est une Chaine de caracteres , donc compatible avec
le String gadget !

MetalOS · Message par **MetalOS** » dim. 03/déc./2006 18:34

Donc si je veux que quand je visite une page et que l'adresse de cette page apparaisse dans ma barre d'adresse (stringgadget) il faut utiliser un tableau ou une liste chainée ? Mais le parametre URL$ doit rester vide ou il faut obligatoirement que je mette une adresses d'un site au depart ?

Backup · Message par **Backup** » dim. 03/déc./2006 19:07

MetalOS a écrit :Donc si je veux que quand je visite une page et que l'adresse de cette page apparaisse dans ma barre d'adresse (stringgadget) il faut utiliser un tableau ou une liste chainée ? Mais le parametre URL$ doit rester vide ou il faut obligatoirement que je mette une adresses d'un site au depart ?

tu met une adresse par defaut c'est mieux

la liste chainée ou le tableau ne sont la Que pour Retenir les adresse visités

si tu ne visite qu'une seul adresse, et que tu ne veux pas retenir, les adresses visité, tu peut te passer de "memoire" -->> Tableau ou liste chainées

voici un exemple simple (qui ne retiens pas les adresses

)

; Code par Dobro
; purebasic 4.01

Declare Open_Window_0()

Enumeration
     #Window_0 : #Web_0 : #String_0 : #Button_0 : #Text_0
EndEnumeration

Open_Window_0()
Repeat
    Event = WaitWindowEvent ()
     GadgetID = EventGadget ()
     If Event = #PB_Event_Gadget
         If GadgetID = #Button_0
             SetGadgetText ( #Web_0 , GetGadgetText ( #String_0 ))
         EndIf
     EndIf
Until Event = #PB_Event_CloseWindow
End

Procedure Open_Window_0()
     If OpenWindow ( #Window_0 , 10,10, 800, 600, "Internet" , #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
         If CreateGadgetList ( WindowID ( #Window_0 ))
             WebGadget ( #Web_0 , 30, 10, 750, 520, "http://www.meteo.fr" )
             StringGadget ( #String_0 , 80, 550, 440, 20, "http://www.meteo.fr" )
             ButtonGadget ( #Button_0 , 530, 550, 50, 20, "Go" )
             TextGadget ( #Text_0 , 30, 550, 80, 20, "Adresse :" )
         EndIf
     EndIf
EndProcedure