Discussion :

[sat83]

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 :

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

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?

[sat83]

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 :

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

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 !

[blondelle]

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

Code :

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

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

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

[totoche76]

Hello,

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 :

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

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);