PureBasic 5.60 est disponible

Vous avez développé un logiciel en PureBasic et vous souhaitez le faire connaitre ?
Avatar de l’utilisateur
GallyHC
Messages : 1703
Inscription : lun. 17/déc./2007 12:44

Re: PureBasic 5.60 beta 1 est disponible

Message 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
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 1 est disponible

Message 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)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Marc56
Messages : 2146
Inscription : sam. 08/févr./2014 15:19

Re: PureBasic 5.60 beta 1 est disponible

Message 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:
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: PureBasic 5.60 beta 1 est disponible

Message 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.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: PureBasic 5.60 beta 2 est disponible

Message 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

~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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)" :|
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: PureBasic 5.60 beta 2 est disponible

Message par falsam »

Pas de souci avec Windows 10 en tout cas. Tu es peut être sous XP ^^
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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 :?
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: PureBasic 5.60 beta 2 est disponible

Message par falsam »

Une gentille "moquerinette" je confirme. C'est surprenant tous ces codes (même simples) qui ne fonctionnent pas chez toi.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: PureBasic 5.60 beta 2 est disponible

Message 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.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: PureBasic 5.60 beta 2 est disponible

Message 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
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: PureBasic 5.60 beta 2 est disponible

Message 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)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Répondre