Форум: "Игры";
Текущий архив: 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.46 MB
Время: 0.014 c
