Discussion :

[tleboukaka]

Bonjour à tous,
J’ai une base de données en SQL SERVER 2000, Interfaçe DELPHI 7

Problème :
Je voudrais récupérer une photo scannée et la mettre dans ma fiche Delphi dans la zone TDBImage (j’ai nommé cette zone : ImgPhoto),
laquelle zone en relation avec le champ PhotoEtudiant de type Image de ma table tblEtudiant (j’ai nommé ce champ de ma table : ElvPhoto)

Alors comment faire à ce que :
1- Je puisse coller chaque photo de chaque ETUDIANT
2- Quand je vais défiler d’un enregistrement à l’autre, que la photo correspondant à chaque Etudiant s’affiche

NB : quel est le format idéal pour scanner mes photos (jpeg, bmp, ...) ?

Merci d’avance de votre aide

[HASSIOMAR]

Je travaille pour le moment avec BDE et delphi 7.

1) Tout d'abord avec le BDE tu crées un champ IMAGE de type B (BLOB) et
un autre champ MATR par exemple.

2) Tu met dans form1 les composants suivants
- Topendialog (propriete filtre *.bmp)
- Timage
- Tlistbox
et un bouton type panel avec le code suivant

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
 IF OD1.Execute THEN image1.Picture.LoadFromFile(OD1.FileName);
 LISTBOX1.Items.Add(OD1.FileName);
end;

Qui charge les image bmp a partir de ton repertoire dans listbox1.

3) Tu ajoutes un bouton INSERT pour saisir le numero de la photo
sur MATR avec le code suivant:

Code :

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

1
2
3
 
 TABLE1.Insert; 
 DBEDIT1.SetFocus;

4) Tu ajoutes un bouton ENREGISTRER LA PHOTO avec le code suivant:

Code :

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

1
2
3
4
 
  TABLE1.FieldValues['MATR']:=DBEDIT1.Text;  
  DBImage1.Picture.LoadFromFile(LISTBOX1.Items[Listbox1.ItemIndex]);
  TABLE1.Post;

5) Tu ajoute un dbgrid et le champ dbimage et tu verras parcourir tes photos
comme bonjour.

Si ça marche avec la BDE ça marchera aussi avec SQL SERVER.

et bon courage.