Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DXWaveList [D5, Win95/98]

Ruslan. © (2002-03-06 19:57:00)
Как программно загрузить в DXWaveList(из DelphiX) несколько WAV файлов?
Заранее благодарен.

Владимир Васильев (2002-03-07 10:32:00) [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

Наверх

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