Discussion :

[new_dreams]

Bonjour

j'ai un champ de type image qui me permet de visualiser le document scanné, le problème c'est que je n'arrive pas à enregistrer l'image dans la base de données ( le champ image est relié avec une rubrique de type image)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
SI TwainVersChamp(IMG_Image_Prévisualisation, Vrai,0) = Vrai ALORS
	Info("L'image est affichée dans le champ Image")
SINON
	Erreur("L'image n'a pas pu être récupérée")
FIN
 
dSauveImageJPEG(IMG_Image_Prévisualisation, enMémoire)

Respectueuses salutations.

[sologne]

Bonjour,

J'ai eu un souci assez proche récemment en [WD14] et je n'ai pas réussi non plus à placer l'image dans la base à partir d'un Buffer

Du coup j'ai contourné le problème en faisant un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dSauveImageJPEG(IMG_a_importer, "temp/temp.jpg") // mon répertoire temp est au niveau des .fic
IMG_Opt..Valeur = "temp/temp.jpg" // un autre champ image qui est lié à la table Ged.la_image dans ma bdd
 //Puis le classique
EcranVersFichier()
HAjoute(Ged)

Et là magique çà marche

Bon courage

[new_dreams]

Merci sologne

pourquoi vois avez fait 2 champs images ! IMG_a_importer et IMG_Opt !!

Amicalement

[sologne]

Bonjour,

Mon Problème était légèrement différent du tien :

1) L'utilisateur choisi sur son disque ou son appareil photo une image (donc plusieurs Mo en général 5 à 7 Mo) qui illustrera une fiche de recette.
2) Ensuite il veut prévisualiser l'image optimisée qui sera enregistrée dans la Bdd pour illustrer sa fiche (voir pouvoir jouer sur le taux de compression)

D'ou les deux champs images présents afin de pouvoir visualiser le avant/après dans une même fenêtre.

Par ailleurs, si on voulait raffiner le code on irait ensuite supprimer l'image temp.jpg du répertoire.

Bon courage pour la suite de ton développement

[new_dreams]

Bonjour


enfin j'ai trouvé la solution, j'ai utilisé presse papier et ça marche bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
SI TwainVersPressePapier(Vrai, 0) = Vrai ALORS
	Info("Ok")
SINON
	Erreur("L'image n'a pas pu être récupérée")
FIN
 
SI PressePapierFormat(ppfBitmap) = Vrai ALORS
	PressePapier(IMG_Image_Prévisualisation) 
 
FIN

merci sologne

Amicalement