Discussion :

[Sunchaser]

Bonsoir,
Suite à la dernière question de Almisuifre, j'ai retenu le petit mot de Jordy16 : "Une question correctement posée trouve toujours une réponse ... " et je retente ainsi ma chance quant a ma première question 'BLOB non ouvert', en espérant m'exprimer un peu mieux moi aussi.
Je voulais stocker les infos contenues par une StringList ds un champ de type 'ftBlob' (ou 'ftMemo' ?).
En effet, je me visualise les éléments stockés ds une StringList comme une sorte de 'pile' :
Element 1
Element 2
Element 3
etc...
et pensais bon de tenter de stocker ceci ds un champ comme un Blob ou un Memo pour pouvoir les retrouver plus tard 'dans l'etat' et parcourir a nouveau la liste (au moyen d'une simple boucle de 0 a Count - 1).
J'ai essayé d'utiliser des méthodes comme 'CreateBlobStream' et autres
mais je me heurte toujours a :
'BLOB non ouvert'...

Alors, grosse betise ou petite erreur de jeunesse ?
Merci d'avance
NB : Table de type Paradox 7, au travers d'un TTable.

[Greybird]

Bonjour,

Voilà du code très simple qui fonctionne chez moi, avec une base Paradox7 et un champ Memo. Peut-être cela pourra-t-il te donner un coup de pouce ?

Ecriture des items d'une TListBox :

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
16
17
 
  Table1->Open();
  Table1->Edit();
  Table1->FieldByName("ID")->AsInteger = 1;
  TStream * bsFlux = Table1->CreateBlobStream(Table1->FieldByName("BLOB"),bmReadWrite);
  try
  {
    char * items = ListBox1->Items->GetText();
    bsFlux->Write(items, StrLen(items));
    Table1->Post();
    StrDispose(items);
    Table1->Close();
  }
  __finally
  {
    delete bsFlux;
  }

Lecture des mêmes données :

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
16
 
  Table1->Open();
  Table1->First();
  TStream * bsFlux = Table1->CreateBlobStream(Table1->FieldByName("BLOB"),bmRead);
  char * items = new char[bsFlux->Size];
  try
  {
    bsFlux->Read(items, bsFlux->Size);
    ListBox1->Items->SetText(items);
    Table1->Close();
  }
  __finally
  {
    delete bsFlux;
    delete[] items;
  }

Peut-être peux-tu l'adapter pour le tester chez toi, ou comparer peut-être ?

Cordialement,

Arnaud

[Sunchaser]

Merci Greybird,
Ca c'est sur, un beau code comme ça, je vais l'essayer !
Je termine une p'tite chose et me remet sur ce souci que j'avais contourné avec une de mes 'cocottes'.
Je préfère amplement rebosser sur une partie de mon code pour qu'il soit ce que je voulais qu'il soit au final. Sinon j'ai peur tourner en rond, et pas d'avancer.
Au fait, se peut il que mon probleme vienne de la methode utilisée pour écrire ds le champ :
j'avais utilisé qqchose comme 'Fields->Value = StringList->Text', ce qui
semble terriblement 'barbare' par rapport a ton code.

Je te tiendrai au courant du resultat, encore merci

[Greybird]

j'avais utilisé qqchose comme 'Fields->Value = StringList->Text', ce qui
semble terriblement 'barbare' par rapport a ton code.

Ben si tu n'écris pas dans le flux, oui, ça doit poser problème...

Cordialement,

Arnaud

[Sunchaser]

Bonsoir,

Mince, il plante encore avec le meme message a :

Code :

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

1
2
 
bsFlux->Read(items, bsFlux->Size);

Mais au fait, j'avais tenté d'utiliser deux TStream simultanément sur deux champ distinct de la meme table.
En utilisant scrupuleusement ta methode, a l'écriture no problemo.
A la lecture, encore se satané message...

[Greybird]

Tu t'es bien positionné sur un enregistrement de ta table avant ?

[Sunchaser]

Oui Maitre...
De cela, je suis sur.
La table est filtrée en amont.
...

[Greybird]

Et bien là, j'ai un peu de mal à voir ce qui peut se passer...

[Sunchaser]

Bon, je vais tenter de mettre des extraits du code avec le test comportant 'CreateBlobStream' calqué sur l'exemple donné.
Mais j'ai peur que certaines lignes soient 'tronquées, et que ce ne soit pas facilement lisible...
Ecriture :

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
16
17
18
 
//nouveau test stringlist
  TStream * FluxValeurTest = frmGouter->TableFichePerso->CreateBlobStream(frmGouter->TableFichePerso->Fields->Fields[3],bmWrite);
  TStream * FluxNomChamp =  frmGouter->TableFichePerso->CreateBlobStream(frmGouter->TableFichePerso->Fields->Fields[2], bmWrite);
  try
  {
    char * ElementValeurTest = frmGouter->pList->GetText();
    char * ElementNomChamp = frmGouter->pListCategorie->GetText();
    FluxValeurTest->Write(ElementValeurTest, StrLen(ElementValeurTest));
    FluxNomChamp->Write(ElementNomChamp, StrLen(ElementNomChamp));
    StrDispose(ElementValeurTest);  StrDispose(ElementNomChamp);
  }
  __finally
  {
    delete FluxValeurTest;
    delete FluxNomChamp;
  }
//

Lecture :

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
16
17
18
19
20
21
22
23
24
 
frmGouter->pList = new TStringList; frmGouter->pListCategorie = new TStringList;
  TStream * FluxValeurTest = frmGouter->TableFichePerso->CreateBlobStream(frmGouter->TableFichePerso->FieldByName("ValeurTest"),bmRead);
  TStream * FluxNomChamp =  frmGouter->TableFichePerso->CreateBlobStream(frmGouter->TableFichePerso->FieldByName("NomChamp"), bmRead);
  char * ElementValeurTest = new char[FluxValeurTest->Size];
  char * ElementNomChamp = new char[FluxNomChamp->Size];
  try
  {
    FluxValeurTest->Read(ElementValeurTest, FluxValeurTest->Size);
    FluxNomChamp->Read(ElementNomChamp, FluxNomChamp->Size);
    frmGouter->pList->SetText(ElementValeurTest);
    frmGouter->pListCategorie->SetText(ElementNomChamp);
  }
  __finally
  {
    delete FluxValeurTest; delete FluxNomChamp;
    delete[] ElementValeurTest;  delete[] ElementNomChamp;
  }
for (int i = 0; i < frmGouter->pListCategorie->Count; i ++)
{
frmGouter->TexteChamp = frmGouter->pListCategorie->Strings[i];
frmGouter->ChoixFiltreDecompte = frmGouter->pList->Strings[i];
frmGouter->CreationTableDecompte->Execute();
}

Voila. J'espère que ça passe a peu près bien...
Quoi qu'il en soit, merci Greybird de t'etre penché sur mon souci
Cordialement,
Vinc.