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

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