Tquery et TdbImage

Version imprimable

Tquery et TdbImage

Bonjour,

j'essaye mais sans succès de chargé une image que j'ai sauvegardé dans ma DB Access. Voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 void __fastcall TFicheClient::VoirPhoto() { try { QueryModClient->Close(); QueryModClient->ParamByName("IdClient")->Value=IdEdit->Text; if(!QueryModClient->Prepared) QueryModClient->Prepare(); QueryModClient->Open(); if (QueryModClient->FindFirst()==true) DBImage->Picture->Assign(QueryModClient->FieldByName("Photo")); } catch (Exception &exception) { Application->ShowException(&exception); } }
Le message d'erreur est le suivant: class EInvalidGraphic with Message "Bitmap Image is not valid"
J'ai essayé une image au format jpg et une aute au format bmp et j'ai même changé dans le code l'assignation où j'ai mis: DBImage->Picture->Bitmap->Assign(QueryModClient->FieldByName("Photo")) ;

Est-ce que quelqu'un a une iéde de ce que je fais d'incorrecte?

Moi lorsque j'utilise un dbimage je fais ceci

Code:

1
2
3
4
5
6
7
8
9
10
 
AnsiString req="select * from PHOTO where REF like '"+P_modele+'";
DataSource1->Enabled=false;
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(req);
Query1->Open();
DataSource1->Enabled=true;
 
DBImage1->DataSource=DataSource1;

mais j'utilise SQL server

Excuse moi il faut enlever DMPHOTO, rien à voir c'est juste une erreur de copier coller
Code:

1 2 3 4 5 6 7 8 9 10 11 AnsiString req="select * from PHOTO where REF like '"+P_modele+'"; DataSource1->Enabled=false; Query1->Close(); Query1->SQL->Clear(); Query1->SQL->Add(req); Query1->Open(); DataSource1->Enabled=true; DBImage1->DataSource=DataSource1;