Cod bouton qui qui mène vers une photo et un son waw [Résolu]

Signaler
Messages postés
27
Date d'inscription
mardi 25 novembre 2014
Statut
Membre
Dernière intervention
9 septembre 2015
-
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
-
Bonjour,
Bonjour
je suis débutant sur Delphi j'ai réalisé des applications genre apprendre les couleur, mais j'aimerais bien apprendre la programmation plus, je veux mettre un bouton (code)qui qui seras issu vers une photo et un son waw
Merci pour votre aide

2 réponses

Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
bonjour,

merci d'être précis dans ce que tu souhaites faire
Peut-être, afficher une image avec un son selon qu'il s'agit d'un
tif, jpeg, bmp ou png par exemple ?
Messages postés
27
Date d'inscription
mardi 25 novembre 2014
Statut
Membre
Dernière intervention
9 septembre 2015

Bonjour et merci
Ce que je veux faire c'set quand je clic sur un bouton il affiche une photo jpeg avec un son wav
Comment mettre ce code, j'en ais la photo et le son
Merci
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Salut,

Allez, un petit exemple très simple.
Tu ajoutes un TButton et un TImage sur la fiche, et tu recopies ce code dans l'évènement OnClick du bouton :

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound(PChar('C:\WINDOWS\Media\Windows XP Démarrage.wav'), SND_ASYNC);
  Image1.AutoSize := True;
  Image1.Picture.LoadFromFile('C:\WINDOWS\winnt256.bmp');
end;


N'oublie pas "uses MMSystem" pour l'appel à l'api, sinon ça ne marchera pas.
Et si c'est un fichier "jpg", ajoute également "Jpeg" dans les uses.
Et bien sûr, tu adaptes les chemins aux fichiers "ouaou" et "image" auxquels tu veux accéder...
Un petit conseil : n'hésite pas à ouvrir un bon bouquin d'initiation à Delphi pour acquérir les bases.
Bon courage pour la suite.
Messages postés
27
Date d'inscription
mardi 25 novembre 2014
Statut
Membre
Dernière intervention
9 septembre 2015

Bonjour
Vous voulez dire d'écrire l'emplacement du fichier sur mon hdd
sndPlaySound(PChar('C:\WINDOWS\Media\Windows XP Démarrage.wav'), SND_ASYNC);------pour le son
Image1.AutoSize := True;
Image1.Picture.LoadFromFile('C:\WINDOWS\winnt256.bmp');---------pour l'image
Merci pour l'explication
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16 >
Messages postés
27
Date d'inscription
mardi 25 novembre 2014
Statut
Membre
Dernière intervention
9 septembre 2015

"Vous voulez dire d'écrire l'emplacement du fichier sur mon hdd
sndPlaySound(PChar('C:\WINDOWS\Media\Windows XP Démarrage.wav'), SND_ASYNC);------pour le son
Image1.AutoSize := True;
Image1.Picture.LoadFromFile('C:\WINDOWS\winnt256.bmp');---------pour l'image"

Oui.