Discussion :

[tleboukaka]

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

[tleboukaka]

bjr,

Voici le code que j’avais reçu avant sur le forum de la part de Mr MONTOR
J'avais fermé la discussion quand j’ai réussi à afficher les Images/photos au format bmp
Mais cette fois c’est avec les images Jpeg - plus leger que bmp

Cette routine n'affiche pas d'erreur de compilation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure ChargerJPG(const Stream :TStream; Fichier :TBitmap);      
var
   PhotoJpeg : TJPEGImage;
begin
     if not Assigned(Fichier) then Exit;
     if not Assigned(Stream) then Exit;
     PhotoJpeg := TJPEGImage.Create;
     try
       PhotoJpeg.LoadFromStream (Stream);
       Fichier.Assign(PhotoJpeg);
     finally
       PhotoJpeg.Free();
     end;
end;

Ensuite,

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
18
19
20
procedure TdmGesco2010.dtsEleveAfterScroll(DataSet: TDataSet);
// si je comprend, ceci est une procedure par rapport à la manipulation du TDBNavigator
var     Stream : TStream;       
begin
  with dmGesco2010 do
  begin
  With dtsEleve do           
  Stream :=  CreateBlobStream(dtsEleveElvPhoto, bmRead);   
  Stream.Position:=0;
  ImgElvPhoto.Picture.Graphic := nil;    // erreu ici : Ne reconnais pas Picture !!!???????
  try
    try
      ChargerJPG (Stream, ImgElvPhoto.Picture.Bitmap);	// ne reconnait pas PICTURE
    except
    end;
  finally
    Stream.Free;
  end;
  end;
end;

Quelqu'un peut il me venir en aide !

Merci d'avance à tous
Je suis connecté jusqu'à 16h