Enregistrer image dans base de donnée

Bonjour,

Je souhaite enregistrer une image dans une base de donnée via un TQuery.

Après quelques recherche sur le net, je suis arrivé a quelques chose, mais ca ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

TQuery *q ; q->Active = false ; q->SQL->Clear() ; q->SQL->Add( "INSERT INTO NomDeMaTable" ) ; q->SQL->Add( "(MyPk, MyBlobField) " ) ; q->SQL->Add( "VALUES ( 1 , " ) ; q->SQL->Add( " :STREAM_PICTURE ) " ) ; q->ParamCheck = true ; q->ParamByName( "STREAM_PICTURE" )->LoadFromFile( "C:\\aaa.jpg", ftBlob) ; try { q->ExecSQL() ; } catch(...) { /* Gestion Exception*/ }

---

Je suppose que je m'y prend mal, avez vous une idée d'où peut venir le problème?

A défaut d'y arriver en utilisant un TQuery, je me suis résigner a utiliser un TTable, et je fais de même pour le chargement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

TTable *table = new TTable(NULL); table->DatabaseName = "NOM_DATABASE" ; table->TableName = "NomDeMaTable" ; table->Active = true ; table->SetKey(); table->FieldByName( "MyPK")->AsInteger = 1 ; table->GotoKey();   table->Edit(); TBlobField *blob = ((TBlobField*)table->FieldByName( "MyBlobField" )); blob->LoadFromFile("C:\\aaa.jpg"); table->Post(); table->Active = false ; delete table ;

---

Si jamais quelqu'un arrive à effectuer la même chose en utilisant un TQuery, je reste à l'écoute !

Salut sat83
J'ai trouve ce bout de code en Delphi, ca t'aidera peut etre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close;{close the query} //assign new SQL expression Query1.SQL.Clear; Query1.SQL.Add ('Select EmpNo, FirstName, LastName'); Query1.SQL.Add ('FROM Employee.db'); Query1.SQL.Add ('WHERE Salary > ' + Edit1.Text); Query1.RequestLive := true; Query1.Open; {open query + display data} end;

---

plus un lien

Citation:

---

http://bcbjournal.org/articles/vol2/...dadbcef41f8083

---

Hello,

Citation:

---

Envoyé par sat83

Si jamais quelqu'un arrive à effectuer la même chose en utilisant un TQuery, je reste à l'écoute !

---

Pour faire ce genre de choses, tu peux utiliser SetBlobdata :

Code:

---

1 2 3 4 5

// q: un TQuery // pDonnees : pointeur (void*) sur les données à enregistrer // taille : taille en octets des données q->ParamByName("O_DNE_BLOB")->SetBlobData(pDonnees, taille);

---