PureBasic

Ce dernier code fait apparaitre très rapidement les scores dans mon debugger

Ar-S a écrit :Ce dernier code fait apparaitre très rapidement les scores dans mon debugger

Bon je crois que l'essayer c'est l'adopté je vais l'intégré dans mon jeu !

Avec le dernier code, moins de 1 seconde

C:\Users\jj\AppData\Local\Temp\EBQTmpData.txt
http://www.thyphoon.com/EBQ/score.php?Act=HighScore
Yann LEBRUN|10270
carine|5490
laudriec cyrille|2130
emeline|1400
HAMELINE|930
Laure|710
Laure|710
Laure LEBRUN|570
Micke|480
ars|350

10
Yann LEBRUN 10270
carine 5490
laudriec cyrille 2130
emeline 1400
HAMELINE 930
Laure 710
Laure 710
Laure LEBRUN 570
Micke 480
ars 350

Merci Denis ! je tient le bon bout !! je l'ai intégré a mon Quiz et ça marche très bien ....

en effet sa change moins d'une seconde.





@++

c'est pour ça que je pense qu'il y a un problème avec la function interne ...j'ai posté le problème sur le forum anglais mais aucune réponse ...

oui, bien mieux, résultat instantané

Bon j'ai voulu utiliser ce code pour un truc linux et ça marche pas ...
dans la doc : pour le webgadget l'utilisation de GetGadgetItemText() c'est window only !
pfffff c'est frustrant quand même !

Tient LSI je crois que me rappeler que tu avais pondu un include, PureHTTP, je l'ai trouvé en version 0.45b , c'est la dernière version ?
Merci d'avance

Thyphoon a écrit :

Code : Tout sélectionner

Procedure.s ReceiveHTTPData(url$,Filename$="")
	WinID=OpenWindow(#PB_Any, 0, 0, 600, 300, "WebGadget", #PB_Window_Invisible)
	If WinID
		GadgetId=WebGadget(#PB_Any, 10, 10, 580, 280, Url$)
    Debug Url$
    ;SetGadgetText(0,Url$): 
    Repeat 
      Event = WaitWindowEvent()
    Until Event=#PB_Event_Gadget And EventGadget()=GadgetId And EventType()=#PB_EventType_DownloadProgress And GetGadgetAttribute(GadgetId,#PB_Web_Progress)=10000
    
    var.s=GetGadgetItemText(GadgetId, #PB_Web_HtmlCode)
    CloseWindow(WinID)
    FreeGadget(GadgetId)
    ProcedureReturn var
    
  EndIf
EndProcedure



Structure Game
	HighScoreMutex.i
EndStructure
Global Game.Game

Structure HighScore
	Name.s
	Score.s
	Rank.l
EndStructure

Global NewList HighScore.HighScore()
Procedure ReadHighScore(*l)
	var.s="Act=HighScore"
	File.s=GetTemporaryDirectory()+"EBQTmpData.txt"
	Debug File
	Result.s = ReceiveHTTPData("http://www.thyphoon.com/EBQ/score.php?"+var,File)
	Debug Result
	;If DownloadToMem ( "http://www.thyphoon.com/EBQ/score.php?"+Var, @Result, 63000 )
  ;n=CountString(Result,Chr(13),1)-1
  ;Result=Left(Result,n)
  ;If Trim(Result)="UPDATE"
  ;   MessageRequester("Information", "Cette version est obsolète !", #PB_MessageRequester_Ok)
  ;   End
  ; EndIf
	;EndIf
	n=CountString(Result,Chr(10))
	Debug n
	LockMutex(Game\HighScoreMutex)
	ClearList(HighScore())
	For z=1 To n
		AddElement(HighScore())
		line.s=StringField(Result, z, Chr(10))
		HighScore()\Name=StringField(line, 1, "|")
		HighScore()\Score=StringField(line, 2, "|")
  Next
	UnlockMutex(Game\HighScoreMutex)
EndProcedure

InitNetwork()
Game\HighScoreMutex=CreateMutex()
ReadHighScore(0)

ForEach HighScore()
	Debug HighScore()\Name+" "+HighScore()\Score
Next

Celui fonctionne instantanément chez moi en PB 4.5 x32 sous 7x64
reste a afficher les résultats par ordre décroissant de score.
Du coup il en est ou le quizz, ça fait un baille que j'y repense.

Ar-S a écrit : Celui fonctionne instantanément chez moi en PB 4.5 x32 sous 7x64
reste a afficher les résultats par ordre décroissant de score.
Du coup il en est ou le quizz, ça fait un baille que j'y repense.

merci beaucoup ! le problème maintenant est la compatibilité avec linux ! :oP
Pour le quizz J'ai fait quelques améliorations, mais comme j'ai manqué de temps pendant pas mal de temps lolllllll je me remet au purebasic que depuis 2 ou 3 semaines. Et je compte bien sortir une version final ! ;o)

Cool
D'ailleurs si tu peux me renvoyer les questions/reponses que j'avais créé ce serait cool, j'aurai un template pour en faire d'autres ^^

Ar-S a écrit :Cool
D'ailleurs si tu peux me renvoyer les questions/reponses que j'avais créé ce serait cool, j'aurai un template pour en faire d'autres ^^

pas de souci ! je regarde ça ce soir et je t’envoie ça !

Pour afficher tes scores (pour windows) sans passer par un fichier..

merci ! je vais surement utilisé ça en attendant de trouver un code multiplatforme !:o)

Facile le quizz