Discussion :

[o_live]

Bonjour
Avec ce code code j'arrive enfin a lire un flux blob (image bmp)
Comment placer ce flux dans un collection d'image (TImageList)

Me données viennent de requête SQL ou il peut y avoir plusieurs champ image
comment déclarer ce composant ?

Comment afficher les images faut en plus un autre composant TImage ouTDbImage ?

Code :

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

1
2
3
4
5
6
7
8
9
 
TStream  *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);   
 // on lit dans le memoire
 TMemoryStream *pMs =new TMemoryStream;
 pMs->LoadFromStream(pStlu);
 
 j++;
 pMs->SaveToFile("TEST"+IntToStr(j)+".bmp");
delete pMs;

merci par avance

[gandf]

Le code suivant n'est pas complet, c'est une piste qu'il faut l'adapter à votre code.

.h

Code :

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

    TList *listimg;

.cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
listimg = new TList();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
while (listimg->Count > 0)                // parcours de toute la liste d'image pour la vider
      {
      delete (TImage *)listimg->Items[0]; // libération de la mémoire allouée aux images
      listimg->Delete(0)                  // suppression du pointeur de l'image traité de la liste
      }
delete listimg;                           // libération de la mémoire allouée à la liste d'image
}

Et ensuite dans votre code :

Code :

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

1
2
3
4
5
TStream  *pStlu=pDs->CreateBlobStream(pDs->Fields->Fields[i],bmReadWrite);
TImage *imgtemp = new TImage(0);
listimg->Add(imgtemp);                    // Sauvegarde du pointeur pour accéder à l'objet plus tard et pouvoir le supprimer
imgtemp->Parent = Form1;                  // Remplacer par l'objet sur lequel il va être affiché
imgtemp->Picture->Bitmap->LoadFromStream(pStlu); // chargement de l'image depuis de stream (valable pour un bmp)

[o_live]

Bonjour
je compte stocker le pointeur sur le memorystream
est ce que cela va prendre beaucoup en ressource système ?
(il y aura pas d'image par la suite....)

Est ce mieux d'utiliser Tlist ou TlistImage ?

Concernant le blob je compte a voir de blobl teste et blob image
est ce que il y a unn moyen de detecter "la nature" du contenu
d'un blob ?

merci encore

[gandf]

Pour toutes ces questions, je n'ai aucune réponse claire à vous donner, je ne sais pas.

Je pense que cela dépend du nombre d'images et de leur poids. (pour les ressources)

Le TList a l'avantage de pouvoir stocker n'importe quel pointeur. Je n'ai jamais utiliser le TImageList, si cette liste permet de stocker et manipuler les images, il faut le prendre, sinon, le TList est suffisant. Surtout si les images ne doivent plus être affichées par la suite.

Pour le type de blob, vérifiez le début du flux. Il me semble qu'un fichier BMP commence par une suite bien définie (vraiment pas sur) et je ne sais pas si cette partie est stockée dans le blob.

[o_live]

Bonjour et merci de votre aide.

J'ai un problème initialisation , je risque d'avoir plusieurs image sur une ligne d'enregistrement

D'ou le déclaration d'un tableau de TList
Les dimensions ne seront connues qu'au moment de l'exécution de la requête
SQL

Cette initialisation sera dans la méthode ToCache(...)

Code :

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

1
2
3
 
TList **TabList;
TabList[0]=new TList;

J'ai un problème de violation

du coup de prototype de ma procédure ressemblerais a ceci

Code :

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

1
2
 
bool __fastcall TIbSgbd::ToCache(TIBClientDataSet * pCache, TIBQuery * pQuery,TList **TabList,int *Dim1)

IBClientDataSet * pCache =le cahce pour le donnée

TIBQuery * pQuery sour ce de ma requête SQL

TList **TabList Tableau de liste d'image allouées via memorytream
dans la procédure

int *Dim1 paramètre entre/sortie donnant le nombre de liste

Dim2 a mon avis n'est pas neccesaire vu qu'il ya la methode count()

Comment bien initialiser mon tableau de liste ?
Comment appeler au niveau de la méthode ToCache() TList** ?
et bien desallouer?

en vous remerciant encore

[gandf]

Ca en peut pas fonctionner. Déja, TList sert à gérer une liste, je ne comprend pas l'utilité de s'en faire un tableau.

Ensuite, on n'utilise pas de cette manière un TList.
Votre code :

Code :

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

1
2
TList **TabList;
TabList[0]=new TList;

La syntaxe est plutôt de la forme :

Code :

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

1
2
3
4
5
TList *TabList = new TList(); // ne pas oublier "()"
TList *temp = new TList();
TabList->Add(temp);
 
Et pour y accéder : (TList *)TabList->Items[0];