PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

PureBasic 5.60 est disponible

https://www.purebasic.fr/french/viewtopic.php?t=16454

Page 3 sur 6

Re: PureBasic 5.60 beta 1 est disponible

Publié : mar. 31/janv./2017 19:19
par GallyHC
Bonjour,

Sans parler du Gif (plus besoin je penses), cette mouture as pas mal de choses qui sera utile, j'ai hâte d'avoir la finale (même si je vais testé les version Béta).

Cordialement,
GallyHC

Re: PureBasic 5.60 beta 1 est disponible

Publié : jeu. 02/févr./2017 10:58
par Kwai chang caine
Moi, evidemment je l'ai adoptée immédiatement, par respect pour le travail de FRED 8)
Et pourtant j'ai pas eu le temps de modifier mes giciels utilisant les GIF ou les PROXY :|
Mais pour l'instant tout roule 8)

Re: PureBasic 5.60 beta 1 est disponible

Publié : jeu. 02/févr./2017 11:15
par Marc56
Kwai chang caine a écrit :Et pourtant j'ai pas eu le temps de modifier mes giciels utilisant les GIF ou les PROXY :|
Comment ça? 10 ans que tu le demande et quand tu as ton cadeau tu ne l'utilise pas 8O :) :mrgreen:
Surtout que tu n'as rien à changer, juste à ajouter une ligne :idea: après InitNetwork()


À noter que la doc ne le précise pas (ou c'est un oubli?), mais le proxy supporte aussi le port dans l'URL
Exemple pour utiliser l'excellent filtre à pub privoxy

Code : Tout sélectionner

InitNetwork()

HTTPProxy("http://127.0.0.1:8118")

Filename$ = SaveFileRequester("Where to save index.php ?", "", "", 0)

If ReceiveHTTPFile("http://www.purebasic.com/index.php", Filename$)
     Debug "Success"
Else
     Debug "Failed"
EndIf
On peut voir aussi la trayicon qui tourne à chaque demande de page.

:wink:

Re: PureBasic 5.60 beta 1 est disponible

Publié : jeu. 02/févr./2017 11:37
par falsam
La Beta 2 de PureBasic 5.60 est disponible depuis votre espace client
http://www.purebasic.fr/english/viewtop ... 14&t=67584

Ar-s va être content. Il va pouvoir afficher ces gifs comportants des fonds transparents.

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 12:49
par Ar-S
ça marche au poil :D

Code : Tout sélectionner

; GIF TRANSPARENT ANIME PB 5.60 beta2
Enumeration
  #WIN
  #GAD_IMAGE
  #T
  #IMAGEGIF
  #IMtampon
  #NEWGIF
EndEnumeration

UseGIFImageDecoder()

Declare CatchImage_Net(Adr$)
Declare Count()
Declare ChangeFrame()
Declare exit()

Global Nbrframe, iW, iH

;LoadImage(#IMAGEGIF,"VOTREFICHIERGIF")
; OU BIEN
InitNetwork()
adr$ = "http://share.ldvmultimedia.com/run01.gif" ; 256x256
Image=CatchImage_Net(adr$)  ;Modifie cela par le chemin de ton image

If Image <> 0
  NbrFrame = ImageFrameCount(#IMAGEGIF)
  Debug " l'image contient " + Str(Nbrframe)  + " frames"

Else
  Debug "erreur de chargement de l'image"
  End
EndIf



Procedure CatchImage_Net(Adr$)
  InitNetwork()
  Protected image
  ; By Ar-S 
  *Buffer = ReceiveHTTPMemory(Adr$)
  If *Buffer
    Image = CatchImage(#IMAGEGIF, *Buffer, MemorySize(*Buffer) )
    FreeMemory(*Buffer)
    ProcedureReturn Image
  Else
    ProcedureReturn #False   
  EndIf
EndProcedure
;;; Endou


Procedure Count()
  ProcedureReturn NbrFrame
EndProcedure


Procedure ChangeFrame()

  Static Frame, POS = -256
  Frame + 1

  If Frame = NbrFrame
    Frame = 0
  EndIf
  POS+8
  If POS >= 512

    POS = -250
  EndIf
  
  Debug "Frame : " + Frame
  Debug "POS " + POS
  ; Affichage
  
;   SetImageFrame(#IMAGEGIF, Frame)
  SetImageFrame(#IMAGEGIF, Frame)
  ; FOR CANVAS GADGET
  
  StartDrawing(CanvasOutput(#GAD_IMAGE))
;    Box(POS,0,512,256,$FFFFFF)  
  DrawImage(ImageID(#IMAGEGIF), POS, 0)
  ;DrawImage(ImageID(#NEWGIF), POS, 0)
  StopDrawing()


EndProcedure


Procedure exit()
  End
EndProcedure




If OpenWindow(#WIN, 0, 0, 512, 256, "Gif...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  ; If Using Canvas
  CanvasGadget(#GAD_IMAGE,0,0,512,256)
       StartDrawing(CanvasOutput(#GAD_IMAGE))
      Box(0,0,512,256,$0) 
     StopDrawing()
 
  ; If using imagegadget
  ;ImageGadget(#GAD_IMAGE,0,0,512,256,ImageID(#IMAGEGIF))
  
  AddWindowTimer(#WIN,3,50)
  
  BindEvent(#PB_Event_CloseWindow, @exit())
  BindEvent(#PB_Event_Timer, @ChangeFrame())
  
  
  Repeat : WaitWindowEvent() : ForEver
  
EndIf

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 16:25
par Kwai chang caine
Le marco a écrit :Comment ça? 10 ans que tu le demande et quand tu as ton cadeau tu ne l'utilise pas
Bah non, je sais j'ai honte :oops:
Mais comme j'étais la tête dans les couleurs, j'ai pas voulu les quitter avant d'essayer.
Parce que on se connait, on dit qu'on va juste essayer et 3 jours plus tard, on est toujours dessus :lol:
Ars a écrit :ça marche au poil
Bah mer.... !!!! moi ma yenne, elle court de gauche à droite 8O

Et aprés ça plante à " SetImageFrame(#IMAGEGIF, Frame)" :|

Edit : Je viens de tester avec ton code
http://www.purebasic.fr/french/viewtopi ... 72#p189272

Et cette fois elle court plus 8)
Mais ça flikering un max et ça continue de planter à la ligne "SetImageFrame(#IMAGEGIF, Frame)" :|

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 16:37
par falsam
Pas de souci avec Windows 10 en tout cas. Tu es peut être sous XP ^^

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 17:15
par Kwai chang caine
Pufffff !!! ne serait ce point une "moquerinette" à mon endroit ???? :mrgreen:
Ben non...j'suis au top avec mon W7..tiens j'ai appris qu'il va bientôt plus être suivi celui la aussi, ...... 8O
Le fait expres.... ce BILOU :?

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 17:23
par falsam
Une gentille "moquerinette" je confirme. C'est surprenant tous ces codes (même simples) qui ne fonctionnent pas chez toi.

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 18:04
par Kwai chang caine
Je te rassure...... ça fait 10 ans que ça dure :|
C'est quand ça marche du premier coups que je m'inquiete :mrgreen:

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 18:30
par Kwai chang caine
Rectifiage.....et prosternation devant DIEU :oops:
En fait c'est le code de ARS qui marche pas :|
Je viens de tester ma YENNE (je l'aime beaucoup cette yenne elle me fait rire, c'est comme un feu de cheminée, je me surprend à la regarder en souriant :mrgreen:) avec le code de FRED, et c'est parfait , sublime.....

Code : Tout sélectionner

UseGIFImageDecoder()

Filename$ = OpenFileRequester("Select a GIF file", "", "GIF Files|*.gif", 0)
If Filename$ And LoadImage(0, Filename$)

  OpenWindow(0, 100, 100, ImageWidth(0), ImageHeight(0), "")
  
  CanvasGadget(0, 0, 0, ImageWidth(0), ImageHeight(0))
  AddWindowTimer(0, 1, 150)
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Timer
      SetImageFrame(0, Frame)
      
      Frame+1
      If Frame >= ImageFrameCount(0) : Frame = 0 : EndIf
      
      If StartDrawing(CanvasOutput(0))
        DrawImage(ImageID(0), 0, 0)
        StopDrawing()
      EndIf
    EndIf
    
  Until Event = #PB_Event_CloseWindow
Else
  Debug "Impossible to load the file: " + Filename$
EndIf
FRED c'est vraiment le plus fort, donc apparement il peut même modifier les LIB des autres qu'il inclus dans PB.... 8O moi je ferais comme lui quand je serais grand.... 8)
Mais tout d'abord, je vais apprendre à modifier mes codes :mrgreen:

Comment ai je pu douter du maitre suprême :oops:
Je me doit de faire pénitence :|

Image

Re: PureBasic 5.60 beta 2 est disponible

Publié : jeu. 02/févr./2017 19:11
par Ar-S
En fait c'est le code de ARS qui marche pas :|
Enfin qui ne marche pas chez toi.. 8)
Image
Mon code télécharge une image du web.. Tu as la version loadimage() en commentaire, à toi de l'adapter.

Enfin, rien ne t'empêche de nous fournir ton "code qui ne marche pas" et ton image afin qu'on tente de corriger ta bourde.

Re: PureBasic 5.60 beta 2 est disponible

Publié : ven. 03/févr./2017 10:11
par Kwai chang caine
Bah !!! j'ai bêtement (c'est ma méthode préférée :mrgreen: ) copié ton code, et j'ai mis ma yenne. 8O
Parce que comme j'étais derrière un proxy hier, et que j'ai encore pas tout compris pour la gestion httpproxy(), donc j'ai pas pu telecharger ton image.

http://www.purebasic.fr/french/viewtopi ... 69#p189269

Ah si....j'ai p'tetre fais une connerie. .. :oops: j'ai cliqué sur la roue crantée :lol:

Puis j'ai fait exactement la même chose avec le code de Fred et la...parfait 8)

Re: PureBasic 5.60 beta 2 est disponible

Publié : ven. 03/févr./2017 12:46
par Ar-S
Kwai chang caine a écrit :Parce que comme j'étais derrière un proxy hier, et que j'ai encore pas tout compris pour la gestion httpproxy(), donc j'ai pas pu telecharger ton image.
Je l'avais pressenti :mrgreen:

Voilà ma version pour toi en chargement direct.
PENSE à changer la path de ton image LIGNE 17

Code : Tout sélectionner

; GIF TRANSPARENT ANIME PB 5.60 beta2
Enumeration
  #WIN
  #GAD_IMAGE
  #T
  #IMAGEGIF
EndEnumeration

UseGIFImageDecoder()

Declare Count()
Declare ChangeFrame()
Declare exit()

Global Nbrframe, iW, iH

TONGIF$ = "D:\OneDrive\Images\totoro.gif")

If LoadImage(#IMAGEGIF,TONGIF$) ; 
  
  NbrFrame = ImageFrameCount(#IMAGEGIF)
  Debug " l'image contient " + Str(Nbrframe)  + " frames"
  
Else
  Debug "erreur de chargement de l'image"
  End
EndIf


Procedure Count()
  ProcedureReturn NbrFrame
EndProcedure


Procedure ChangeFrame()
  
  Static Frame, POS = -95
  Frame + 1
  
  If Frame = NbrFrame
    Frame = 0
  EndIf
  POS+8
  If POS >= 512
    
    POS = -95
  EndIf
  
  ; Affichage
  
  SetImageFrame(#IMAGEGIF, Frame)
  
  StartDrawing(CanvasOutput(#GAD_IMAGE))
  Box(0,0,512,100,$FFFFFF) 
  DrawImage(ImageID(#IMAGEGIF), POS, 0)
  StopDrawing()
  
  
EndProcedure


Procedure exit()
  End
EndProcedure



If OpenWindow(#WIN, 0, 0, 512, 100, "Gif...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  ; If Using Canvas
  CanvasGadget(#GAD_IMAGE,0,0,512,100)
  StartDrawing(CanvasOutput(#GAD_IMAGE))
  Box(0,0,512,100,$FFFFFF)
  StopDrawing()
  
  AddWindowTimer(#WIN,3,50)
  
  BindEvent(#PB_Event_CloseWindow, @exit())
  BindEvent(#PB_Event_Timer, @ChangeFrame())
  
  Repeat : WaitWindowEvent() : ForEver
  
EndIf

Re: PureBasic 5.60 beta 2 est disponible

Publié : dim. 05/févr./2017 17:54
par Kwai chang caine
Beaucoup mieux, plus de plantage :D
Ca doit être normal, ma Yenne se déplace comme ton bonhomme de gauche à droite, alors qu'en temps normal elle ne fait que pencher la tête et rester sur place...
Ca va la faire maigrir ton code :mrgreen:
Merci ARS 8)
Fuseau horaire sur UTC+01:00
Page 3 sur 6

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru