[Delas]

Помогите как загрузить из Dll звуки и чтоб их можно было проиграть рандомно, как в ресурсе, сделал в ресурсе но екзешник стал большой,создал dll-ку с ресурками а щас незнаю как точно ее подключить.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure TForm1.PlayRndSound; var   R: TResourceStream;   //H:THandle;   //sound:Pchar;   //hfind,hres:thandle; begin     //hfind:=loadlibrary('sound.dll');     //hfind:=findResource(Hinstance,'1','sound');     //if hfind <>0 then begin     //hres:=loadresource(hinstance,hfind);     //if hres <> 0 then begin     //sound:=lockresource(hres);     {if assigned(soun) then}     //sndplaysound (sound,snd_async or snd_memory);    // unlockresource(hres);    // end;     //freeresource(hfind);    // end;    //h:= LoadLibrary('sound.dll');    //if h <= BadDllLoad then    //ShowMessage('Неудалось загрузить динамическую библиотеку проверте файлы')    //Else begin    //Sound:=LoadResource(hinstance,1);    //SndPlaySound(sound, SND_ASYNC or SND_MEMORY);    //FreeLibrary(h);   R:= TResourceStream.CreateFromID(HInstance, Random(7)+1, 'sound');   SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);   R.Free; //end; end;

Работает пока что из ресурса, а где закоментил, там я пробовал по разному грузить даже менял по разному так что за ошибки не кричите на меня я так просто уже так оставил как есть.

[Delas]

В нете нашел код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Как создать файл ресурсов в виде DLL?   Создайте пустой проект DLL , который содержит ссылку на файл ресурсов .res, который в свою очередь содержит необходимые вам ресурсы.   Пример:   library ResTest;   uses   SysUtils;   {$R MYRES.RES}   begin end.   Для использования DLL'и рерсурсов: {$IFDEF WIN32} const BadDllLoad = 0; {$ELSE} const BadDllLoad = 32; {$ENDIF}   procedure TForm1.Button1Click(Sender: TObject); var   h : THandle;   Icon : THandle;   begin   h := LoadLibrary('RESTEST.DLL');     if h <= BadDllLoad then     ShowMessage('Не удалось загрузить DLL ресурсов')   else begin     Icon := LoadIcon(h, 'ICON_1');     DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);     FreeLibrary(h);   end; end;

Но тут на картинку а как звук проиграть???

[angvelem]

Всё точно так же. А звук, понятие растяжимое. Это и wav и midi и mp3 и т.д. и т.п. Первые 2 система по-умолчанию понимает для mp3 уже нужны сторонние кодеки.

Код:

1 2 3 4 5

procedure PlaySnd(WavePointer : Pointer); begin   // воспроизведение звука   PlaySound(WavePointer, 0, SND_MEMORY or SND_ASYNC or SND_LOOP or SND_NOWAIT); end;

где WavePointer указатель на память куда загрузили музыку или загружать напрямую из dll, благо данная функция это поддерживает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

The PlaySound function plays a sound specified by the given filename, resource, or system event. (A system event may be associated with a sound in the registry or in the WIN.INI file.)   BOOL PlaySound(       LPCSTR pszSound,        HMODULE hmod,       DWORD fdwSound     );        Parameters   pszSound   A string that specifies the sound to play. If this parameter is NULL, any currently playing waveform sound is stopped. To stop a non-waveform sound, specify SND_PURGE in the fdwSound parameter. Three flags in fdwSound (SND_ALIAS, SND_FILENAME, and SND_RESOURCE) determine whether the name is interpreted as an alias for a system event, a filename, or a resource identifier. If none of these flags are specified, PlaySound searches the registry or the WIN.INI file for an association with the specified sound name. If an association is found, the sound event is played. If no association is found in the registry, the name is interpreted as a filename.   hmod   Handle of the executable file that contains the resource to be loaded. This parameter must be NULL unless SND_RESOURCE is specified in fdwSound.   fdwSound   Flags for playing the sound. The following values are defined:   SND_APPLICATION   The sound is played using an application-specific association.   SND_ALIAS   The pszSound parameter is a system-event alias in the registry or the WIN.INI file. Do not use with either SND_FILENAME or SND_RESOURCE.   SND_ALIAS_ID   The pszSound parameter is a predefined sound identifier.   SND_ASYNC   The sound is played asynchronously and PlaySound returns immediately after beginning the sound. To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.   SND_FILENAME   The pszSound parameter is a filename.   SND_LOOP   The sound plays repeatedly until PlaySound is called again with the pszSound parameter set to NULL. You must also specify the SND_ASYNC flag to indicate an asynchronous sound event.   SND_MEMORY   A sound event's file is loaded in RAM. The parameter specified by pszSound must point to an image of a sound in memory.   SND_NODEFAULT   No default sound event is used. If the sound cannot be found, PlaySound returns silently without playing the default sound.   SND_NOSTOP   The specified sound event will yield to another sound event that is already playing. If a sound cannot be played because the resource needed to generate that sound is busy playing another sound, the function immediately returns FALSE without playing the requested sound. If this flag is not specified, PlaySound attempts to stop the currently playing sound so that the device can be used to play the new sound.   SND_NOWAIT   If the driver is busy, return immediately without playing the sound.   SND_PURGE   Sounds are to be stopped for the calling task. If pszSound is not NULL, all instances of the specified sound are stopped. If pszSound is NULL, all sounds that are playing on behalf of the calling task are stopped. You must also specify the instance handle to stop SND_RESOURCE events.   SND_RESOURCE   The pszSound parameter is a resource identifier; hmod must identify the instance that contains the resource.   SND_SYNC   Synchronous playback of a sound event. PlaySound returns after the sound event completes.

таким способом проигрывются wav-ки для midi нужен несколько другой код, но это в следующий раз.

[Delas]

не мне нужен тока для wave но чтоб они из длл брались и рандом плей

[Delas]

спс буду разбираться с этим!!!Если будут еще варианты рассмотрю их тоже

[angvelem]

Ну тогда достаточно только функции PlaySound.

[Delas]

Та походу одного PlaySound маловато будет чтоб из dll загрузить и проиграть звук Wave. res- файл для dllтакой был

Код:

1 2 3 4 5 6 7

1 sound "01.wav" 2 sound "02.wav" 3 sound "03.wav" 4 sound "04.wav" 5 sound "05.wav" 6 sound "06.wav" 7 sound "07.wav"

А вот как их загрузить и проиграть так и не понял нифига

[Raskolnikov]

Ну например так. Объявляешь поле формы hLib: THandle; в обработчике формы OnCreate пишешь код:

Код:

1	hLib:= LoadLibrary('sounds.dll'); // вместо sounds.dll имя библиотеки

в обработчике OnClose

Код:

1	FreeLibrary(hLib);

Для проигрывания звука:

Код:

1 2 3 4 5 6 7

var   R: TResourceStream; begin   R:= TResourceStream.CreateFromID(hLib, Random(7)+1, 'sound');   SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);   R.Free; end;

[Delas]

Спасибо помогло, странно я так раньше делал но почемуто не играло косячил где то

[angvelem]

Можно и без использования потока, вместо.

var
R: TResourceStream;
begin
R:= TResourceStream.CreateFromID(hLib, Random(7)+1, 'sound');
SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);
R.Free;
end;

Код:

1	PlaySound('01.wav', <b>hLib, SND_RESOURCE</b> or SND_ASYNC or SND_MEMORY);

рандомность вычисляется также.