'BLOB non ouvert ' le retour !!

Version imprimable

13/01/2005, 22h27
Sunchaser

'BLOB non ouvert ' le retour !!

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'...
:cry:
Alors, grosse betise ou petite erreur de jeunesse ? :lol:
Merci d'avance
NB : Table de type Paradox 7, au travers d'un TTable.

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:

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:

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

14/01/2005, 00h28
Sunchaser

Merci Greybird,
Ca c'est sur, un beau code comme ça, je vais l'essayer ! :D
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 :D
14/01/2005, 14h39
Greybird

Citation:

Envoyé par Cantrelle

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
14/01/2005, 20h07
Sunchaser

bloub, bloub le blob
Bonsoir,

Mince, il plante encore avec le meme message a :
Code:

1 2 bsFlux->Read(items, bsFlux->Size);
:cry:
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...
14/01/2005, 20h18
Greybird

Tu t'es bien positionné sur un enregistrement de ta table avant ?
14/01/2005, 21h31
Sunchaser

Oui Maitre... :D
De cela, je suis sur.
La table est filtrée en amont.
...
14/01/2005, 21h45
Greybird

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

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:

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:

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. :)