Использование MediaPlayer в своем классе.

[Вадим Буренков]

У меня в игре есть класс TEnemy:

TEnemy = class 
   Enemy: Tbitmap; 
   //Boom: Tbitmap; 
   Xpos,Ypos:integer;
   Xspeed, Yspeed:integer;
   EnemyBorn : boolean;
   MPlayer:TMediaPlayer //??????
   Procedure LoadMem(path:string);
   Procedure FreeMem;
   Procedure CreateEnemy;
   procedure DestroyEnemy;
   procedure DrawEnemy;
end;

Можно ли запихнуть в класс компонент MediaPlayer.
Чтобы я мог создать массив из TEnemy

Enem: array [1..10] of TEnemy;

и при смерти врага проигрывать определенный звук

Enem[4].Mplayer.play;

(Это все пример)
Ведь врагов много, для каждого собственный плеер не создашь.Или как еще можно проигрывать много звуков одновременно?

[mihali4]

У MediaPlayer есть свойство Shareable.

Description

If Shareable is false, no other components or applications can access the device. If Shareable is true, more than one component or application can access the device. Shareable defaults to false.
Be sure to set Shareable before opening a device.
Some devices are not shareable. If Shareable is set to true for a device that isn't shareable, the Open method fails and the error code is returned to the Error property.

Вы что - хэлпом пользоваться совсем не умеете?

[Манжосов Денис :)]

можно вызывать процедуру (созданную отдельно вами)

procedure UnitDestroy;
begin
  PlaySound('Имя файла.wav', 0, SND_ASYNC);
end;

Это позволит проигрывать звук. Предварительно подключить модуль MMSYSTEM.
P.S. Процедура будет работать только для Wav и Midi файлов.

[Вадим Буренков]

Вы что - хэлпом пользоваться совсем не умеете?

Он на английском языке.

А можно с помощью PlaySound проигрывать нескольео звуков одновременно?Если поставить в очередь то проигрываться будет посдедний.

PlaySound('sound\Game\Start.wav', 0, SND_ASYNC);  
PlaySound('sound\Music\AQUA.wav', 0, SND_ASYNC); //проигрывается только этот

[mutabor]

Вадим Буренков, советую вам воспользоваться библиотекой FMOD, только не последнюю (в ней от поддержки Дельфи отказались), а 3-ю версию скачайте.
Правда, там хэлп тоже на английском Но есть примеры на Дельфи, его то вы знаете?
оф. сайт http://www.fmod.org/
скачать версию 3.75 http://www.fmod.org/index.php/releas...dapi375win.zip

По теме: Можно конечно, также как и объект любого другого класса. В конструкторе вашего класса создаете плеер, там же или в другом отдельном методе загружаете ему имя файла и открываете, в деструкторе вашего класса удаляете плеер.

TEnemy = class 
   Enemy: Tbitmap; 
   //Boom: Tbitmap; 
   Xpos,Ypos:integer;
   Xspeed, Yspeed:integer;
   EnemyBorn : boolean;
   MPlayer: TMediaPlayer; //все правильно, так и надо
   Procedure LoadMem(path:string);
   Procedure FreeMem;
   Procedure CreateEnemy;
   procedure DestroyEnemy;
   procedure DrawEnemy;
  constructor Create(fn: TFileName); override;
  destructor Destroy;
end;

constructor TEnemy.Create(fn: TFileName);
begin
  inherited Create;
  MPlayer:=TMediaPlayer.Create(nil);
  MPlayer.FileName:=fn;
  MPlayer.Open;
end;

destructor TEnemy.Destroy;
begin
  MPlayer.Free;
  inherited Destroy;
end;

Ведь врагов много, для каждого собственный плеер не создашь.

Именно это вы и сделаете, "впихнув" плеер в ваш класс, создадите для каждого объекта (врага) свой объект - плеер. В любом случае кол-во объектов - плееров будет то же. Просто все будет более упорядочено, и скрыто от глаз, что есть верный подход.

Другое дело если у всех врагов звук умирания один и тот же, тогда это лишняя трата ресурсов создавать для каждого свой плеер, достаточно будет одного общего. А чтобы звук воспроизводился вовремя, можно всегда перед методом Play вызывать метод отмотки в начало, непомню его имя.

[Вадим Буренков]

Сделал так, но при выполнении MPlayer.open; компилятор пишет 'Control " has no parent window'