Discussion :

[bionicleman]

Bonjour a tous,

Voilà mon problème j'ai une ressource contenant un MP3 et je voudrais la lire lors de l'ouverture de ma form "Aboutbox".
Voilà le code que j'utilise :

Les variables:

Code :

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

1
2
Res : TResourceStream ;
  CheminMp3: string;

La ressource:

Code :

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

{$R musique.RES}

Le code:

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
procedure TForm1.About1Click(Sender: TObject);
begin
Res := TresourceStream.Create(0, 'musique', 'MP3');
  try
    CheminMp3 := ExtractFilePath(Application.ExeName) + 'musique.mp3';
    Res.SaveToFile(CheminMp3);
    mediaplayer1.Close;
    mediaplayer1.FileName := CheminMp3;
    mediaplayer1.Open;
    mediaplayer1.Play;
  finally
  Res.Free;
end;
AboutBox.show;
end;

Delphi me renvoie le message "Resource musique not found."

Merci d'avance de votre aide =)

[Cl@udius]

Salut

As-tu essayé ainsi:

Code :

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

1
2
 
  Res := TResourceStream.Create(hInstance, 'musique', 'MP3');

@+ Claudius

[bionicleman]

Je viens de tester a l'instant et rien ne bouge, j'ai toujours le même problème