PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Images dans SQL Server 2000
Images dans SQL Server 2000
Débuté par SOUMARE, 19 sep. 2005 19:32 - 1 réponse
#1
Posté le 19 septembre 2005 - 19:32
Bonjour,

J'ai une base de donnée SQL server 2000 contenant des images stockées au format varbinary. je voudrais extraire les images et les enregistrer dans des fichiers JPEG ou TIF.

Quelqu'un as tu une idée ?

Merci d'avance.

Soumaré.
#2
Posté le 20 septembre 2005 - 09:08
Un peur "Boeuf" mais aucun soucis de fonctionnement. Par contre avec emploi des fonctions SQL.....

Code :
// (NOLOCK) permet de ne pas verrouiller l'enrgt dans SQL2000
// PHOTOS est un champ image visible ou non, a voir
// Requete est une chaine
// ClefPhoto est la variable d'aacès à la photo


requete = "select photo from photos (NOLOCK) where reference = " + ClefPhoto
SI SQLExec(requete,"REQ1") ALORS
SI SQLFetch("REQ1") = 0 ALORS PHOTOS = SQLLitMémo("REQ1",1)
SINON
// on traite l'erreur
FIN
Multitâche()
SQLFerme("REQ1")

Fichier = fSélecteur(fRépertoireTemp(),"TEMPO.JPG","Sauvegarde de la photographie","Bitmap" + TAB + "*.JPG","JPG",fselExiste+fselCrée)

SI (Fichier <> "") ALORS dSauveImageJPEG("PHOTOS",Fichier); Info("Sauvegarde de l'image faite.")

et voilà, pas très complexe, il suffit de chercher un peu ...
Salutations
→ Revenir à WINDEV 2024