{{notification.text}}

MirGames

09.05.07 17:17
0
Можно ли с помощью МСИ(MCI) загрузить mp3 или OGG?
Если можно то как???
#1
аксакал
09.05.07 17:48
0
lans
mp3 - без проблем! Смотри PlayFile
#2
11.05.07 01:23
0
XProger мне это очень сильно напоминает твой пример причем различия стремятся к 0!!!
я имел ввиду без использования ДиректИкс только на основе МСИ
И я в этом примере не очень то заметил использование Мси-функций
#3
11.05.07 04:40
0
там mp3 грузиться через mci \:\) раскрой глаза и посмотри на функцию PlayFile - она то, что тебе нужно \:\)
ну, и вот еще \:D
Код

unit Sound;

interface
  uses MMSystem;

type
  TSnd = object
  private
    // MCI
    music_mci_parms: MCI_PLAY_PARMS;
    music_mci_ID: DWORD;
    music_mci_name: PChar;
  public
    // MCI
    procedure PlayFile(Filename: PChar);
    procedure PlayCurrentFile;
    procedure PauseCurrentFile;
    procedure StopCurrentFile;
  end;

implementation

{ TSnd }

procedure TSnd.PauseCurrentFile;
begin
  mciSendCommand(music_mci_id, MCI_PAUSE, MCI_WAIT, Integer(@music_mci_parms));
end;

procedure TSnd.PlayCurrentFile;
begin
  if music_mci_id = 0 then
    PlayFile(music_mci_name)
  else
    mciSendCommand(music_mci_id, MCI_PLAY, 0, Integer(@music_mci_parms));
end;

procedure TSnd.PlayFile(Filename: PChar);
var
  MCIopen: MCI_OPEN_PARMS;
begin
  music_mci_name := Filename;
  if music_mci_id <> 0 then
    StopCurrentFile;
  with MCIopen do
  begin
    dwCallBack       := 0;
    lpstrDeviceType  := nil;
    lpstrElementName := Filename;
    lpstrAlias       := nil;
  end;

  if mciSendCommand(0, MCI_OPEN, MCI_OPEN_ELEMENT, Integer(@MCIopen)) = 0 then
  begin
    music_mci_id := MCIopen.wDeviceID;
    music_mci_parms.dwCallback := 0;
    music_mci_parms.dwFrom := 0;
    mciSendCommand(music_mci_id, MCI_PLAY, MCI_NOTIFY or MCI_FROM, Integer(@music_mci_parms));
  end;

end;

procedure TSnd.StopCurrentFile;
begin
  mciSendCommand(music_mci_id, MCI_CLOSE, 0, 0);
  music_mci_id := 0;
end;

end.
#4
аксакал
11.05.07 08:57
0
я спокоен, я спокоен... главное не нервничать )
Отредактировано: 11.05.07 08:58
#5
11.05.07 20:11
0
beisik то есть способ такой же кккак и в ваве я различий существенных не вижу

XProgerЗачем Сразу Нервничать?????????
надо ,надо...............
#6
11.05.07 21:36
0
lans
Ыыыы, а причем тут вава? :) Возможно тебя пугает ООП, и ты думаеш что все это DirectX? 8) Ты в модуле, что показал beisik и написал XProger, видиш хотябы в юзесе DurectX/DirectSound модули? :)

Ну а если ты о другом, то MCI играет разные форматы одним и тем-же способом :)
#7
13.05.07 01:22
0
не причём это я хочу сравнить и задаю вопрос такая же ли загрузка мп3 как и в ваве???
Andru спсасибо за ответ :)
а какие форматы мси ещё поддерживает???
#8
13.05.07 02:30
0
lans
Вроде все, которые поддерживаются установленными кодеками. Именно кодеками, а не отдельные библиотеки типа ogg и пр., которые проигрываются плеерами юзая разные отдельные либы.
#9
13.05.07 19:22
0
а как узнать какие кодеки установлены???
#10
17.05.07 23:07
0
люди как переместить позицию файла??
#11
статус
18.05.07 10:20
0
Юзай DirectShow :)
#12
18.05.07 13:48
0
RedRick
Присоединяюсь :)

lans
А вообще копни в сторону MedaiPlayer'а в Delphi, там исходы есть :) Я когда-то подобным занимался, но потом забил.
#13
19.05.07 01:34
0
я пробывал копать в сторону мплеера но потом забил потому что хрень в этих функциях одна на другой и названия левые не совсем понятно действия многих процедур
RedRick а я не присоединяюсь!!!
#14
аксакал
19.05.07 01:36
0
mciSendCommand(ID, MCI_SEEK, ...);
#15
19.05.07 01:42
0
так вопрос и рачитан на то что хранится в 3 и 4 параметре,а то как определить позицию трека я знаю , а как установить беспонятия!!!
#16
аксакал
19.05.07 02:51
0
Отредактировано: 19.05.07 02:51
#17
24.05.07 17:20
0
XProger гениально а по точнее =)
#18
mov, просто mov
25.05.07 00:05
0
lans
поиск
#19
25.05.07 12:37
0
Блин народ чё вы здесь устроили
В МСИ можна переместить лекго в начало трека или в конец но а как в середину в нужный Секунду я не знаю???подскажите
MegaI2 еще бы написал адресс гугла :)
#20
аксакал
25.05.07 14:03
0
Я же вроде ясно сказал - MCI_SEEK!
#{{post.Index}}
{{post.Author.Login}}
{{post.CreatedDate | date:'dd.MM.yy HH:mm'}}
{{post.VotesRating}}
Отредактировано: {{post.UpdatedDate | date:'dd.MM.yy HH:mm'}}