MCISendString: un probleme

Version imprimable

30/03/2007, 16h28
m14w

MCISendString: un probleme
J'essaie de me servrid e cette fonction:
Code:

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 ?
30/03/2007, 19h00
philnext

C'est quoi MCISendString ?
30/03/2007, 22h33
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.
30/03/2007, 22h47
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.

@+
30/03/2007, 22h56
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.
30/03/2007, 23h05
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.
30/03/2007, 23h18
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.

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

Essaies
Code:

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

ceci

Code:

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.

01/04/2007, 01h04
Fabrice ROUXEL 1

Citation:

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:

SendMCICommand('play ' + OpenDialog1.FileName);

J'ai testé, ça fonctionne.

--
01/04/2007, 01h09
m14w

pourrais tu defginir la fonction: SendMCICommand stp ?

Ah oui pardon

Code:

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;

01/04/2007, 01h18
Fabrice ROUXEL 1

Le code utile est celui la :

Code:

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

:mrgreen:

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 :resolu:
04/04/2007, 23h04
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.
05/04/2007, 00h04
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.

@+
05/04/2007, 01h58
m14w

est ce que par le plus pur des hasard il faut initialiser quelque chose ?
05/04/2007, 02h05
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.
05/04/2007, 05h49
m14w

en fait je peux bien lire les fichiers midi sur mon ordi. (avec winamp par ex)
donc le probleme est ailleurs.
05/04/2007, 17h53
defluc
C'est dans «Open» que le nom de fichier doit être renseigné.
Essaie donc
Code:

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

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:

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 :resolu:

28/04/2007, 23h23
m14w

le probleme est lié au nom des fichiers.
format 8.3 !
y a til moyen de prendre les noms de fichiers au format standard ?
28/04/2007, 23h50
m14w

sinon j'ai sous la main un fichier dont la durée est donnée fausse par la fonction, mais qui a la lecture semble correcte. vous avez une idée d'ou ca peut venir (c'ets une exception)
29/04/2007, 04h10
m14w

est il possible d'ouvrir le midi en passant par un midiOutOpen ?
gerne je l'ouvre le fichier mais il passe par un midioutopen ?