Bjr
J’ai une bdd des ETUDIANTS (SQL SERVER + DELPHI 7),
Je veux qu’en créant un nouvel Etudiant que je puisse afficher sa photo
Je réussi à charger sa photo que je prends dans un dossier, elle s’affiche sur la fiche dans la zone TImage
Mais
Quand je valide et que je veux ajouter un autre Etudiant, la zone TImage conserve toujours la même photo.
NB : j’utilise le composant TDBNavigator pour manipuler mes enregistrements
Mes photos sont au préalable scannées au format .Jpeg - plus leger que le .bmp
Quelle est la routine (procédure) que je dois ajouter qui me permette de charger des photos de différents Etudiants !
Ci-dessous un extrait de mon code :
TImage = ImgElvPhoto ; // (un composant pour les images Jpeg)
dtsEleveElvPhoto : TBlobField ;
…
TADODataSet = dtsEleve (ElvMatricule, ElvNom, ElvPrenoms, …, ElvPhoto)
DataSource = dsEleve
TDBNavigator = dnvElv
TBitBtn = bbtChargerElvPhoto
…
implementation
{$R *.dfm}
uses Jpeg, Graphics;
…
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TfrmEleve.bbtChargerElvPhotoClick (Sender: TObject); var S:string; begin if PromptForFileName (S,'Images jpg|*.jpg','', 'Choisir une image') then begin ImgElvPhoto.Picture.LoadFromFile(S); // un composant de type TImage = ImgElvPhoto end; end;
Merci d’avance pour votre aide
Partager