Скачать: CL | DM;

DXWaveList   Найти похожие ветки 

← →
Ruslan.   (2002-03-06 19:57) [0]

Как программно загрузить в DXWaveList(из DelphiX) несколько WAV файлов?
Заранее благодарен.

---

← →
Владимир Васильев ©   (2002-03-07 10:32) [1]

procedure TMainForm.LoadWaves(var ADXWaveList: TDXWaveList; Dir,FileName: string);
Var
FResult : integer;
SearchRec : TSearchRec;
Item : TWaveCollectionItem;
SoundName : String ;
begin

if FileName<>"" then
begin
SoundName:=FileName;
Item := TWaveCollectionItem.Create(ADXWaveList.Items);
Item.Name := SoundName;
Item.Wave.LoadFromFile(GetName(Dir,FileName+".wav"));
Item.Restore;//!!!
FResult:=FindNext(SearchRec);
end
else
begin
FResult:=FindFirst(GetName(Dir,"*.wav"),faArchive,SearchRec);
While FResult=0 do begin
SoundName:=GetFirstToken(SearchRec.name,".");
Item := TWaveCollectionItem.Create(ADXWaveList.Items);
Item.Name := SoundName;
Item.Wave.LoadFromFile(GetName(Dir,SearchRec.name));
Item.Restore;//!!!
FResult:=FindNext(SearchRec);
end;
Sysutils.FindClose(SearchRec);
end;

end;


GetName см. в Pathes.pas есть в http://www.gamedev.narod.ru/source.zip

---

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

Скачать: CL | DM;



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