Воспроизведение MID

[Alex Cones]

Попробовал вот так:

 MidFileS := Directory.Sounds + 'Start.mid';
 mciSendString(PChar('play '+MidFileS),nil,1,0);

- нуль-эффект.
MMSystem подключил. Трассом прошелся, путь к файлу правильный.

[raxp]

не могёт такого быть, проверь пути еще раз в MidFileS... и кстати, в ресурсы загони - таскать не придется, а из них как обычно:

implementation
 {$R mid\rmid.res}
...
var ZMID : HRSRC;
     MIDHandle : HGLOBAL;
     bufer : array[0..50000] of pchar;
     TempFile : File;
begin
  ZMID:=FindResource(HInstance,'rmid',RT_RCDATA);
  IF MIDHandle<>0 then begin
   MIDHandle:=LoadResource(HInstance,ZMID);
   CopyMemory(@bufer,Pointer(MIDHandle),SizeofResource(HInstance,ZMID));

   AssignFile(TempFile,'~temp.mid');
   REWRITE(TempFile,1);
   BlockWrite(TempFile,Bufer[0],SizeofResource(HInstance,ZMID));
   CloseFile(TempFile);
  end;
  //
  MCISendString(PChar('play ' + '~temp.mid'),nil,0,0)

[mihali4]

А чем TMediaPlayer не устраивает?

[Alex Cones]

не могёт такого быть

 MidFileS := Directory.Sounds + 'Start.mid';
 If FileExists(MidFileS) Then Windows.Beep(700,700);
 MCISendString(PChar('play '+MidFileS),nil,0,0);

Бип есть а миди нет.
Может звук как-то не так соорудил?

А чем TMediaPlayer не устраивает?

Ммм... Скажем так: к нему нет возможности обратиться.

[raxp]

а вот тут MidFileS := Directory.Sounds + '\Start.mid'; - слэшек есть или он уже в Directory.Sounds присутствует?
зы: Start.mid - в мене воспроизвелся нормально в проекте alius, так что щось в путях... относительный кстати или абсолютный в Directory.Sounds?

[Alex Cones]

а вот тут MidFileS := Directory.Sounds + '\Start.mid'; - слэшек есть или он уже в Directory.Sounds присутствует?

Procedure FillDirectory;
 Begin
  GetDir(0, Directory.ExeDir);
  Directory.MainData := Directory.ExeDir + '\MainData\';
  Directory.Resource := Directory.ExeDir + '\Resource\';
  Directory.InterDir := Directory.Resource +'Interface\';
  Directory.Sounds   := Directory.Resource +'Sounds\';
  Directory.DataBase := Directory.MainData +'DataBase\';
  Directory.WordData := Directory.MainData +'WordData\';
 End;

+ Файл экзист сработал...

P.S. Только что создал пустой проект и поставил запуск мидишки на батон - чуда не произошло, не воспроизвелось.

[raxp]

 GetDir(0, ExeDir);
 Resource := ExeDir + '\Resource\';
 Sounds   := Resource +'Sounds\';
 MidFileS := Sounds + 'Start.mid';
 MCISendString(PChar('play '+MidFileS),nil,0,0);

- воспроизвелось однако... Directory - тип запись? а внутренние переменные pchar или string?

[Alex Cones]

pchar или string?

Совсем не первое и не совсем второе:

  TDirectory = Record
              ExeDir   : ShortString;
              MainData : ShortString;
              Resource : ShortString;
              InterDir : ShortString;
              Sounds   : ShortString;
              DataBase : ShortString;
              WordData : ShortString;
   End;

[raxp]

при втором и третьем все ок... а без этих путей, по-простому MCISendString(PChar('play Start.mid'),nil,0,0) воспроизводит хоть ?

upd
-------

Alex Cones
Нет (разумеется скопировал в дир с ехе)
По-моему MCI меня боится...

мде... однако... ну еще вариант воспроизводить через bass.dll или directshow

[Alex Cones]

 MCISendString(PChar('play Start.mid'),nil,0,0);

Нет (разумеется скопировал в дир с ехе)
По-моему MCI меня боится...

---

bass.dll

- ~700 кб... Мдя... Проще конвертнуть mid в wav

---

Поискал winmm.dll: