| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TDXSound без VCL [Delphi, OpenGL, Windows]

Кефир87 ©   (2005-10-26 17:14:00) 

Решил в свою конкурсныю работу всетаки звук добавить. Но понял что не умею и хочу использовать DXSound. Плевать на то что екзешник разбух в два раза... Так вот не получается ничего... Что ему вообще надо-то?!


unit uSound;

interface
uses
 DXSounds;

var
 DXSound : TDXSound;
 DXSlist : TDXWaveList;

function dxsLoadWAVE(filename : string):Integer;
procedure dxsPlaysound(index : Integer);

implementation

procedure dxsPlaySound;
begin
 DXSlist.Items[index].Play(False);
end;

function dxsLoadWAVE;
var
 snd : TWaveCollectionItem;
begin
 DXSlist.Items.Add;
 with DXSlist.Items[DXSlist.Items.Count-1] do
 begin
   Wave.LoadFromFile(filename);
   Volume := 100;
 end;

 Result := DXSlist.Items.Count;

end;

initialization
 DXSound := TDXSound.Create(nil);
 DXSound.AutoInitialize := True;

 DXSlist := TDXWaveList.Create(nil);
 DXSlist.DXSound := DXSound;
 
end.


---

Кефир87   (2005-10-28 21:56:00) [1]

XProger прав. Но у меня просто нет времени до 4го ноября чтоб с DirectSound разбираться. А после обязательно разберусь. Я что-то по этому поводу читал и понял что это муть...
Кстати я разобрался с DXSound'ом... Все написанно на code.rpro.ru в форуме "In progress.."

---

boalse   (2005-10-28 09:53:00) [2]

XProger, не задирайся! :))

---

XProger   (2005-10-28 07:27:00) [3]

DirectSound API классаная вещь, правда желание читать чужие исходники нужно ;)

---

boalse   (2005-10-28 04:24:00) [4]

OpenAl классная вещь, правда к ней длл-ка нужна.

---

Кефир87   (2005-10-26 18:15:00) [5]

Блин. Забыл DXSound.Initialize... Теперь говорит что Form Not Found. Придется создавать форму спец для DXSound?! Это-же изврат! Я не хочу использовать VCL!

---

Наверх