Discussion :

[Ardely]

Bonjour,

Pouvez-vous m'aider, comment exécuter un fichier Wav à partir d'un TmemoryStream?

Voici ce qui fonctionne, je récupère un fichier Wav dans une base de données
et je sauvegarde le fichier sur le disque puis avec TmediaPlayer je le récupére pour le faire jouer.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
..
 FileStream := TMemoryStream.Create;
..get audio from DataBase
sAudio:='E:\Audio1.wav';
 FileStream.SaveToFile(sAudio);
..
MediaPlayer1.FileName := sAudio;
MediaPlayer1.Open;
MediaPlayer1.play;

J'aimerais bien à ne pas faire enregistrer le fichier audio sur le disque, mais de le faire jouer directement avec le mediaPlayer1.

Ma question, comment donner au mediaPlayer1 un stream wav pour le faire jouer, merci beaucoup pour votre aide.

Salutation

[popo]

Si tu as un WAV encodé dans ta base. Il n'est pas venu tout seul.
En regardant comment est enregistré le WAV dans la base tu pourra en déduire la manière de l'extraire.

[Ardely]

J'arrive à extraire le fichier en le sauvegardant sur le disque mais le but est de ne pas le faire enregistrer sur le disque mais de le faire jouer directement par le mediaplayer !
exemple:

Code :

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

1
2
 
MediaPlayer1.?? := FileStream. ??

[Paul TOTH]

je pense qu'il faut passer par l'API Windows

exemple http://www.scalabium.com/faq/dct0091.htm

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
21
 
var
  b: TBlobStream;
  m: TMemoryStream;
begin
  b := TBlobStream.Create(yourTable, bmRead);
  try
    m := TMemoryStream.Create;
    try
      {copy a wav from BLOB into memory}
      m.CopyFrom(b, b.Size);
 
      {Play it but if we'll have an error, raise exception}
      Win32Check(PlaySound(m.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      m.Free
    end;
  finally
    b.Free
  end;
end;

[Ardely]

Hello,
Super grand merci pour ton exemple c'est exactement ça qui me faut mais ..., en cherchant très longtemps une solution je constate aussi des inconvénients de Tmediaplayer et PlaySound! Si j'ai bien compris c'est impossible de passer un stream au mediaplayer avec PlaySound c'est possible!
Mais avec mediaplayer on peut avoir la durer en ms du Wav ou MP3 dont avec PlaySound ceci est impossible. Dans mon cas j'ai besoin le temps total d'écoute d'un audio en ms et de pouvoir faire jouer du wav et mp3. Ainsi je pense que je préfère opter pour le choix du mediaplayer même si je dois d'abord sauvegarder l'audio sur le disque dure....
Merci et bonne journée