Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Чтение из .dll файлов .wave... 


inko   (2002-04-10 12:56) [0]

Я создал .dll файл, в который включил ресурс с .wave файлами {$R Wave.res}.

Как можно прочитать из проекта определенный .Wave файл?



Fellomena   (2002-04-10 13:19) [1]

Всмысле - прочитать из проекта ?
Если надо проиграть его:

procedure TForm1.Button1Click(Sender: TObject);
var
MyWav1: TResourceStream;
begin
MyWav1:=TResourceStream.Create(hInstance, "wave1", RT_RCDATA);
try
MyWav1.SaveToFile("my.wav");
finally
MyWav1.Free;
end;{try}
end;

т.е. сначало сохраняешь на диск, затем проигрываешь :)



MBo   (2002-04-10 14:50) [2]

из Кулибы
PlaySound("WAVE", HInstance, SND_RESOURCE or SND_ASYNC);



DenKop   (2002-04-10 15:52) [3]

Вот это из FAQ мастеров:

{$R MyWave.res}procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, "MyWave", RT_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then raise Exception.Create("Cannot read MyWave");
// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound("MyWave", 0, SND_NODEFAULT);
finally
FreeResource(hResource);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.038 c
7-70047           Tsatur Soft           2002-01-24 23:05  2002.04.22  
Шрифт


3-69700           KAA                   2002-03-29 12:49  2002.04.22  
2000 Заполнить столбец таблицы


3-69708           Отчаявшийся           2002-03-28 23:49  2002.04.22  
Не удается подключиться к Interbase по сети


4-70072           Demn                  2002-02-17 09:44  2002.04.22  
Как перезагрузить чужую рабочую станцию?


14-70010          Nikolay               2002-03-15 12:11  2002.04.22  
Где можно почитать про итерацию?