Discussion :

[Chyokyka]

Salut , je souhaiterais jouer un son dans une TListBox .
J'ai lister les son du repertoire C:\WINDOWS\Media\
et je souhaiterais lir les son .
J'ai fait :

Code :

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

1
2
3
4
5
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
PlaySound(ListBox1.Items,0,SND_FILENAME);
end;

Mais quand je compile sa me marque :

Code :

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

1
2
 
[Erreur] Unit1.pas(60): Types incompatibles : 'TStrings' et 'PChar'

Voila ^^

[jojo86]

Salut, il faut que tu convertisse ton chemin "String" vers le fichier son en Pchar
Pchar()

Code :

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

PlaySound(Pchar(ListBox1.Items),0,SND_FILENAME);

Mais ListBox1.Items ne pointe pas vers un Items bien précis... Je ne comprend pas ce que tu veux faire...

Comment à tu listé les sons dans ton ListBox?

[ero-sennin]

Salut,

Comme le souligne jojo86, ListBox1.Items ne pointe pas vers un Items bien précis ...

Il te faut faire ainsi :

Code :

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

PlaySound(Pchar(ListBox1.Items[ListBox1.ItemIndex]),0,SND_FILENAME);

A+

[Chyokyka]

Merci !
@++

[Chyokyka]

Héhé merci !
Grace a vous je sais comment on convertis en Pchar !