Форум: "Игры";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Вниз

TDXSound без VCL   Найти похожие ветки 

← →
Кефир87 ©   (2005-10-26 17:14) [0]

Решил в свою конкурсныю работу всетаки звук добавить. Но понял что не умею и хочу использовать 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-26 18:15) [1]

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

---

← →
boalse ©   (2005-10-28 04:24) [2]

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

---

← →
XProger ©   (2005-10-28 07:27) [3]

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

---

← →
boalse ©   (2005-10-28 09:53) [4]

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

---

← →
Кефир87 ©   (2005-10-28 21:56) [5]

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

---

Страницы: 1 вся ветка

Форум: "Игры";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c