Discussion :

[bs606739]

Bonjour,

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

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
 
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?

[BOUBOU81]

Moi lorsque j'utilise un dbimage je fais ceci

Code :

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

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

[BOUBOU81]

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

Code :

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

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;