Catchimage et version 5.70(64bits)

Codes specifiques à MacOS X
Mcicone
Messages : 4
Inscription : ven. 01/mars/2019 15:50

Catchimage et version 5.70(64bits)

Message par Mcicone »

Bonjour,
Je développe un petit programme de base de donnée sur MacOS avec purebasic.
J'ai commencé avec la version 5.42 (32bit) et je viens de passer pour 5.70 (64bit).
et là problème, impossible d'aller chercher une image dans une base de données et de l'afficher dans un contrôle. Il semble que la fonction catchimage soit inopérante.
voici la partie du code concerné

Code : Tout sélectionner

 ; je modifie une image
                  If GetGadgetItemText(BFDMEcontenuliste,GetGadgetState(BFDMEcontenuliste),1)="Image"
                      HideGadget(DFDmodifenregistrementCONT,#True)
                      HideGadget(BFDsaisieimgCont,#False)
                      plFileImageSize=DatabaseColumnSize(GVappliencours,GetGadgetState(BFDMEcontenuliste)+1)
                      If plFileImageSize > 0
                        glImageMemory = AllocateMemory(plFileImageSize)
                        GetDatabaseBlob(GVappliencours,GetGadgetState(BFDMEcontenuliste)+1, glImageMemory, plFileImageSize)
                        plFileImage = CatchImage(#PB_Any, glImageMemory, plFileImageSize)
                        If plFileImage
                          If ImageWidth(plFileImage)>ImageHeight(plFileImage) ;paysage
                                    factor.f=ImageWidth(plFileImage)/ImageHeight(plFileImage)
                                    imgW=350
                                    imgH=imgW/factor
                                  EndIf
                                  If ImageWidth(plFileImage)<ImageHeight(plFileImage) ;portrait
                                    factor.f=ImageHeight(plFileImage)/ImageWidth(plFileImage)
                                    imgH=350
                                    imgW=imgH/factor
                                  EndIf
                            ResizeImage(plFileImage,imgW,imgH)
                            SetGadgetState(BFDSIMGdonneImg, ImageID(plFileImage))
                            FreeImage(plFileImage) 
                            ResizeGadget (BFDSIMGdonneImg,(370-imgw)/2,(370-imgh)/2,imgw,imgh)
                          EndIf
                      EndIf
Quelqu'un peut-il m'aider avant que je brûle mon Mac ? :D :D
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: Catchimage et version 5.70(64bits)

Message par SPH »

Mcicone a écrit :...Quelqu'un peut-il m'aider avant que je brûle mon Mac ? :D :D
Bien sur !

Tiens : Image

:lol:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Mcicone
Messages : 4
Inscription : ven. 01/mars/2019 15:50

Re: Catchimage et version 5.70(64bits)

Message par Mcicone »

SPH a écrit :
Mcicone a écrit :...Quelqu'un peut-il m'aider avant que je brûle mon Mac ? :D :D
Bien sur !

Tiens : Image

:lol:
trop généreux !!! :D
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: Catchimage et version 5.70(64bits)

Message par SPH »

Désolé, j'ai pas de mac ni de PB5.70 :wink:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Mcicone
Messages : 4
Inscription : ven. 01/mars/2019 15:50

Re: Catchimage et version 5.70(64bits)

Message par Mcicone »

Bon j'ai refait moult essai...
le code fonctionne parfaitement jusqu'à la version 5.45LTS de Purebasic en 32 ou 64bits....
Après plus rien... peut être un bug.... en attendant, je vais continuer à bosser avec 5.45 64bit
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Catchimage et version 5.70(64bits)

Message par Ar-S »

Salut.
J'ai pas de mac non plus, si tu penses qu'il y a bug, n'hésite pas à le signaler sur le forum US. C'est là qu'on recence les bugs officiellement.
Section Bug Mac OS X ici : https://www.purebasic.fr/english/viewforum.php?f=24
Traducteur si difficulté en anglais ICI : https://www.deepl.com/translator
~~~~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
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Catchimage et version 5.70(64bits)

Message par falsam »

Bonjour Mcicone, Je ne rencontre pas de souci avec CatchImage dans un environnement Windows ou Mac OS. Je pense que ca doit venir de la facon dont tu stockes ton image dans la base de données.

J'ai crée un petit code fonctionnant sous MacOs et Window 10 exploitant les champs BLOB pour stocker des images dans une base de données SQlite.

:idea: Ce code est mise à jour pour PureBasic 5.70 x64.

Tu peux le retrouver ici https://www.purebasic.fr/french/viewtop ... =1&t=15702

Bonne journée
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%
Mcicone
Messages : 4
Inscription : ven. 01/mars/2019 15:50

Re: Catchimage et version 5.70(64bits)

Message par Mcicone »

Merci beaucoup pour vos réponses... je vois effectivement des différences entre ton code et le mien.. je vais faire des test
Répondre