Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: 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 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.012 c
14-47787
Дмитрий Баранов
2002-06-11 10:05
2002.07.15
Ленинградцы, помогите:)


1-47371
RDA
2002-07-01 16:05
2002.07.15
Любые ошибки при работе с компонентом


14-47735
vads
2002-06-09 09:22
2002.07.15
Кто-нибудь работал со cмарт-картами и card-reader ами ???


1-47584
AFROLOV
2002-06-28 11:43
2002.07.15
Ошибка при работе с DLL


4-47900
sammy
2002-05-08 10:57
2002.07.15
POWERBROADCAST





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский