Bonjour ,
Le code "table2.FieldByName('Base').AsString" permet de lire la valeur du champ 'Base' sélectionné par le curseur de la boîte-liste servant de scrool..
Pour afficher l'image sélectionnée dans un TPicture, j'ai mis le code suivant :
"procedure TForm1.Table2AfterScroll(Dataset:TDataSet);
begin
Image1.Picture.LoadFromFile(sDirImg + Table2.FieldByName('Base').AsString);
end;
"
A l'exécution, l'image ne s'affiche pas mais avec le message d'erreur:" le projet1.exe a provoqué une classe d'exception avec le message "Impossible d'ouvrir le fichier 'b4.bmp' ".malgré que le chemin d'accès complet soit correct et défini par sDirImg. Il faut que cette phase soit automatisée sans avoir recours manuellement à une quelconque boîte de dialogue .. de la même façon que Windows le fait pour lister des fichiers images.
Quelle erreur ai-je commise? ..
Merci d'avance aux connaisseurs.
Jacques DUDORET
Partager