PowerBuilder à Donf ! / Comment insérer et afficher une image

FOSTA · 25-09-2008 09:06:07

Bonjour,
Je souhaite inserer le chemin d'une image puis afficher dynamiquement l'image dans un "picture object" que j'ai placé sur la datawindows contenant les champs de la table que j'utilise (Le chemin de la photo aussi s'y trouve).

Quelqu'un peut-il m'aider?

Merci.

foon · 25-09-2008 09:15:43

Tu peux utiliser une compute avec en expression la fonction "bitmap"
et en paramètre le chemin d'accès de ton image

buck · 25-09-2008 09:18:23

Bonjour,

Le principe est de charger l'image en mémoire dans une variable de type BLOB à l'aide des fonctions (FileOpen, FileRead ou FileReadEx , FileClose).

Ensuite tu affiches l'image dans ton "picture control" :

Code: pb

picturecontrol.SetPicture( bimage )

nico · 25-09-2008 09:55:45

Bonjour,

j'utilise un fichier PBR dans lequel je mets les chemins des fichiers BMP que je manipule. Ce fichier est compilé avec mon exe

et j'utilise :

Code: pb

win_1.P_1.PictureName = install_dir+"\IMAGES\toto.bmp"

foon · 25-09-2008 09:59:10

N'oubliez pas cependant que nous sommes dans une datawindow, pas sur un picture controle dans une fenêtre

Maintenant, il est vrai qu'il existe beaucoup de solutions différentes
pour gérer dynamiquement les images au sein d'une datawindow. Tout dépend du besoin et des exigences de l'utilisateur final

nico · 25-09-2008 10:15:47

Désolé Foon

Code: pb

dw_1.object.p_1.filename = install_dir+"\IMAGES\toto.bmp"

FOSTA · 25-09-2008 10:48:12

Mon object picture je l'ai placé sur ma datawindows je n'arrive pas à faire afficher l'image sur l'objet picture de la datawindow.
le code que j'ai écrit dans l'évènement click de mon bouton qui me permet d'insérer l'image est le suivant:

Code: pb

integer li_FileNum,ret
string txtname, named
blob l_image

//string defext = "BMP"

//string Filter = "bitmap Files (*.bmp), *.bmp"

ret = GetFileOpenName("Open Bitmap", txtname, named)

IF ret = 1 THEN
        li_FileNum = FileOpen(txtname, StreamMode!)
        IF li_FileNum <> -1 THEN
            FileRead(li_FileNum, l_image)
            FileClose(li_FileNum)    
           dw_eleve.object.p_photo[ii_NUM_LIGNE_eleve].SetPicture(l_image)
           dw_eleve.object.photoeleve[ii_NUM_LIGNE_eleve] =txtname
        END IF
END IF

NB :

nico · 25-09-2008 12:13:56

Attention, tu utilise ton Picture control comme une colonne. Il ne peut y avoir de numéro de ligne.

Quant à ta colonne photoeleve, elle est sert à afficher le chemin de l'image? Tu peux la remplacer par un statictext par exemple.

tu peux essayer ça pour voir?

Code: pb

integer ret
string txtname, named

//string defext = "BMP"

//string Filter = "bitmap Files (*.bmp), *.bmp"

ret = GetFileOpenName("Open Bitmap", txtname, named)

IF ret = 1 THEN
        dw_eleve.object.p_1.filename =  txtname
        dw_eleve.object.photoeleve.text =txtname
END IF

MESSAGE DE MODERATION - BALISE CODE : utilise code=pb et non code:pb

juldace · 25-09-2008 12:55:52

FOSTA utilise la methode de foon c'est la plus appropriée pour ton probleme tu utilises le controle creat a computed field et prends la fonction bitmap (bitmap(le champ ou se trouve le chemin de l'image)
j'espere d'avoir aider petit Papa

buck · 25-09-2008 13:02:12

Bonjour,

Dans ma réponse, j'étais parti sur le fait que tu posais un "windows picture control" ( et non un "datawindow picture control") par dessus la datawindow comme je le fais dans mon application.

Evidemment, la méthode setpicture du picture control n'est valable que pour le "windows picture control".

Je stocke les images dans une colonne de type blob de la base de données, ceci m'évite de décharger l'image en local sur le disque pour la réafficher. L'autre avantage est de pouvoir conserver la proportionnalité de l'image à l'affichage en retaillant dynamiquement de façon adéquate le picture control :

pick ouic · 25-09-2008 15:04:44

0 000 pour buck (et au passage, arretes de me narguer avec tes jolis ecrans )

FOSTA · 20-10-2008 09:33:56

Merci à tous, j'ai réessayer ça marcher avec la méthode foon.

foon · 20-10-2008 09:57:43

N'oublie pas le [RESOLU]

Après windows pour les nuls, voici PB pour les bons (ou presque).

Annonce

#1 25-09-2008 09:06:07

Comment insérer et afficher une image

#2 25-09-2008 09:15:43

Re: Comment insérer et afficher une image

#3 25-09-2008 09:18:23

Re: Comment insérer et afficher une image

Code: pb

#4 25-09-2008 09:55:45

Re: Comment insérer et afficher une image

Code: pb

#5 25-09-2008 09:59:10

Re: Comment insérer et afficher une image

#6 25-09-2008 10:15:47

Re: Comment insérer et afficher une image

Code: pb

#7 25-09-2008 10:48:12

Re: Comment insérer et afficher une image

Code: pb

#8 25-09-2008 12:13:56

Re: Comment insérer et afficher une image

Code: pb

#9 25-09-2008 12:55:52

Re: Comment insérer et afficher une image

#10 25-09-2008 13:02:12

Re: Comment insérer et afficher une image

#11 25-09-2008 15:04:44

Re: Comment insérer et afficher une image

#12 20-10-2008 09:33:56

Re: Comment insérer et afficher une image

#13 20-10-2008 09:57:43

Re: Comment insérer et afficher une image

Pied de page des forums