afficher les images de BD access sur la form de C++ builder

Version imprimable

Voir 40 message(s) de cette discussion en une page

14/04/2010, 12h07
Rose-de-sable

afficher les images de BD access sur la form de C++ builder

Bonjour
j'ai une question concernant le C++ builder, j'ai crée une Base d'image avec Access et j'ai reussi a faire la connéxion de cette base avec le SGBD Borland mais mon probléme c'est que je veux afficher les images une par une sur la form à l'aide de Timage mais ça marche pas:pc:
quelqu'un peut m'aider SVP

merci

Voici un code a tester, mais qui si mes souvenirs sont bons devrait fonctionner pour charger une image (jpeg) depuis une base de donnée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  TJPEGImage *jpeg= new TJPEGImage() ;
  TMemoryStream *stream = new TMemoryStream() ;
  try
  {
//RECUPERATION DANS UN STREAM
      ((TBlobField*) table->FieldByName( "NOM_CHAMP_IMG" ))->SaveToStream( stream );
//CHARGEMENT
      stream->Seek( 0, soFromBeginning );
      jpeg->LoadFromStream( stream );
//UTILISATION DU JPEG
//[...]
  }
  __finally
  {
//LIBERATION DES RESSOURCES
    delete stream ;
    delete jpeg ;
  }

la variable table est un TTable.

.

je te remercie sat83 pour ta reponce mais ton code ça marche pas malereusement:(

voila ce que j'ai fais

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
29
30
31
32
33
34
35
36
// ouverture connexion, bdd et table
   Session1->Open();
   Database1->Open();
   Table1->Open();[
 
   // on se positionne au début
  Table1->First();
  while(!Table1->Eof)
   {
  TJPEGImage *jpeg= new TJPEGImage() ;
  TMemoryStream *stream = new TMemoryStream() ;
  try
  {
//RECUPERATION DANS UN STREAM
      ((TBlobField*) Table1->FieldByName( "Nom" ))->SaveToStream( stream );
//CHARGEMENT
      stream->Seek( 0, soFromBeginning );
      jpeg->LoadFromStream( stream );
      Memo1->Lines->LoadFromStream( stream );
//UTILISATION DU JPEG
//[...]
  }
  __finally
  {
//LIBERATION DES RESSOURCES
    delete stream ;
    delete jpeg ;
  }
   // on parcourt la table
 
      // on passe à la ligne suivante
     Table1->Next();
   // on ferme connexion, bdd et table
   Table1->Close();
   Database1->Close();
   Session1->Close();

mais aucun resultat

16/04/2010, 08h32
sat83

Citation:

Memo1->Lines->LoadFromStream( stream );

Pourquoi tu charge dans un Memo????

De quel type est le champ où sont stockées tes images dans la base de donnée?
Est-ce que ce sont des images au format JPEG?

Une autre solution est d'enregistrer tes images dans un répertoire (sur un disque dur ou un serveur) et d'enregistrer dans la base de donnée uniquement le chemin du fichier image.

L'avantage c'est que c'est plus simple a mettre en place...
16/04/2010, 10h20
Fbartolo

pourquoi ne pas utiliser un TDBimage ?? dans ce cas.
16/04/2010, 16h00
Rose-de-sable

bonjour

j'ai chargé l'image dans un memo car il m'affiche erreur quand j'ai voulé charger dans un TImage, le type de mes images sont jpeg et dans la base access j'ai enregistré que le chemin pour acceder aux données mais franchement je suis désesperée le faite que j'ai pas pu acceder à la base et afficher le contenue

stp Sat83 s'il a une autre methode pour acceder à la base access à travers les requetes SQL ?

merci
16/04/2010, 17h40
Fbartolo

bon après quelques tests TDBimage ne fonctionne bien que sur des fichiers liés ou OLE et en format BMP

par contre avec Timage cela fonctionne bien à partir d'un champ texte à partir d'un DBtext ou directement (sur tous les types d'image):

Image1->Picture->LoadFromFile(DBText1->Field->AsAnsiString);
ou
Image1->Picture->LoadFromFile(DataSet1->fieldByname("IMAGE")->value);

Bien sur le champ de base est un champ texte avec le chemin complet du fichier et nom.
16/04/2010, 23h15
kmaniche
Si tu as enregistré dans le champ de la table le chemin d'accès à l'image (fichier physique) tu peux aisément utiliser la commande suivante :
Code:

1 2 3 4 AnsiString Chemin ; Chemin = Table1 -> FieldByName("Nom") -> AsString ; if(FileExists(Chemin)) Image1 -> Picture -> LoadFromFile(Chemin) ;

salut à tous et je vous remercie pour votre reponce, j'ai un remarque sur le code de kmanich j'ai pas trouvé des erreursmais il m'affiche rien voila ce que j'ai fais
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 void __fastcall TForm1::Button1Click(TObject *Sender) { // ouverture connexion, bdd et table AnsiString Chemin ; Session1->Open(); Database1->Open(); Table1->Open(); // on se positionne au début Table1->First(); while(!Table1->Eof) { Chemin = Table1-> FieldByName("photo")-> AsString ; if(FileExists(Chemin)) Image1->Picture->LoadFromFile(Chemin) ; // on parcourt la table // on passe à la ligne suivante Table1->Next(); } // on ferme connexion, bdd et table Table1->Close(); Database1->Close(); Session1->Close(); }
je te confirme que la connexion de la base est bien faite mais je ne sais pas pourquoi ya pas d'ffichage
merci

17/04/2010, 16h06
Fbartolo

Verifis que dans le chemin il y a bien le non de fichier et met un sleep entre chaque chargement d'image.
Sinon le code est bon.
17/04/2010, 22h54
kmaniche

Bonsoir,

Suite à ton code, je ne vois pas quelle est l'utilité d'assigner le chemin du fichier image et l'afficher dans une boucle while. Cependant, si tous les fichiers existes selon leur chemin spécifié dans la base, le composant TImage n'affichera que le dernier fichier de la table :koi:

Et si tu nous disais que tu veux en faire au juste ?
02/05/2010, 11h46
Rose-de-sable

afficher les images de BD access sur la form de C++ builder

salut !

toujours avec mon problème :( je n'arrive pas à trouver une solution

en fait, je ne sais pas ou se réside le problème, moi je veux lire les images du SGBD Access et les afficher une par une avec l'utilisation de la bar de navigation, mais je ne sais pas comment faire :(:cry::( si vous pouvez m'aider SVP, jusqu'à maintenant j'ai pas encore avancée !!!

merci d'avance
02/05/2010, 19h09
Fbartolo

Donnes nous ta base et quelques images je te fais un exemple
03/05/2010, 15h17
Fbartolo

ci joint projet qui marche avec:
- base de données (contenu modifié),
- le projet,
- les images rennommées en .jpg (pour reconnaissance automatique)
- respecter les emplacements (pour ce test)

c'est un exemple sans gestion des controles et effets de bord..:mouarf:

le lien:

http://www.pegase-consulting.com/pubs/test.zip
03/05/2010, 22h05
Rose-de-sable

salut Fbartolo; je te remercie infiniment pour ton aide :) :merci:
04/05/2010, 22h17
Rose-de-sable

salut Fabarko

j'ai fais presque comme ton exemple que tu ma donné, mais ça maffiche une erreur qui dit: AsAnsiString n'est pas un membre de TField !!!je ne sais pas comment régler ce problème, s'il te plait aide moi

merci
05/05/2010, 00h19
Fbartolo

Remplace AsAnsiString par Value ou par String, cela devrait marcher.
Tu es sur quelle version de Compilateur BCB??
05/05/2010, 13h35
Rose-de-sable

salut Fabartolo

je suis désolée pour le dérangement,le problème du type de donnée est réglé mais un autre problème est résidé dans l'instruction du code Image1->Picture->LoadFromFile(DirPhoto + ADODataSet1->FieldByName("Photo")->AsString);
en fait quand j'execute le code
voila mon TP et la version de Logiciel c'est C++ builder 6
[ame="http://www.zshare.net/download/75741480e1614423/"]zSHARE - Imagerie.zip[/ame]
stp si tu peux régler mon problème

merci

Vérifie bien que le fichier Jpeg.hpp est en include pour le format jpg.

retire de tes options RTL Dynamique du Linker et décoche construire package d'exécution

ci dessous les fichiers de ton projet, fait un remplacer des tiens.
si toujours PB lors du chargement de l'image, tu peux en test à la conception cherger manuellement une image et vérifier les types acceptés (BMP, JPG, JPEG, Ico,..)
si certains ne fonctionnent pas je pense que tu devras utiliser en dernier recours la méthode:
__fastcall RegisterFileFormat(const UnicodeString AExtension, const UnicodeString ADescription, TGraphicClass AGraphicClass);

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
String CurDir = GetCurrentDir(); // Afin de retenir le répertoire courant de l'exe
String DirPhoto = CurDir + "\\Photo\\"; // répertoire des photos
String ConnexionBase = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= " + CurDir + "\\ma_base.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
 
 
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADODataSet1->First();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ADODataSet1->Last();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ADODataSet1->Prior();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ADODataSet1->Next();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
ADOConnection1->ConnectionString = ConnexionBase;
ADODataSet1->Active = true;        // active le dataset et la connexion par conséquence
DBGrid1->DataSource = DataSource1;
DBNavigator1->DataSource = DataSource1;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ADODataSet1AfterScroll(TDataSet *DataSet)
{
AnsiString PhotoEncours;
 if(!ADODataSet1->FieldByName("Photo")->AsString.IsEmpty())
	{
	PhotoEncours = DirPhoto + ADODataSet1->FieldByName("Photo")->AsString;
		if(FileExists(PhotoEncours))       // teste l'existance du fichier
			{
			Image1->Picture->LoadFromFile(PhotoEncours);
			Image1->Visible = true;
			}
		else
			{
			Image1->Visible = false;   // n'affiche rien, évite de présenter l'ancienne image
			}
	}
}
 
//---------------------------------------------------------------------------

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TButton *Button4;
        TDBNavigator *DBNavigator1;
        TDBGrid *DBGrid1;
        TADODataSet *ADODataSet1;
        TADOConnection *ADOConnection1;
        TDataSource *DataSource1;
	TImage *Image1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall ADODataSet1AfterScroll(TDataSet *DataSet);
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

06/05/2010, 18h28
Rose-de-sable

salut Fbartolo merci infiniment pour ton aide et sayé le problème est réglé :yaisse2: :bravo:

merci beaucoup pour la 2eme fois :ccool:

Voir 40 message(s) de cette discussion en une page