Discussion :

[m14w]

J'essaie de me servrid e cette fonction:

Code :

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

1
2
 
 MCISendString(PChar('play ' + edit1.text), nil, 0, 0);

mais ca ne marche pas.
Je me sers d'un ficheir midi.
Quelqu'un peu m'aider ?

[philnext]

C'est quoi MCISendString ?

[m14w]

une fonction de bas niveau, je test des codes souces d'ailleurs mais ils ne semble pas foncitonner, meme avec mmsystem dans la declaration.

[Fabrice ROUXEL 1]

Pour lire des fichiers midi il faut t'orienter vers des librairies spécialisées.
Playsound ou mcisendstring ne gérent pas le format .mid.
Par contre pour du .wav cela fonctionne très bien.


@+

[m14w]

ben mon but final est de connaitre la durée d'un ficheir midi.
Je me sert de mediaplayer, mais je constate des bugs sur cette fonction, de meme que windows media player affiche parfois des durée fantaisiste.
Je suis en train de voir avec l'activex de WindowsMediaPlayer1 mais j'ignore si j'ai legalement le droit de distribuer un logiciel fait avec cet activeX.

[Fabrice ROUXEL 1]

Sinon ici
tu as dll FMod + les fichiers de conversion .pas et des exemples d'utilisation en Delphi.
FMode gère le mdi.

[m14w]

hmm merci j'y jeterais un coup d'oeil.
pourtant j'ai trouvé des exemples sur le web ou l'on se sert de mmsystem pour lire des midis.
Enfin merci quand meme.

[defluc]

Je suis désolé Fabrice mais MciSendString gère les fichiers Midi

Essaies

Code :

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

1
2
  mciSendString('Open ' + MidiFile + ' Type Sequencer alias Fichier',Nil,0,0);
  mciSendString ('play Fichier', Nil, 0, 0);

Tu seras convaincu

[m14w]

ceci

Code :

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

1
2
3
4
 
 MidiFile:=edit1.text;
mciSendString(pchar('Open ' + MidiFile + ' Type Sequencer alias Fichier'),Nil,0,0);
  mciSendString ('play Fichier', Nil, 0, 0);

devrait marcher mais ne marche pas.

[Fabrice ROUXEL 1]

Je suis désolé Fabrice mais MciSendString gère les fichiers Midi

Effectivement, c'est vrai. Comme quoi, il faut toujours vérifier ce qu'on lit à droite à gauche sur les sites ou forums.

Sinon voici la fonction qui va bien pour jouer un fichier .mid :

Code :

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

SendMCICommand('play ' + OpenDialog1.FileName);

J'ai testé, ça fonctionne.

--

[m14w]

pourrais tu defginir la fonction: SendMCICommand stp ?

[Fabrice ROUXEL 1]

Ah oui pardon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure SendMCICommand(Cmd: string);
var
  RetVal: Integer;
  ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    {get message for returned value}
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

[Fabrice ROUXEL 1]

Le code utile est celui la :

Code :

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

mciSendString(PChar('play ' + OpenDialog1.FileName), nil, 0, 0);

Non on ne tourne pas en rond(voir ton 1er post) puisque ce code fonctionne parfaitement.
(testé avec mon fichier Mozart.mid

N'oublies pas le Tag

[m14w]

non le probleme c'est que ca marche toujours pas.
au pire je vais faire une sauvegarde du message, et vous pourrez le mettre en delestage.

[Fabrice ROUXEL 1]

non laisses le post.
raffraichis le de temps en temps.

La premiere fois cela ne fonctionnait pas chez moi puis la derniere version postée a fonctionné qui en fait est la même que la première.
J'ai essayé un wave qui marchait
Apres le .mid est passé sans pb.

Maintenant, si j'ai le temps je vais étudier un peu cette api et le traitement sonore.


@+

[m14w]

est ce que par le plus pur des hasard il faut initialiser quelque chose ?

[Fabrice ROUXEL 1]

Dans le panneau de config, icone son&multimédia verifies si le controleur son pour le peripherique midi fonctionne correctement, si tu as bien un peripherique par defaut pour le midi et si le volume n'est pas muet.

[m14w]

en fait je peux bien lire les fichiers midi sur mon ordi. (avec winamp par ex)
donc le probleme est ailleurs.

[defluc]

C'est dans «Open» que le nom de fichier doit être renseigné.
Essaie donc

Code :

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

1
2
  mciSendString('Open ' + OpenDialog1.FileName + ' Type Sequencer alias Fichier',Nil,0,0);
  mciSendString ('play Fichier', Nil, 0, 0);

Et assure toi bien que OpenDialog1.FileName contient le nom du fichier avec son chemin complet

[Fabrice ROUXEL 1]

Bonjour

Tu poses 2 boutons, une gauge, un timer et un statusbar.
Le statusBar affiche la durée du fichier midi, la gauge affiche la progression du morceau.
Un bouton joue le morceau, l'autre l'interrompt.

Parfois il faut 5 secondes d'attente avant d'entendre le morceau.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Gauges, StdCtrls, ExtCtrls, ComCtrls, MMSystem;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Gauge1: TGauge;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Duree: String;
  protected
    function ExtractFileName(aFilename:String; WithExt: Boolean):String;
    function SecondesToJHMS(Time: Double): String;
  public
    procedure PlayMidi();
    procedure StopMidi();
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.ExtractFileName(aFilename:String; WithExt: Boolean):String;
var i: Integer;
begin
  aFileName := SysUtils.ExtractFileName(aFileName);
  if WithExt then Result := aFileName
  else
  begin
    Result := '';
    i :=0;
    while (aFileName[i] <> '.') do
    begin
     Result := Result + aFileName[i];
     Inc(i);
    end;
    Result := Trim(Result);
  end;
end;
 
function TForm1.SecondesToJHMS(Time: Double): String;
var
  base,
  res,
  r: integer;
  SL: TStringList;
  I: integer;
  Num: Integer;
begin
  Result := '';
  base := 60;
  Num := Trunc(Time);
  if num <= 0 then Result := '00';
  SL := TStringList.Create;
  While(Num>0) do
  begin
    res := Num div base;
    r := Num mod base;
    Num := res;
    SL.Add(IntToStr(r));
  end;
  for I := SL.Count -1 DownTo 0 do
  begin
    if (I = 0) then  Result := Result + Format('%.2u',[trunc( StrToInt(SL[I]) )])
    else
      Result := Result + Format('%.2u',[trunc( StrToInt(SL[I]) )]) +':';
  end;
  SL.Free;
end;
 
 
procedure  TForm1.PlayMidi();
var
 TotalTime: array[0..128] of char;
 filename: String;
 
begin
 if form1.Opendialog1.Execute then
 begin
   filename := form1.opendialog1.filename;
   MCISendString(PChar('close song'), nil, 0, 0);
   MCISendString(PChar('open ' + filename + ' alias song'),nil , 0, 0);
   MCISendString(PChar('set song time format ms'), 0, 0, 0);
   MCISendString(PChar('status song length'), TotalTime, 128, 0);
   MCISendString(PChar('play song'),nil, 0, 0);
 
   Gauge1.Progress := 0;
   Gauge1.MaxValue := strtoint(TotalTime);
   Timer1.Enabled := true;
 
   Duree := TrimRight(String(TotalTime));
   StatusBar1.Panels[0].Text := ExtractFileName(filename, False) + ' '
    + SecondesToJHMS(strtofloat(Duree) /1000);
   StatusBar1.Panels[1].Text := SecondesToJHMS(strtofloat(Duree) /1000);
 end;
end;
 
procedure  TForm1.StopMidi();
begin
  Timer1.Enabled := false;
  MCISendString(PChar('stop song'), nil, 0, 0);
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  TimePos: array[0..128] of char;
begin
  with Gauge1 do
  begin
    if progress < MaxValue then
    begin
      MCISendString(PChar('set song time format milliseconds'), nil, 0, 0);
      MCISendString(PChar('STATUS SONG POSITION'), TimePos, 128, 0);
      Gauge1.Progress := StrToInt(TimePos);
      StatusBar1.Panels[1].Text := SecondesToJHMS(strtofloat(Duree) /1000 );
      Duree := FloatToStr(strtofloat(Duree) - Timer1.Interval);
    end else Timer1.Enabled := False;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  StopMidi();
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   PlayMidi();
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
end;
 
end.

@+ et bon développement.

Penses au tag