Manipuler les champs blobs sous une base externe

Version imprimable

16/08/2011, 15h07
devalender

Manipuler les champs blobs sous une base externe
Bonjour a tous
je développe sous firebird 2.5 et windev14.
je suis confronter a la gestion des blobs de type image, quand je parle de gestion entendez par la :
1. Enregistrer du blob (image) dans la base de donnée,
2. Affiche du du blob (image) de la base de donnée,
j'ai lu un peu les Mémo binaires mais je ne sais pas comment les manipuler !
merci a tous !
16/08/2011, 23h15
miripesage
Citation:
Envoyé par devalender

Bonjour a tous
je développe sous firebird 2.5 et windev14.
je suis confronter a la gestion des blobs de type image, quand je parle de gestion entendez par la :

Enregistrer du blob (image) dans la base de donnée,
Affiche du du blob (image) de la base de donnée,

j'ai lu un peu les Mémo binaires mais je ne sais pas comment les manipuler !
merci a tous !
Bonjour, je pense qu'il faut mettre le champ de la BDD à : mémo et affecter le contenu du champ blob au champ image.
17/08/2011, 16h00
devalender

Citation:

Envoyé par miripesage

Bonjour, je pense qu'il faut mettre le champ de la BDD à : mémo

ce qui est déjà fait.

Citation:

Envoyé par miripesage

Affecter le contenu du champ blob au champ image.

justement c'est là que se trouve la difficulté :oops:
un insert <mon champ blob> ne marche pas ! ya un truc a faire je suppose. 8O
19/08/2011, 16h16
devalender

là encore je reviens :oops: j'ai chercher partout mais j'ai encore pas de solution !
21/08/2011, 02h18
jurassic pork

hello,

je ne sais pas ce que tu utilises pour dialoguer avec ta base de données Firebird (ODBC driver, FB4WD ?). Avec une base de données Firebird (version 2.5) et le driver ODBC Firebird/Interbase ( version 2.0.0.151), je travaille sur une base à 8 tables dont 1 table avec une rubrique BLOB image et une rubrique BLOB texte. Je créée une source de données avec cette base par ODBCad32.exe. Je fabrique un projet en RAD automatique dont l'analyse contient la table à 2 blobs en connexion accès natif /autre accès OLE DB. Je compile. Pour lister les enregistrements pas de problème : dans la table créée par le RAD je vois bien tous les enregistrements , les photos (BLOB image) et les notes (BLOB texte). Dans la fenêtre de fiche (Modifier) je rajoute un bouton qui change le contenu du champ image de la photo. Je fais un "valider". Après avoir eu un message d'erreur de type "column unknown" j'ai changé par odbc32 la configuration du driver pour ma base. J'ai coché l'option autoquoted identifier et la plus de problèmes. La photo que je change est bien inscrite en base.

Ami calmant, J.P ;)
23/08/2011, 17h26
devalender
Citation:

Envoyé par jurassic pork

je ne sais pas ce que tu utilises pour dialoguer avec ta base de données Firebird (ODBC driver, FB4WD ?).

j'utilise un driver ODBC.

Citation:

Envoyé par jurassic pork

jJe fabrique un projet en RAD automatique dont l'analyse contient la table à 2 blobs en connexion accès natif /autre accès OLE DB. Je compile. Pour lister les enregistrements pas de problème : dans la table créée par le RAD je vois bien tous les enregistrements , les photos (BLOB image) et les notes (BLOB texte). Dans la fenêtre de fiche (Modifier) je rajoute un bouton qui change le contenu du champ image de la photo. Je fais un "valider". Après avoir eu un message d'erreur de type "column unknown" j'ai changé par odbc32 la configuration du driver pour ma base. J'ai coché l'option autoquoted identifier et la plus de problèmes.

ok la je pense que dans votre base vous avez déjà vos champs blob,
mais
1. quelle type vous donnez a vos champs blobs au niveau de l'analyse dans windev ?
2. quelle est aussi le type du champ au niveau du composant table qui affiche les données image ?
Merçi pour ce tuyau en tout cas je vais creuser :ccool:
26/08/2011, 18h16
jurassic pork

bonjour,
dans l'analyse les champs blob sont de type :
son,image,binaire sous type image (memo binaire) pour photos et
texte mémo texte pour notes

dans la table : image pour photos.
texte pour notes.

Ami calmant, J.P ;)

ok en résumé

Citation:

Dans mon analyse :
type :son,image,binaire
sous type :image (memo binaire) pour photos

Dans la table ou mon champ de saisie :
image pour photos.

A partir la je lance mon rad et dans le formulaire qui est produit je met un bouton pour charger l'image:
Code:

1 2 3 4 5 6 7 8 9 10 11 sNomFichier est une chaîne // Nom du fichier correspondant à la capture // Sélection de la capture sNomFichier= fSélecteurImage("", "", "Ouvrir une Photo") // On vérifie la sélection de l'utilisateur SI sNomFichier="" ALORS RETOUR // Affichage du fichier MAPHOTO=sNomFichier
Ensuite dans le bonton d'insertion voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 sCommande ="INSERT INTO NEW_TABLE1("+... "MONNUM, "+... "MAPHOTO )"+... "VALUES ("+... Quote(MONNUM..Nom)+","+... Quote(MAPHOTO..Nom)+")" SI SQLExec(sCommande,"REQFIC")=Faux ALORS // Vérifie l'erreur d'identifiant déjà utilisé SQLInfoGene("REQFIC") Info("Erreur SQL : " + SQL.MesErreur) SI SQL.Erreur<>"23000" ALORS // Pas Erreur de doublon: on affiche l'erreur SQLErreur("REQFIC") RETOUR SINON // Erreur de doublon Erreur("Erreur de doublon lors de l'ajout de l'enregistrement") SQLFerme("REQFIC") RETOUR FIN SINON // Insertion correcte SQLFerme("REQFIC") SORTIR FIN
En faisant un Trace(" ",sCommande) j'ai pas l'image mais le chemin de l'image, d’où ma question ! comment charger l'image avant l'insertion ?

29/08/2011, 17h12
jurassic pork

Bonjour,

dans la doc PCSOFT de SQLExec c'est écrit :

Citation:

Gestion des mémos binaire

Pour écrire un mémo binaire dans une table (avec un ordre SQL UPDATE ou INSERT), il faut utiliser la syntaxe suivante dans le texte de la requête :

{WDMemoBinaire('<NomFichier>' [,'Fichier']}
Copier ce code

Fichier (valeur par défaut) indique que le mémo est un mémo binaire (issu d'un fichier)
WDMemoBinaire est un mot réservé

<NomFichier> est le nom physique d'un fichier

{WDMemoBinaire('<NomFichier>' [,'FichierTexte']}
Copier ce code

FichierTexte indique que le mémo est un mémo texte (issu d'un fichier)
WDMemoBinaire est un mot réservé

<NomFichier> est le nom physique d'un fichier

Par exemple :

// Insertion du fichier C:\PHOTO\DUPONT.BMP dans un mémo binaire
TexteRequête = "INSERT INTO CLIENT VALUES ('DUPONT', 'Jean'," + ...
"{WDMemoBinaire('C:\PHOTO\DUPONT.BMP')})"
SQLExec(TexteRequête, "REQ1")
// Insertion du fichier C:\DOC\LETTRE.TXT dans un mémo texte
TexteRequête = "INSERT INTO CLIENT VALUES ('DUPUIS', 'Christophe'," + ...
"{WDMemoBinaire('C:\DOC\LETTRE.TXT', 'FichierTexte')})"
SQLExec(TexteRequête, "REQ1")

Ami calmant, J.P ;)
29/08/2011, 17h41
devalender

ok je teste et je fais le retour
:mouarf:
29/08/2011, 18h49
devalender
je viens de tester ça marche :ccool: ! mais j'ai un autre soucis c'est que on remarque que :
Code:

1 2 {WDMemoBinaire('C:\PHOTO\DUPONT.BMP')}
On a en Rouge le chemin d'accès à l'image, donc on peut charger ce chemin dans un champ image et ensuite faire ceci :
Code:

1 2 3 4 5 6 7 sCommande ="INSERT INTO NEW_TABLE1 ( "+... "MONNUM, "+... "MAPHOTO )"+... "VALUES ("+... Quote(MONNUM..Nom)+","+... "{WDMemoBinaire("PHOTO")})"
Ici PHOTO est une variable paramètre, qui contient le chemin d'accès a l'image mais j'ai un message d'erreur :

Citation:

Erreur :Erreur de syntaxe sur la chaîne : peut provenir d'un caractère " à l'intérieur de la chaîne qui doit être doublé ou bien d'une erreur de syntaxe à la suite de la chaîne.
FEN_Fiche_NEW_TABLE1.PROCEDURE.ValideLigne, Procédure locale, ligne 19, colonne 22

ou ai je péché ?
29/08/2011, 19h41
hpascal

Bonjour

Si PHOTO est une variable alors il faut mettre :

Code:

"{WDMemoBinaire('" + PHOTO + "')})"
01/09/2011, 12h21
devalender

ok la ça marche !
merci pour tous

Bon là j'ai pas envie d'abuser mais j'ai un autre soucis, pour la récupréation c'est ok ! j'ai reussi a insérer plus de 50.000 articles avec photos dans la base de donnée.
maintenant il faut bien les afficher a la demande !
Donc voici ce que j'ai fait :

1/ table windev avec un champ de type photo pour contenir le blob
2/ code issu du rad :
Code:

1 2 3 4 5 6 // Alimentation de la table sans filtre (1000 lignes) SI ExecSelectTable("")=Faux ALORS Sablier(Faux) Ferme FIN
avec un extrait de la fonction afficheligne() contenu dans la fonction ExecSelectTable()
Code:

1 2 3 4 5 6 7 8 9 PROCEDURE AfficheLigne(sNomReq=gsNomReq) // Procédure appelée après chaque affichage d'enregistrement nNumCol est un entier // Affichage dans les champs nNumCol = 0 nNumCol++; SQLAffChamp(sNomReq,"MONNUM",nNumCol,SQLTypeColonne("NEW_TABLE1","MONNUM")) nNumCol++; SQLAffChamp(sNomReq,"MAPHOTO",nNumCol,SQLTypeColonne("NEW_TABLE1","MAPHOTO"))
Et là j'ai pas d'affichage de mon image. j'ai fait un tour ici http://doc.pcsoft.fr/fr-FR/browse.aw...s-wlangage,489 mais :oops: pas de solution.
j'ai encore besion d'aide.
Merçi a tous.

08/09/2011, 16h30
devalender

En fouinant sur le forum je crois avoir trouver la reponse :
http://www.developpez.net/forums/d11...xte-interbase/
Poue ceux ça interesse.
merci a tous
20/04/2020, 15h23
Flikiu

Merci

9 ans après vos Posts, j'ai résolu mon problème grâce à vous.

Merci