PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Ouvrir une image
Ouvrir une image
Débuté par florent.alto, 09 jan. 2006 15:35 - 11 réponses
Posté le 09 janvier 2006 - 15:35
Bonjour,

J'ai une fenetre avec un champ image. Celle-ci est chargée depuis une
rubrique memo binaire image d'un fichier.

Voici la fonction : ChImage=Contact.Photo

Cela fonctionne et l'image apparait. Mais je souhaite proposer une
fonctionnalité permettant d'ouvrir l'image avec l'aperçu de windows.

Je fais donc un LanceAppliAssociée(ChImage) mais ca ne marche pas.

Une astuce ?

Merci. FLO
Posté le 09 janvier 2006 - 16:04
Essais LanceAppliAssociée(Contact.Photo)

Antoine

"Florent" <florent.alto@free.fr> a écrit dans le message de news:
43c26635$1@news.pcsoft.fr...

Bonjour,

J'ai une fenetre avec un champ image. Celle-ci est chargée depuis une
rubrique memo binaire image d'un fichier.

Voici la fonction : ChImage=Contact.Photo

Cela fonctionne et l'image apparait. Mais je souhaite proposer une
fonctionnalité permettant d'ouvrir l'image avec l'aperçu de windows.

Je fais donc un LanceAppliAssociée(ChImage) mais ca ne marche pas.

Une astuce ?

Merci. FLO

Posté le 09 janvier 2006 - 16:20
Bonjour Antoine,

Déjà essayé et ça ne fait toujours rien.

Flo
Posté le 09 janvier 2006 - 16:46
HInfoMémo() pour le type
HExtraitMémo() pour l'enregistrer sur le disque

Florent avait énoncé :
Bonjour,

J'ai une fenetre avec un champ image. Celle-ci est chargée depuis une
rubrique memo binaire image d'un fichier.

Voici la fonction : ChImage=Contact.Photo

Cela fonctionne et l'image apparait. Mais je souhaite proposer une
fonctionnalité permettant d'ouvrir l'image avec l'aperçu de windows.

Je fais donc un LanceAppliAssociée(ChImage) mais ca ne marche pas.

Une astuce ?

Merci. FLO



--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Posté le 09 janvier 2006 - 16:46
Florent vient de nous annoncer :
Bonjour Antoine,

Déjà essayé et ça ne fait toujours rien.

Flo


normal

essayes avec dSauveImageJPEG et tu lanceappliassocie(fichier_créé)
JD

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Posté le 09 janvier 2006 - 16:46
Bonjour,
Pour afficher une image dans une application, il faut que cette application ait accès à ladite image. Donc il faut en premier l'enregistrer dans un fichier.

Frédéric.
Posté le 09 janvier 2006 - 17:00
Merci à tous. J'ai résolu mon pb.

A présent, pourriez-vous me dire comment faire pour dire que si le champ
Image n'est pas rempli, le bouton TOTO est invisible ???

Encore une fois : MERCIIII
Posté le 09 janvier 2006 - 17:18
Il se trouve que Florent a formulé :
Merci à tous. J'ai résolu mon pb.

A présent, pourriez-vous me dire comment faire pour dire que si le champ
Image n'est pas rempli, le bouton TOTO est invisible ???

Encore une fois : MERCIIII


juste une remarque:

Ne pas dire j'ai résolu mon PB mais
voila comment j'ai résolu mon PB : explication...

La raison: parceque les copain ont cherché pour toi et peut-être ta
solution aidera un autre...
cordialement

jean-daniel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Posté le 09 janvier 2006 - 17:18
Un truc du genre :

Si Contact.Photo="" alors toto..visible=faux ?

Hubert
Posté le 09 janvier 2006 - 17:31
Hubert,

J'ai déjà essayé cela...

Jean Daniel,

Tu as entièrement raison. Voici ma solution :

HLitRecherchePremier(Contact,NumClient,V_NumClient)

SI HTrouve(Contact) ALORS

Toto est une chaîne = fRepEnCours()+"\ImageAffiche.jpg"

HExtraitMémo(Contact,Photo,Toto)

FIN

LanceAppliAssociée(Toto)
Posté le 09 janvier 2006 - 17:41
Si tu fait un lanceappliassociée c'est le programme par défaut qui ouvre les jpg sur le poste qui va s'ouvir. Donc si tu veux que se soit pareil sur tous les postes :

// Sauvegarde de l'image sur le disque
sNomFichier est une chaine = "c:\temp\MonImage.jpg"
dSauveImageJPEG(Image1,sNomFichier ,80)

// Lancement de l'image dans l'aperçu de Windows XP
LanceAppli("rundll32.exe "+SysRep(srSystème )+"\shimgvw.dll,ImageView_Fullscreen " + sNomFichier,exeMaximise)


Pour le bouton :

SI Image1 = "" ALORS
Bouton1..Visible = Faux
SINON
Bouton1..Visible = Vrai
FIN

@+
Posté le 09 janvier 2006 - 18:36
Florent a formulé ce lundi :
HLitRecherchePremier(Contact,NumClient,V_NumClient)

SI HTrouve(Contact) ALORS

Toto est une chaîne = fRepEnCours()+"\ImageAffiche.jpg"

HExtraitMémo(Contact,Photo,Toto)

FIN

LanceAppliAssociée(Toto)


là je verrai une erreur

ce sereit-y pas plutot

HLitRecherchePremier(Contact,NumClient,V_NumClient)

SI HTrouve(Contact) ALORS

Toto est une chaîne = fRepEnCours()+"\ImageAffiche.jpg"

si HExtraitMémo(Contact,Photo,Toto)alors
LanceAppliAssociée(Toto) // cette ligne serait mieux ici
FIN




--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net