progressbar avec un webgadget

MetalOS · Message par **MetalOS** » jeu. 15/févr./2007 20:34

Comment faire fonctionner une barre de progression qui indique le chargement d'une page web dans un WebGadget?

cha0s · Message par **cha0s** » jeu. 15/févr./2007 21:06

tu trouvera surement ce que tu chercher sur purearea

MetalOS · Message par **MetalOS** » jeu. 15/févr./2007 21:24

Non justement j'ais fait le tours et je trouve pas ce que je cherche.

MetalOS · Message par **MetalOS** » ven. 16/févr./2007 18:21

je devient fou avec cette progressbar

Backup · Message par **Backup** » ven. 16/févr./2007 19:19

le code suivant

va sur le site de l'euro million
et recupere la page html qui affiche les numero
a la fin de la transaction elle affiche le code de la page dans une fenetre

cette fenetre reprend en fait le contenue de la variable text "Url2Text(#Site)"

il te suffis en reprenant ce code de faire pareil
mais tu regarde la longeur que fait la variable text et en fonction tu adapte ton progresse bar

désolé , j'ai pas le temps de te macher le travail

voici le code :

Code : Tout sélectionner


;/ Author : Pille
; Proxy like this : "192.168.0.1:8080"
Global Site.s="http://www.fdjeux.com/jeux/euromillions/euromillions_s_tirage.php"




ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
    ; 1 INTERNET_OPEN_TYPE_DIRECT                       Resolves all host names locally.
    ; 0 INTERNET_OPEN_TYPE_PRECONFIG                    Retrieves the proxy Or direct configuration from the registry.
    ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.
    ; 3 INTERNET_OPEN_TYPE_PROXY                        Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT.
    
    isLoop.b=1
    INET_RELOAD.l = $80000000
    hInet.l=0
    hURL.l=0
    Bytes.l=0
    Buffer.s=Space(2048)
    res.s=""
    
    
    
    hInet = InternetOpen_("", OpenType, ProxyAndPort, "", 0)
    hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0)
    
    Repeat
        InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes)
        If Bytes = 0
            isLoop=0
        Else
            res = res + Left(Buffer, Bytes)
        EndIf
    Until isLoop=0
    
    InternetCloseHandle_(hURL)
    InternetCloseHandle_(hInet)
    ProcedureReturn res
EndProcedure

ProcedureDLL.s Url2Text(Url.s)
    ProcedureReturn Url2Text2(Url,1,"")
EndProcedure

Procedure.s recup_loto() ; toute la page web est dans "Url2Text(#Site)" 
    
    Position = FindString(Url2Text(Site.s), "<DIV CLASS="+Chr($22)+"numero",1); on va filtrer les ligne de text
    ligne$=Mid(Url2Text(Site.s),Position,220) ; pour trouver nos chiffres
    For i= 1 To Len(ligne$) 
        car$=Mid(ligne$,i,1) 
        If  Asc(car$)>48 And  Asc(car$)<57 ; si on tombe sur des chiffres
            car2$=car2$+car$ ; on garde
        Else
            car2$=car2$+"" ; sinon on ecrit rien
        EndIf 
        If car$="<"
            car2$=car2$+"," 
        EndIf 
    Next i
    ; ***** petite bidouilles pour virer les virgules en trop ***********
    car2$=ReplaceString( car2$,",,", ",") 
    car2$=Right(car2$,Len(car2$)-1)
    car2$=ReplaceString( car2$,",,", "") 
    ; ****************************************************
    ProcedureReturn car2$
EndProcedure



;/ Test
 
MessageRequester(Site.s,Url2Text(Site.s))
OpenWindow(0,10,10,800,600,"resultat",#PB_Window_SystemMenu )
CreateGadgetList(WindowID(0))
EditorGadget(2, 10, 10, 800,580)


AddGadgetItem(2, -1, Url2Text(Site.s))
AddGadgetItem(2, -1, "les chiffres de l'euro million : "+recup_loto())


Repeat
    Event=WindowEvent()
    
Until Event = #PB_Event_CloseWindow

MetalOS · Message par **MetalOS** » ven. 16/févr./2007 19:21

Donc voici la procedure que j'utilise pour voir le chargement de ma page.

Code : Tout sélectionner


Procedure Chargement1()
  If OpenWindow(#Progress_0, 376, 189, 302, 81, "Chargement...",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_WindowCentered) 
            If CreateGadgetList(WindowID(#Progress_0)) 
                ProgressBarGadget(#ProgressBar_charge, 30, 30, 250, 20, 0, CountGadgetItems(#Web_0)-1) 
            EndIf 
        EndIf 
        HideGadget(#Web_0, 1) 
        For charge=0 To CountGadgetItems(#Web_0)-1    
            SetGadgetState(#ProgressBar_charge, charge) 
        Next Charge  
        HideGadget(#Web_0, 0) 
        CloseWindow(#Progress_0)  
  SetGadgetText(#Web_0, GetGadgetText(#String_0))
EndProcedure

Mais le probleme c que ma progressebar a fini de se charger en 1 seconde alors que ma page fini de se charger 10 seconde apres, quelqu'un pourrait me dir pourquoi?

Backup · Message par **Backup** » ven. 16/févr./2007 19:22

je viens de te donner une solution au dessus

MetalOS · Message par **MetalOS** » lun. 19/févr./2007 21:23

Désoler dobro g beau me creuzer la tete, mais je ne vois pas comment faire.

nico · Message par **nico** » mar. 20/févr./2007 12:42

Je suis parti d'un code du Forum Anglais, il n'est pas complet; il faudrait ajouter une routine de détection d'accès à internet pour éviter le lancement du comptage avant que le prog n'ai eu cette autorisation.

Code : Tout sélectionner

#READYSTATE_UNINITIALIZED = 0
; The control is waiting to be initialized

#READYSTATE_LOADING = 1
; The control is initializing itself through
; one Or more asynchronous properties. Some
; property values might not be available.

#READYSTATE_LOADED = 2
; The control has returned from IPersist*::Load
; so that all its properties are available And
; it has started any asynchronous Data transfers.
; The control's properties are available and it is
; ready To draw at least something through IViewObject::draw.
; Making properties available doesn't necessarily require
; The control's type information.

#READYSTATE_INTERACTIVE = 3
; The control is capable of interacting with the user in at
; least some limited sense And can supply its type information.
; Full interaction may not be available Until all asynchronous
; Data arrives

#READYSTATE_COMPLETE = 4
; The control is completely ready for all requests.

If OpenWindow(0, 10, 10, 700, 500, "WebGadget ReadyState", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  StatusBar= CreateStatusBar(0, WindowID(0))
  If StatusBar
      AddStatusBarField(120)
      AddStatusBarField(300)
      StatusBarText(0, 1, "")
  EndIf
     
  If CreateGadgetList(WindowID(0))
    WebGadget(0, 10, 10, 680, 460, "http://www.purebasic.com")
    WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(0), #GWL_USERDATA) ; needed for accessing IWebBrowser interface
    ProgressBarGadget(1, 10, 6, 100, 12, 0, 100)
    
    SetParent_(GadgetID(1), StatusBar)
  EndIf
 
EndIf
count=0
Repeat

  Event = WaitWindowEvent()
 
  If isBusy
    WebObject\get_ReadyState(@isReady)
      Select isReady
        Case 1
          ; il faudrait ajouter une fonction pour vérifier que l'accès internet est autorisé,
          ; afin de commencer le comptage.
          If count<90
            count=count+1
            SetGadgetState(1,count)
          EndIf 
          StatusBarText(0, 1, "Page Loading")
        Case 2
          StatusBarText(0, 1, "Page Loaded")
        Case 3
          StatusBarText(0, 1, "Page is interactive with some data missing")
        Case 4
          StatusBarText(0, 1, "Page finished loading")
          SetGadgetState(1,100)
      EndSelect
  EndIf
 
  WebObject\get_busy(@isBusy)
 
Until Event = #PB_Event_CloseWindow
   
End

lionel_om · Message par **lionel_om** » ven. 09/mars/2007 13:36

DoBro, ta solution ne tient compte que tu texte source de la page Web et non pas des médias associés : CSS, JS et surtout images !!! Ce sont souvent eux qui prennent le plus de temps à s'ouvrir...